1、国家二级 VB机试（上机操作）模拟试卷 119及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个文本框，名称为 Text1，内容为 “VB程序设计 ”；再画两个命令按钮，其名称分别为 Commandl和 Command2，标题分别为 “扩大 ”和 “缩小 ”，如图 31所示，编写适当的事件过程。程序运行后，每单击 Commandl命令按钮一次，文本框中文本的字体扩大 1 2倍；每单击 Command2单选按钮一次，文本框中文本的字体 缩小 1 2倍。注意：存盘时必须存放在考生文件夹下，
2、工程文件名为 sitl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画一个列表框，其名称为工 ,istl，通过属性窗口向列表框中输入9个项目，分别为 10、 20、 30、 40、 50、 60、 70、 80、 90；画一个文本框，其名称为 Text1，初始内容为空白；再画一个水平滚动条，其 -名称为 HScrolll， Min属性和 Max属性分别为 0和 100，如图 3-2(a)所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目，则在文本框中显 示该项目内容，并把滚动条的滚动框移到相应的位置，如图 32(b)所示。要求：不得使用任何变量。注
3、意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 frm。 二、简单应用题 2 (1)在考生目录下有一个工程文件 vbsi3 vbp，窗体上有一个命令按钮cmdNext(标题为 “下一个 ”)。要求：在窗体上建立一个单选按钮数组 optltem，含 4个单选按钮，标题分别为 “A”、 “B”、 “C”、 “D”，初始状态下， “A”为选中状态。如图 3-34所示。窗体文件中已经给出了命令按钮的 Click事件过程，但不完整，请去掉程序中的注释符，把程序中的 “?”改为正确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再
4、单击命令按钮，则选中第 1个单选按钮。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。程序源码： Private Sub cmdNext CliCk()For k=0 ii!iTo? If optItem(k) Value Thenn=? End If Next k optItem(n) Value=False n=n+1 If n=4 Thenh=? End If optItem(n) Value=True End Sub(2)在考生文件夹下有一个工程文件vbsj4 vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在txtInput中输入若干个大写和小写字母
5、，并选中一个单选按钮，再单击 “转换 ”按钮，则按选中的单选按钮的标题进行转换，结果放入 txtResult(如图 3 35所示 )。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容。注意：不能修改程序中的其他部分 。最后把修改后的文件按原文件名存盘。程序源码： Private Sub cmdChangeClick()Dim n As Integer， k As IntegerDim ch As String， a As String n=Len(txtInput Text) ch=” F0r k=1 To na=Mids(txt
6、Input .Text,?,1) If Optl Valme=True Then I f a=“a”And a=“A”And a 三、综合应用题 3 考生文件夹下的工程文件 sit5 vbp中的窗体如图 3 162所示。考生文件夹下的随机文件 in5 dat中有 20条记录，每条记录含姓名和三个分数 (均为 100以内的正整数 )。在程序中已经定义了类型 Recordtype，此类型变量可以存放一条记录。要求如下： 请为 “计算最大最小值 ”按钮编写 Click事件过程，其功能是：读取文件中的记录，计算每人的总分，找出其中最大总分和最小总分，分别放入变量maxval， minval中 (这两个
7、变量已经给出，不得修改 )。 运行程序，单击 “计算最大最小值 ”按钮后再单击 “存盘 ”按钮。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须依次单击 “计算最大最 小值 ”、 “存盘 ”按钮，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 119答案与解析 一、基本操作题 1 【正确答案】 【操作步骤】步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中加入一个文本框和两个命令按钮，其相关属性设置如表 4 1所示。步骤 2：打开代码编辑窗口，输入如下代码：参考代码： PriVate Sub Commandl Click()
8、 Textl FontSi ze=Textl FontSi ze*1 2End SubPrivate Sub Command2 Click() Text1 FontSize=Text1 FontSize1 2End Sub步骤 3：按要求将文件保存至考生文件夹中。第 2小题列表框的 Text属性用于返回列表框中选择的项目的内容，返回值总与列表框的 List(Listlndex)属性的返回值相同。本题需要在列表框的属性窗口中输入列表框中的项目，然后在列表框的单击事件中将选定项赋值给文本框和滚动条的 Value属性。【操作步骤】步骤 1：新建一个 “标准 EXE”工程，在窗体上画一个列表框、一个文
9、本框和一个水平滚动条，按表 4-2设置其相关属性 。步骤 2：在打开的代码编辑窗口中，编写列表框的单击事件代码：参考代码： Private Sub List1 Click() Text1 Text=List1 Text HScrolll Value=Val(List1 Text)End Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题【操作步骤】步骤 1：打开考生文件夹中的本题工程文件vbsi3 vbp，按表 4-21在窗体中用 “复制 ”和 “粘贴 ”命令画出包含 4个元素的单选数组和 1个命令按钮并设置属性。 步骤 2：打开代 码编辑窗口，去掉
10、程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Private Sub CmdNext Click() For k=0 To 3 If OptItem(k) Value Then n=k End If Next k OptItem(n) Value=False n=n+1 If n=4 Then n=0 End If OptItem(n) Value=TrueEnd Sub步骤 3：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：打开考生文件夹中的本题工程文件 vbsj4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码：
11、a=Mid$(txtInput Text， k， 1)ch=ch+LCase(a)txtResult=Ch步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口的适当位置编写代码。 参考代码： Private Sub Commandl Click() Dim S As Recordtype Open”in5 dat”For Random AS#1 Len=Len(s) maxval=0 minval=30 0 For k=1 To 2 0 Get#1， s sumval=S a1+S a2+S a3 If sumvalmaxval Then maxval= Sumval If sumvalminval Then minval=sumval Next k Close#1 End Sub 步骤 2：运行程序，单击 “计算最大最小值 ”命令按钮，然后单击 “存盘 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。
