1、国家二级 VB 机试（上机操作）-试卷 96 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1 的窗体上添加一个名称为 Commandl 的命令按钮(如图 1 所示)，然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能： 窗体标题为“设置按钮属性”； 命令按钮的标题为“等级考试”； 程序运行后，命令按钮不可见； 命令按钮的标题字号、字体用二号常规黑体显示。 程序的运行情况如图 2 所示。 要求：不编写任何代码。 注意：存盘时必须存放在考生文件央下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。
2、 (2)在名称为 Form1 的窗体上添加一个名称为Label1 的标签，在属性窗口中把 BorderStyle 属性设置为 1(如图 1 所示)，编写适当的事件过程。使得程序在运行后，如果单击窗体，则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。 要求：不得使用任何变昼。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为 sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，相应的窗体文件为 sjt3frm。其功能是随机产生 30个 01000 的整数，放
3、入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮(名称为Command1，标题为“输出最小值”)，即可求出其最小值，并在窗体上显示出米(如图所示)。这个程序不完整，请把它补充完整，并使其能正确运行。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，按照要求完成以下操作： 在名称为 Form1 的窗体上添加两个命令按钮，其名称分别为 C1 和 C2，标题分别为“读入数据”和“计算”(如图所示)。程序运行后，如果单击“读入数据”按钮，则调用题目所提供的 ReadData1 和 ReadData2 过程读入 datain1
4、txt 和datain2txt 文件中的各 20 个整数，分别放人 Arr1 和 Arr2 两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中(第 1 个数组的第 n 个元素减去第 2 个数组的第 n 个冗素，其结果作为第 3 个数组的第 n 个元素。这里的 n 为 1、220)，最后计算第 3 个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的 WriteData 过程将所求得的和存入考生文件夹下的 dataouttxt 文件中。须执行一次，最后将修改后的文件以原米的文件名存盘。 （分数：2.00）_国家二级 VB 机试（上机操作）-试
5、卷 96 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1 的窗体上添加一个名称为 Commandl 的命令按钮(如图 1 所示)，然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能： 窗体标题为“设置按钮属性”； 命令按钮的标题为“等级考试”； 程序运行后，命令按钮不可见； 命令按钮的标题字号、字体用二号常规黑体显示。 程序的运行情况如图 2 所示。 要求：不编写任何代码。 注意：存盘时必须存放在考生文件央下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 (2)在名称为 Form1 的窗体上
6、添加一个名称为Label1 的标签，在属性窗口中把 BorderStyle 属性设置为 1(如图 1 所示)，编写适当的事件过程。使得程序在运行后，如果单击窗体，则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。 要求：不得使用任何变昼。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立命令按钮控件 并设置命令按钮和窗体的相应属性，如图 323 所示。 程序中用到的属性见表 321。 步骤 2：调试并运行程序，关闭程序后按
7、题目要求存盘。 (2)【操作步骤】 步骤 1：新建一个窗体，按照题目要求建立标签控件并设置标签的相应属性。见表 322。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，相应的窗体文件为 sjt3frm。其功能是随机产生 30个 01000 的整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮(名称为Command1，标题为“输出最小值”)，即可求出其最小值，并在窗体上显示出米(如图所示)。这个程序不完整，请把它补充完整，并使其能正确运行。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开
8、本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 参考答案 Option Base 1 Private Sub Commandl_Click() Dim arrN(30)As Integer Dim Min As Integer Randomi ze For i1 To 30 arrN(i)Int(Rnd*1000) Next i MinarrN(1)将一个数赋给 Min，以提供判断 For i2 To 30 If arrN(i)Min Then比较最小值与其他数值，找出最小值 MinarrN(i) End If Next i Print Min En
9、d Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打丌代码编辑窗口在代码编辑窗口指定位置编写以下代码。 参考答案 Function Fun() Dim s As Integer，i As Integer For i0 To 1000求 01000 中满足条件的数 If i Mod 70 Then ss1将满足条件的数的个数累加 End If Next i Funs返回结果 End Function 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下
10、有一个工程文件 sjt5vbp，按照要求完成以下操作： 在名称为 Form1 的窗体上添加两个命令按钮，其名称分别为 C1 和 C2，标题分别为“读入数据”和“计算”(如图所示)。程序运行后，如果单击“读入数据”按钮，则调用题目所提供的 ReadData1 和 ReadData2 过程读入 datain1txt 和datain2txt 文件中的各 20 个整数，分别放人 Arr1 和 Arr2 两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中(第 1 个数组的第 n 个元素减去第 2 个数组的第 n 个冗素，其结果作为第 3 个数组的第 n 个元素。这里的 n 为 1、220)，最后计算第 3 个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的 WriteData 过程将所求得的和存入考生文件夹下的 dataouttxt 文件中。须执行一次，最后将修改后的文件以原米的文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题工程文件，按照题目要求建立命令按钮控件并设置命令按钮的相应属性，程序中用到的控件及属性见表 323。 )解析：
