1、国家二级 VB机试（上机操作）模拟试卷 324及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)请在名称为 Form1的窗体上添加一个名称为 Hl的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为 1，最大刻度值为 100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动 10个刻度。再在滚动条下面画两个名称分别为 L1和 L2的标签，并分别显示 1和 100，运行时的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (
2、2)在名称为 Forml的窗体上添加两个名称分别为Text1和 Text2的文本框，初始内容均为空；再建立一个下拉菜单，菜单标题为“操作”，名称为 Ml，此菜单下含有两个菜单项，名称分别为 Copy和 Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把 Text1中的内容复制到 Text2中，单击“清除”选项菜单，则清除 Text2中的内容(即在 Text2中填入空字符串)。运行时的窗体如图所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为
3、sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)考生文件夹下有一个工程文件 sjt3vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为 Command1、标题为“添加”的命令按钮，则将文本框中的数字添加到名称为 Combol的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp。
4、该程序的功能是计算 M!+(M+1)!+(M+2)!+N!之和。窗体上有名称分别为Text1、Text2 的两个文本框，用于接收输入的 M和 N(要求 MN)。单击名称为 Command1、标题为“计算”的命令按钮，计算 M!+(M+1)!+(M+2)!+N!的值，并将计算结果显示在标签 lblResuh中。 在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。（分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹中有一个工程文件 sjt5vb
5、p。该程序的功能是从 in5txt 文件中读入 40个数据，统计这些数据中素数的个数，并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签 Label4和 Label3中(窗体外观如图所示)。程序不完整，请在指定的位置把程序补充完整。 注意：不得修改原有程序和控件的属性。程序结束运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 324答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)请在名
6、称为 Form1的窗体上添加一个名称为 Hl的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为 1，最大刻度值为 100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动 10个刻度。再在滚动条下面画两个名称分别为 L1和 L2的标签，并分别显示 1和 100，运行时的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Forml的窗体上添加两个名称分别为Text1和 Text2的文本框，初始内容均为空；再建立一个下拉菜单，菜单标题为“操作”，名称为 Ml，此
7、菜单下含有两个菜单项，名称分别为 Copy和 Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把 Text1中的内容复制到 Text2中，单击“清除”选项菜单，则清除 Text2中的内容(即在 Text2中填入空字符串)。运行时的窗体如图所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开 Visual Basic开发环境，按照题目的要求新建窗体并添
8、加一个水平滚动条控件，如图 31 所示。 步骤 2：在属性窗口中，按照题目的要求设置水平滚动条的相关属性，如图 32 所示。 步骤 3：按照题目的要求，在窗体上添加两个标签控件，如图33 所示。 步骤 4：按照题目的要求设置两个标签的相关属性，如图 34 所示。 程序中用到的控件及属性见表 31。 步骤 5：按下键盘上的 F5键运行程序，程序运行后的窗体界面如图 35所示。 步骤 6：按题目要求保存工程和窗体，如图 36 所示。 (2)【操作步骤】 步骤 1：新建窗体，按表 32 建立菜单项并设置其属性，如图 37 所示。 步骤 2：同步骤 1，输入第 3项的标题和名称，单击确定即可。 步骤
9、3：添加文本框控件，按表 33 设置文本框的属性。 步骤 4：打开代码编写窗口，编写程序代码，如图 38 所示。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)考生文件夹下有一个工程文件 sjt3vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为 Command1、标题为“添加”的命令按钮，则将文本框中的数字添加到名称为 Combol的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序中的其他部分和其他控件的属性。最后
10、把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp。该程序的功能是计算 M!+(M+1)!+(M+2)!+N!之和。窗体上有名称分别为Text1、Text2 的两个文本框，用于接收输入的 M和 N(要求 MN)。单击名称为 Command1、标题为“计算”的命令按钮，计算 M!+(M+1)!+(M+2)!+N!的值，并将计算结果显示在标签 lblResuh中。 在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。（分数：2.00）_正确答
11、案：(正确答案：(1) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容。 Private Sub Command1_Click() Combo1AddItem Text1.Text将 Text1中的内容加入 Combo1中 Text1.Text=“”同时将 Text1内容清除 End Sub Private Sub Text1KeyPresS(KeyAscii As Integer) If KeyAscii57 or KeyAscii48 Then数字的 Ascii码值下界 MsgBox”请输入数字!” KeyAscii=0
12、清空 End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。 Private Sub Commandl_Click() Dim m As Integer Dim n As Integer Dim s As Long Dim i As Integer m=Val(Text1Text) 将文本框中的字符转换成数值型 n=Val(Text2Text) S=0 For i=m To nm t=f(i)调用函数得到 N的阶乘 s=s+t Next Ibl
13、ResultCaption=S End Sub Private Function f(ByRef x As Integerl As LongByRef 为传址传递 Dim t As Long t=1 For i=1 To x实现对数值进行阶乘运算 t=t*i Next f=t返回计算结果 End Function 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹中有一个工程文件 sjt5vbp。该程序的功能是从 in5txt 文件中读入 40个数据，统计这些数据中素数的个数，并找出所有素数中最小的素数(判断素数的函数已给出
14、)。最后将查找和统计的结果分别显示在标签 Label4和 Label3中(窗体外观如图所示)。程序不完整，请在指定的位置把程序补充完整。 注意：不得修改原有程序和控件的属性。程序结束运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并在适当位置编写程序代码。 Dim a As Integer Dim b As Integer a=0 b=err(1) For i=1 To 40确定素数个数 If prime(err(i)Then判断是否为素数 a=a+1素数个数累加 Label3Caption=a在标签中显示 Next For i=1 To 40查找最小素数 工 f prime(arr(i)And arr(i) =b Then比较素数大小 b=arr(i)将较小素数赋给 b Label4Caption=b在标签申显示 Next 步骤 3：按照题目要求调试并运行程序，效果如图 316 所示。 )解析：
