1、国家二级 VB机试（上机操作）模拟试卷 415及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 Command1的命令按钮 (如图 1所示 )，然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能： 窗体标题为 “设置按钮属性 ”； 命令按钮的标题为 “等级考试 ”； 程序运行后，命令按钮不可见； 命令按钮的标题字号、字体用三号常规黑体显示。 程序的运行情况如图 2所示。 要求：不编写任何代码。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。(2)在名称为 Form1的窗体上添加一个名称为 Lab
2、el1的标签，在属性窗口中把。 BorderStyle属性设置为 1(如图 1所示 )，编写适当的事件过程。使得程序在运行后，如果单击窗体，则可使标签移到窗体的右上角 (只允许在程序中修改适当属性来实现 )。 要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt frm。 其功能是随机产生 30个 0 1000的整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮 (名称为 Command1，标题为
3、 “输出最小值 ”)，即可求出其最小值，并在窗体上显示出来 (如图所示 )。这个程序不完整，请把它补充完整，并使其能正确运行。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原名存盘。 (2)在考生文件夹下有一个工程文件sjt4 vbp，相应的窗体文件为 sjt4 frm，在窗体上有一个文本框和一个命令按钮。 程序运行后，单击命令按钮，即可计算出 0 1000范围内不能被 7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被 7整除的整数的个数的操作在通用过程 Fun中实现，请
4、编写该过程的代码。 要求：请勿改动程序中的任何内容，只在 Function Fun()和 End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，按照要求完成以下操作： 在考生文件夹下有一个工程文件 sjt5 vbp，按照要求完成以下操作： 在名称为 Form1的窗体上添加两个命令按钮，其名称分别为 C1和 C2，标题分别为 “读入数据 ”和 “计算 ”(如图所示 )。程序运行后，如果单击 “读入数据 ”按钮，则调用题目所提供的ReadData1和 ReadData2过程读入 datain1 tx
5、t和 datain2 txt文件中的各 20个整数，分别放入 Art1和 Arr2两个数组中；如果单击 “计算 ”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中 (第 1个数组的第 n个元素减去第 2个数组的第 n个元素，其结果作为第 3个数组的第 n个元素 。这里的 n为 1、220) ，最后计算第 3个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的 WriteData过程将所求得的和存入考生文件夹下的 dataout txt文件中。 注意：考生不得修改窗体文件中已经存在的程序，且必须执行一次，最后将修改后的文件以原来的文件名存盘。国家二级 VB机试（上机操
6、作）模拟试卷 415答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立命令按钮控件并设置命令按钮和窗体的相应属性，如图 3 23所示。程序中用到的属性见表 3 21。 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性，见表 3 22。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Form_Click() Labe11 Top 0设置 Label1的初始位置 Labe11 Left Form1 WidthLa
7、be11 Width End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单 应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “，将问号改为正确的内容。 参考答案 Option Base 1 Private Sub Command1_Click() Dim arrN (30) As Integer Dim Min As Integer Randomize For i 1 To 30 arrN(i) Int(Rnd * 1000) Next i Min arrN(1)将第一个数赋给 Min，以提供
8、判断 For i 2 To 30 If arrN(i) Min Then比较最小值与其他数值，找出最小值 Min arrN(i) End If Next i Print Min End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在代码编辑 窗口指定位置编写以下代码。 参考答案 Function Fun() Dim S As Integer， i As Integer For i 0 To 1000 求 0 1000中满足条件的数 If i Mod 7 0 Then s s 1将满足条件的数的个数累
9、加 End If Next i Fun s 返回结果 End Function 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正 确答案】 【操作步骤】 步骤 1：打开本题工程文件，按照题目要求建立命令按钮控件并设置命令按钮的相应属性，程序中用到的控件及属性见表 3 23。步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 参考答案 Private Sub C1_Click() Cal1 ReadData1 调用过程 ReadDatal Cal1 ReadData2 调用过程 ReadData2 End Sub Private Sub C2 CliCk() Dim Arr3(1 To 20)As Integer Dim sum As Integer Sum 0 For i 1 To 20 将 Arrl中对应于 Arr2中的数相减，结果存入 Arr3中 Arr3(i) Arrl(i)Arr2(i) sum sum Arr3(i) 将 Arr3中的元素累加 Next i Print“sum “； sum 在窗体打印 sum WriteData“dataout txt“， sum End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
