1、国家二级 VB机试（上机操作）模拟试卷 183及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上建立一个如下表所示的下拉菜单，其中 “设置 ”菜单项为灰色(不可用 )，如图 2 58所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。(2)在名称为 Forml的窗体上面一个名称为 Hscrolll的水甲滚动条，其最大刻度为 100，最小刻度为0；再画两个单选按钮，名称分别 为 Option1、 Option2，标题分别为 “最大值 ”、
2、 “最小值 ”，且都末选中，再通过属忡窗口设置适当属件使得程序刚运行时，焦点存滚动条上 (如图 2 59所示 )。 请编写适当的事件过程，使得程序运行时，单击 “最大值 ”单选按钮，则滚动条上的滚动框移到最有端：单击 “最小值 ”单选按钮，则滚动框移到最左端。 注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。窗体上有名称为 Timer1的定时器，以及名称为 Linel和 Line2的两条水平直线。请用名称为 Shapel的形
3、状控件，在两条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求： 圆的顶端距窗体 Forml顶端的距离为 360； 圆的颜色为红色 (红色对应的值为 &H000000FF&或 &HFF )，如图 2 70所示。程序运行时， Shapel将在 Line1和 Line2之间运动。当Shapel的顶端到达 Linel时，会自动改变方向而向下运动；当 Shapel的底部到达Line2时，会改变方向而向上运动。 文件中给出的程序不完整，请去抻程序中的注释符，把程序中的 ?改为正确内容，使其实现上述功能。 注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按
4、原文件名存盘。 (2)在考生义件灾下有一个工程文件 sjt4 vbp，包含了所有控件和部分程序，如图 2 71所示。程序功能如下： 单击 “读数据 ”按钒，可将考生文件夹下 in4 dat文件中的 100个整数读到数组 a中； 单击 “计算 ”按钮，则根据从名称为 Combol的组合框中选中的项目，对数组 a中的数据计算平均值，并将计 算结果四舍五入取整后显示存文本框 Text1中。 “读数据 ”按钮的 Click事件过程已经给出，请为 “计算 ”按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体有上角的关闭按钮结束程序
5、，否则无成绩。最后，程序按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框 Text1中输入一个大于 2的偶数，并单击 “分解为 ”按钮，则可以将该偶数分解为两个素数之和 ，且要求其中一个素数是所能够分解出的最小的素数 (一个偶数有时可以分解为多种素数的组合，例如 24可以分解为5和 19，也可以分解为 11和 13，要求取含有最小素数的组合，如图 2 124所示 )。要求编写 “分解为 ”按钮事件过程中 “考生编写程序开始 ”和 “考生编写程序结束 ”之间的代码，以实现上述功能。过程 IsPri
6、me用来判断。个数是否为素数，如果是，返回值为 True，否则返回值为 False。 注意：不得修改原钉程序和控件的属性。至少正确运行一次程序，且运行时在文本框中输入 23456，单击 “分解为 ”按钮，将结果显示在标签 中，否则无成绩。最后把修改后的文件按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 183答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”上程，利用菜单设计器按表 3 34在窗体上建立一个二级菜单。步骤 2：按要求将文件保存至考生文间夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按
7、表 335在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写两个单选按钮的单击事件过程。 参考代码： Private Sub OptionlClick() HSCro111 Value=100 End Sub Private Sub Option2一 C1ick() HSCr0111 Value=0 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件下的奉题工程文件sit3。 vbp在窗体上两条水平直线间画一个形状控件，并如表 3 42设置其属性。步骤 2：在代码编辑窗口，去掉程序中的注
8、释符 “”，将问号 “?”改为正确的内容。 参考代码： Timerl Enabled=True If Shapel Top=Lin2 Y1 Then 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit4 vbp，在代码编辑窗口，编写 “计算 ”按钮的单击事件过程以及三个自定义过程。 参考代码： Private Sub Command2一 Click() Select Case Combol ListIndex Case 0 Text： l=lverl() Case 1 Textl=odd() Case 2 Text； 1=al
9、l() End Select： End Sub Function even() Dm s As Single， rl As“rnteger s=0 For k=1 To 100 1f a(k) 2=Fix(a(k) 2)Then s=s+a(k) n=n+1 End If Next s=s n even=CInt(s) End Function Function odd() Dim s As Single n As Integer s=0 For k=1 To 100 Tf a(k) 2Fix(a(k) 2)Then s=s+a(k) n=n+1 End Tf Next s=s n odd=C
10、Int(s) End Function Function all() Dim s As Single， n As rnteger s=0 For k=1 To 100 s=s+a(k) Next s=s 100 all=CInt(s) End Function 步骤 2：按键运行程序，先单击 “读数据 ”按钮，然后选择组合 框中的一项再单击 “计算 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 3：按要求将义件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sit5 vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： Dim i As Integer Dim n As Integer n=Val(Textl Text) If n Mod 20 Then NsgBox”请输入偶数 !” Exit Sub End If For i=3 TO n 2 If IsPrime(i)And IsPrime(ni)Then Labell Caption=i Label2 Caption=ni EXit For End If Next 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 键运行程序，在文本框中输入 23456，单击 “分解为 ”按钮。
