1、国家二级 VB机试（上机操作）模拟试卷 120及答案与解析 一、基本操作题 1 请在名称为 Forml的窗体上添加一个名称为 H1的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为 1，最大刻度值为 100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域 (不包括两边按钮 )，滚动框移动 10个刻度。再在滚动条下面画两个名称分别为 L1和 L2的标签，并分别显示1和 100，运行时的窗体如图所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 2 在名称为 Form1的窗体上添加两个名称分别为 text1和 T
2、ext2的文本框，初始内容均为空；再建立一个下拉菜单，菜单标题为 “操作 ”，名称为 M1，此菜单下含有两个菜单项，名称分别为 Copy和 Clear，标题分别为 “复制 ”、 “清除 ”，请编写适当的事件过程，使得在程序运行时，单击 “复制 ”选项菜单，则把 Text1中的内容复制到 Text2中，单击 “清除 ”选项菜单，则清除 Text2中的内容 (即在 Text2中填入空字符串 )。运行时的窗体如图所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。注意：存盘时 必须存放在考生文件夹下，工程文件名为sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在
3、考生文件夹下有一个工程文件 sjt3 vbp，窗体上已经有一个标签 Label1，请添加一个单选按钮数组，名称为 Op1，含三个单选按钮，它们的 Index属性分别为0、 1、 2，标题依次为 “飞机 ”、 “火车 ”、 “汽车 ”，再添加一个名称为 Text1的文本框。窗体文件中已经给出了 Op1的 Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容，使得在程序运行时单击 “飞机 ”或 “火车 ”单选 按钮时，在 Text1中显示 “我坐飞机去 ”或 “我坐火车去 ”，单击 “汽车 ”单选按钮时，在 Text1中显示 “我开汽车去 ”，如图所示。注意：不能修改
4、程序中的其他部分。最后将修改后的文件按原文件名存盘。4 在考生文件夹下有一个工程文件 sjt4 vbp， Form1窗体中有一个文本框，名称为Text1；请先在窗体上添加两个框架控件，名称分别为 F1、 F2，标题分别为 “性别 ”、 “身份 ”；然后在 F1中添加两个单选按钮控件 Op1、 Op2，标题分别为 “男 ”、“女 ”；其次在 F2中添加两个单选按钮控件 Op3、 Op4，标题分别为 “学生 ”、 “教师 ”；最后再添加一个命令按钮，名称为 C1，标题为 “确定 ”，如图所示。请编写适当的事件过程，使得运行时，在 F1、 F2中各选一个单选按钮，然后单击 “确定 ”按钮，就可以按照
5、下表把结果显示在文本框中。最后把修改后的文件以原来的文件名存盘。注意：考生不得修改窗体文件中已经存在的程序和 Text1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。 三、综合应用题 5 以下数列： 1， 1， 2， 3， 5， 8， 13， 21 的规律是从第 3个数开始，每 个数都是其前面两个数之和。在考生文件夹下有一个工程文件 sjt5 vbp。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程完成如下功能：选中一个单选按钮后，单击 “计算 ”按钮，则计算出上述数列第 n项的值，并在文本框中显示， n是选中的单选按
6、钮后面的数值 (提示：因计算结果较大，应使用长整型变量 )。注意：不能修改已经给出的程序和已有的控件的属性；在结束程序运行之前，必须选中一个单选按钮，并单击 “计算 ”按钮以获得一个结果；必须使用窗体右上角的关闭按钮结束程序，否则无成绩。最后把修改后的文件按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 120答案与解析 一、基本操作题 1 【正确答案】 操作步骤 步骤 1：打开 Visual Basic开发环境，按照题目的要求新建窗体并添加一个水平滚动条控件，如图 3 1所示。步骤 2：在属性窗口中，按照题目的要求设置水平滚动条的相关属性，如图 3 2所示。步骤 3：按照题目的要求，在
7、窗体上添加两个标签控件，如图 3 3所示。步骤 4：按照题目的要求设置两个标签的相关属性，如图 3 4所示。程序中用到的控件及属性见表 3 1。 步骤 5：按下键盘上的 F5键运行程序，程序运行后的窗体界面如图 3 5所示。步骤 6：按题目要求保存工程和窗体，如图 3 6所示。 2 【正确答案】 操作步骤 步骤 1：新建窗体，按表 3 2建立菜单项并设置其属性，如图 3 7所示。步骤 2：同步骤 1，输入第 3项的标题和名称，单击确定即可。步骤 3：添加文本框控件，按表 3 3设置文本框的属性。 步骤4：打开代码编写窗口，编写程序代码，如图 3 8所示。参考代码 Private Sub Cle
8、ar Click()Text2 Text=“End SubPrivate sub Copy_Click()Text2 Text=Text1 TextEnd Sub步骤 5：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 3 【正确答案】 操作步骤 步骤 1：打开本题工程文件，按照题目要求建立单选按钮数组，如图 3 9所示。步骤 2：按照题目要求建立其他控件并设置其属性，见表 3 4。步骤 3：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。参考代码 (画下划线部分是需填入的内容 )priVate Sub Op1_Click(Index As Integer)Dim
9、 a As String， b As String， c As Stringa=“我坐 “b=“我开 “Select case Index通过 Index值决定响应哪一个控件数组Case 0Text1 Text=a+Me Op1 (0) Caption+“去 “Case 1Text1 Text=a+Me Op1(1) Caption+“去 “当 Index值为 1时，选择 “我坐 “Case 2Text1 Text=b+Me Op1(2) Caption+“去 “End SelectEnd Sub步骤 4：调试并运行程序，关 闭程序后按题目要求存盘。 4 【正确答案】 操作步骤 步骤 1：打开
10、本题工程文件，按照题目要求建立框架控件并设置其属性，如图 3 10所示。步骤 2：按照步骤 1建立其他控件并设置相关属性，程序中用到的控件及属性见表 3 5和表3 6。 步骤 3：打开代码编辑窗口，在指定位置编写如下代码。参考代码 Private Sub C1 Click()Text1 Text=“我是 “首先确定不论选什么情况 Text1的内容一定以 “我是 “开头 If Op1 Value ThenText1 Text=Text1 Text&Op1 CaptionElseText1 Text=Text1 Text&Op2CaptionEnd If通过单选按钮的 Value值 (选择为 tr
11、ue，否则为 false)确认性别，最后把其 Caption值接至 Text1后 If Op3 Value ThenText1 Text=Text1 TextOp3 CaptionElseText1 Text=Text1 Text Op4 CaptionEnd If确认身份，思路同上 End Sub步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 三、综合应用题 5 【 正确答案】 操作步骤 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考代码 Private sub Commandl_Click() Dim a()As Long Dim i As
12、Integer Dim n As Integer Op1 Count是单选按钮数目，这里用的是控件数组 For i=0 To Op1 Count1 判断哪一项被选择，把它后面的数值赋给 n，确定 n值 If Opl(i) Value=True Then n=Val(Opl(i) Caption) Exit For End If Next ReDim a(n)重新申请空间，这里是动态申请 a(1)=1 a(2)=1数列第一项、第二项值确定 For i=3 To n a(i)=a(i-1)+a(i-2)后一项值是前两项值之和 Next Text1 Text=a(n) End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
