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