1、国家二级 VB机试（上机操作）模拟试卷 366及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上画 1个名称为 Framel、标题为 “项目 ”的框架；框架内有 1个名称为 opt1的控件数组，该控件数组含有三个标题分别为 “篮球 ”“排球 ”“足球 ”的单选按钮，且标题为 “排球 ”的单选按钮为选中状态。运行后的窗体如图 3-32所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为sjt1 frm。 (2)在名称为 Form1、标题为 “字体练习 ”的窗
2、体上，画 1个名称为Label1的标签，该标签的标题为 “程序设计语言 ”，字体为 “宋体 ”， 16号字，且该标签的大小可根据标题内容自动调整。再画 2个名称分别为 Command1和Command2，标题分别为 “粗体变换 ”和 “斜体变换 ”的命令按钮。效果如图 3-33所示。 要求：编写适当的事件过程，使得单击 “粗体变换 ”按钮时， Label1的字体在“粗体 ”和 “非粗体 ”两种状态之间切换；单击 “斜体变换 ”按钮， Label1的字体在 “斜体 ”和 “非斜体 ”两种状态之间切换。 注意：要求程 序中不能使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工
3、程文件名为sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 frm。在窗体上有一个名称为 Command1、标题为 “计算 ”的命令按钮；两个水平滚动条，名称分别为 Hscroll1和 Hscroll2，其 Max属性均为 100， Min属性均为 1；四个标签，名称分别为 Label1、 Label2、 Label3和 Label4，标题分别为 “运算 数 1”、 “运算数 2”、 “运算结果 “和空白；此外还有一个包含四个单选按钮的控件数组，名称为Optionl，标题分别为 “+”、 “
4、”、 “*”和 “ ”，如图 3129(a)所示。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击计算按钮，相应的计算结果将显示在 Label4中，程序运行情况如图3 129所示。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属 性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm。在窗体上有一个命令按钮，其名称为 Command1，标题为 “输
5、k显示 ”；此外还有一个文本框，其名称为 Text1，初始内容为空白。程序的功能是，程序运行后，单击命令按钮，显示输入对话框，在对话框中输入某个月份的数值 (1 12)，然后单击 “确定 ”按钮，即可在文本框中输出该月份所在的季节。例如输入 5，将输出 “5月份是夏季 ”，如图 3 130所示。程序不完整，请补充完整。 要求：去 掉程序中的注释符，把程序中的 “?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。三、综合应用题 3 在考生文件夹下有一个工程文件 vbsi5 vbo，请先装入该工程文件，然后完成以下操作：在名称为 Form1的
6、窗体上画两个命令按钮，其名称分别为 cmdRead和cmdCal，标题分别为 “读入数据 ”和 “计算保存 ”(如图 3-61所示 )。程序运行后，如果单击 “读入数据 ”按钮，则调用题目所提供的 ReadDatal和 ReadData2过程读入in51 txt和 in52 txt文件中的各 20个整数，分别放入 Arr1和 Arr2两个数组中；如果单击 “计算保存 ”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中 (即：第一个数组的第 n个元素减去第二个数组的第 n个元素，其结果作为第三个数组的第 n个元素。这里的 n为 1、 2、 、 20)，最后计算第三个数组各元素之和，
7、把所求得的和在窗体上显示出来；并调用题目中给出的 WriteData过程将所求得的和存入考生文件夹下的 out5 dat文件中。注意：考生不得修改窗体文件中已经存在的程序，且必须执行此程序一次，最后把修改 后的文件以原来的文件名存盘。程序源码：Option Base 1Dim Arrl(20) As IntegerDim Arr2(20) As IntegerSub Rea dDatal()Open App Path “ “ “in51 txt“For_Input As #1 FOr i=1 To 20 Input #1， Arrl(i) Next i Close #1End SubSub R
8、eadData2()Open App Path “ “ “in52 txt“For_Input As #1 For i=1 To 20 nput #1， Arr2(i) Next i Close #1End SubSub WriteData(Filename As String， NumAs_Integer)Open App Path&“ “&Filename For Output As #1 Print #1， Num Close #1End Sub 国家二级 VB机试（上机操作）模拟试卷 366答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程，在
9、窗体 Form1中加入一个框架，然后在框架内加入含有 3个单选按钮的控件数组。按表 420设置其相关属性。 步骤 2：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中加入一个标签和两个命令按钮。按表 4-21设置其相关属性。步骤 2：在打开的代码编辑窗口中，编写命令按钮的 Click事件代码。参考代码： PriVate Sub Command1_Click()Label1 FontBold=IIf(Label1 FontBold， False， True)End SubPriVate Sub Command2_Click()Label1 F
10、ontItalic=IIf(Label1 ForltItalic，False， True)End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 (1)题目要求在窗体上加入一个框架，然后在框架里面添加一个单选按钮控件，并设置相关属性。添加控件数组的方法是：先通过工具箱建立第 1个控件，然后对该控件进行 “复制 ”“粘贴 ”操作，粘贴时在弹出的对话框中选择建立控件数组， 这时控件数组的 Index值会自动从 0开始编号。 (2)根据题目要求在单击命令按钮的时候，修改标签的属性，只需在命令按钮的Click事件代码里面设置标签的属性即可。 二、简单应用题 2 【正确答案】 (1)步
11、骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： If Optionl(i)=True Then elect Case opt Label4 Caption=Str(Hsbl Value)&“ & opt & Str(Hsb2 Value) & “ = “ & Str(Result) 步骤 2：按要求将文件保存至考生文件夹中。 (2)步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Loop Until n0
12、And n13 Select Case n Select Case m 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 (1)本题其实就是根据所选运算符计算两 个水平滚动条产生值的结果。题目源程序利用一个 For循环语句逐一判断单选按钮数组中各元素是否选中，若选中则用变量 opt记录下所选项的标题；接下来则根据 opt可能出现的不同值，用 Select Case语句分别做出处理；最后将运算表达式及结果显示在标签Label4上。 (2)本题源程序利用一个 Loop循环语句使得输入月份，只有当输入的月份为 112之间的整数时才是合法的输入；接下来使用 Select Case语句分别对月份
13、 n做出处理；最后再使用 Select Case语句根据不同的季节 m的值进行输出。 三、 综合应用题 3 【正确答案】 步骤 1：打开考生文件夹中的本题工程文件 vbsi5 vbp，按表 4-37在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，分别编写 “读入数据 ”按钮和 “计算保存 ”按钮的单击事件过程。参考代码： Private Sub cmdRead_Click()ReadDatal： ReadData2End SubPrivate Sub cmdCal_Click()Dim Arr3(20) As IntegerDim Sum As IntegerSum=0For i=
14、1 To 20Arr3(i)=Arrl(i) - Arr2(i)Sum=Sum+Arr3(i)Next Print SumWriteData“out5 da t“， SumEnd Sub 步骤3：按键运行程序，先单击 “读入数据 ”按钮，然后单击 “计算保存 ”按钮。 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 本题源程序已提供用于读数的 ReadDatal、 ReadData2和用于写盘的 WriteData几个自定义过程，只需编写 “读数 ”、 “计算 ”和 “保存 ”命令按钮的单击事件过程，并在事件过程中调用 ReadDatal、 ReadDam2和 WriteData自定
15、义过程。程序设计思路：在 “读数 ”按钮的 Click事件过程中，通过分别调用 ReadData1和 ReadData2过程将数据从文件 dr342 dat和 dr343 dat中读入到数组 Arrl和Arr2(窗体变量 )中；然后在 “计算 ”按钮的 Click事件过程中，利用 For语句 (循环变量 i的初值为 1，终值为 20)依次将数组 Arr1和 Arr2同下标的元素相减后赋值给数组 Arr3同下标的元素 (表达式为： Arr3(i)=Arrl(i)-Arr2(i)，并累加到变量Sum，循环结束后将 Sum的值显示在窗体上。在 “保存 ”按钮的 Click事件过程中，通过调用 WriteData过程将 Sum的值写入数据文件 out5 txt。 注意：调用 WriteData过程时需传递参数 dw343 dat和 Sum，变量 Sum应声明为窗体变量。
