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