1、国家二级 VB机试（上机操作）模拟试卷 333及答案与解析 一、基本操作题 1 (1)在名称为 Form1，标题为 “选课 ”的窗体上添加一个复选框数组，名称为 CH1，共有四个复选框，按顺序其标题分别是 “数学 ”、 “语文 ”、 “外语 ”、 “计算机 ”，其中“语文 ”、 “计算机 ”复选框处在选中状态下，程序运行时的窗体如图所示。请按要求添加控件并设置相应属性。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。 (2)在名称为 Form1的窗体上添加一个名称为 HS1的水平滚 动条，其刻度值范围为1100；添加一个命令按钮，名
2、称为 C1，标题为 “移动滚动框 ”。请编写适当的事件过程，使得在程序运行时，每单击命令按钮一次 (假定单击次数不多于 10次 )，滚动框向。右移动 10个刻度。程序运行时的窗体如图所示。要求程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。 二、简单应用题 2 (1)考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 单击 “读数据 ”按钮，则将考生文件夹下 in3 dat文件中的 100个 0 999的整数读入到数组 a中； 单击 “计算 ”按钮，则找出这 100个整数中的所有水
3、仙花数，并将它们的最大值与最小值分别显示在文本框 Textl、 Text2中 (注：当一个数的值等于该数中的各位数字的立方和时，此数被称为水仙花数。如： 153=13+53+33，所以 153就是一个水仙花数 )。 在窗体文件中已经给出了全部控件 (如图所示 )和 “读数据 ”命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写 “计算 ”命令按钮的事件过程。 注意：考生不得修改窗体文件中已经存在的控件和程 序，在结束程序运行前，必须进行 “计算 ”，并且必须通过单击窗体右上角的 “关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件
4、sjt4 vbp。请在窗体上添加一个组合框，名称为cb1，并输入三个列表项： “3”、 “7”、 “11”(列表项的顺序不限，但必须是这三个数字 )；添加一个名为 Text1的文本框；再添加一个标题为 “计算 ”、名称为 C1的命令按钮，如图所示。请编写适当的事件过程，使得在程序运行时，在组合框中选定一个数字后，单击 “计算 ”按钮，则计算 5000以内能够被该数整 除的所有数之和，并放入 Text1中。最后，按原文件名存盘。 提示：由于计算结果较大，应使用长整型变量。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序
5、，否则无成绩。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框 Text1中输入一个大于 2的偶数，并单击 “分解为 ”命令按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的 素数 (一个偶数有时可以分解为多种素数的组合，例如 24可以 分解为 5和 19，也可以分解为 11和 13，要求取含有最小素数的组合，如图所示 )。要求编写 “分解为 ”命令按钮事件过程中 “考生编写程序开始 ”和 “考生编写程序结束 ”之间的代码，以实现上述功能。过程 IsPrime用来判断一个数是否为素
6、数，如果是，返回值为 True，否则返回值为 False。 注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且程序运行时在文本框中输入 23456，单击 “分解为 ”按钮，将结果显示在标签中，否则将没有成绩，最后将修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 333答案与解析 一、基本操作题 1 【正确答案】 (1) 【操作步骤】 步骤 1：新建窗体，按照题目要求建立控件并设置属性，如表 3 30所示。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：新建一个窗体，按照题目要求建立滚动条控件及命令按钮控件并设置其属性，如图 3
7、25所示。程序中用到的控件及属性见表 3 31。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub C1_Click() HS1 Value=HS1 Value+10当用户单击 ”移动滚 动框 ”按钮则滚动条的 Value加 10 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1) 【操作步骤】 步骤 1：按照题目要求打开工程文件。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 Dim i As Integer Dim max As Integer， min As Integer max=一 1 m
8、in=1000 For i=1 To 100 If isnarc(a(i)Then调用isnarc判断是否为水仙花教 If max =a(i)Then max=a(i) If min =a(i)Then min=a(i)求水仙花数中的最大值与最小值 End If Next i Text1=max Text2=min 步骤 3：按照题目要求调试并运行程序，如图 3 18所示。 步骤 4：关闭程序后，按题目要求存盘。 (2) 【操作步骤】 步骤 1：打开本题工程文件，按照题目要求建立控件并设置组合框控件属性，如图 3 19所示。程序中用到的控件及属性见表 3 11。 步骤 2：打开代码编辑窗口，在
9、代码编辑窗口指定位置编写以下代码。 Private Sub C1_Click() Dim sum As Long Dim n As Integer Dim i As Integer n=Val(cbl Text)读取选中的数字并通过函数 Val转换为数值 For i=n To 5000从本身开始循环查找 If i Mod n=0 Then sum=sum+i判断是否能被该数整除并求和 End If Next i Text1 Text=sum在 Text1中显示 End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案 】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 For i=1 To Val(Text1 Text)i从 1开始，第一个找到的肯定就是满足条件的最小素数 If IsPrime(i)And IsPrime(Val (Text1 Text)一 i)Then判定两个数是否都满足素数条件 Labell=i Label2=Val(Text1 Text) 一 i Exit For End If Next i 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
