1、国家二级 VB机试（上机操作）模拟试卷 409及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上画一个名称为 Combol的组合框，其宽度为 1200，其类型如图 3188所示 (即简单组合框 )。要求如下： 请按图中所示，通过属性窗口输入“北京 ”、 “上海 ”、 “广州 “、 “深圳 ”。 设置适当的属性，使得运行时，窗体的最大化按钮和最小化按钮消失。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文 件名为 sjt1 frm。 (2)在名称为 Form1的窗体
2、上画两个文本框，名称分别为 Text1、 Text2，再画两个命令按钮，名称分别为Command1、 Command2，标题分别为 “左 ”、 “右 ”，如图 3189。要求：编写适当的事件过程，使得程序运行时，单击 “左 ”按钮，则焦点位于 Text1上；单击 “右 ”按钮，则焦点位于 Text2上。 注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生目录下有一个工程文件 sjt3 vbp，窗体上有一个命令按钮Command1(标题为 “下一个 ”)。 要求：在窗
3、体上建立一个单选按钮数组 Option1，含4个单选按钮，标题分别为 “选项 1”、 “选项 2”、 “选项 3”、 “选项 4”，初始状态下， “选择 1为选中状态。如图 3190所示。窗体文件中已经给出了命令按钮的Click事件过程，但不完整，请去掉程序中的注释符，把程序中的 “?”改为正确的内容，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮，则选中第一个单选按钮 。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体上已经画出所有控件，如图 3191所示。在 Text1
4、文本框中输入一个任意的字符串 (要求串的长度 10)，然后选择组合框中的三个截取运算选项之一。单击 “计算 ”按钮，将截取运算后的结果显示在 Text2中。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的 “?”改为正确的内容。注意：不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 数列 1， 1， 3， 5， 9， 15， 25， 41， ，的规律是从第三个数开始，每个数是它前面两个数的和加 1。在考生目录下有一个工程文件 sjt5 vbp。窗体中已经给出了所有控件，如图 3192所示。请编写适当的事件过程实现以下功能：在 Text1中输入整
5、数 40，单击 “计算 ”按钮，则在 Text2中显示该数列第 40项的值。如果单击“存盘 ”按钮，则将计算的第 40项的值存到考生目录下的 out5 txt文件中。 (提示：因数据较大，应使用 Long型变量。 ) 注意：在结束程序运行之前，必须单击 “存盘 ”按钮，把结果存入 out5 txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 409答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步
6、骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：双击 “左 ”命令按钮，打开代码 编辑窗口，在按钮的 Click事件过程中输入代码。 步骤 3：从代码编辑窗口的 “对象 ”下拉列表中选择 Command2，从 “事件 ”下拉列表选择 Click，编写以下事件过程。参考代码： Private Sub Command1_C1iCk() Text1 SetFocus End Sub Private Sub Command2_C1ick() Text2 SetFocuS End Sub 步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 (1)【
7、操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjs vbp，按要求画出控件数组并设置属性。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Private Sub Command1_Click() For k 0 To 3 If Optionl(k) Value Then n k End If Next k Optionl(n) Value False n n 1 If n 4 Then n 0 End If Option1(n) Value True End Sub 步骤 3：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤
8、 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Select Case Combo1 ListIndex tmpStr Mid(Trim(Text1 Text)， 3， 4) Text2 Text tmpStr 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1： 打开考生文件夹下的工程文件 sjt5 vbp。 步骤 2：编写 “计算 ”按钮的单击事件过程。参考代码： Private Sub Command1_Click() Dim f As Long a(1) 1： a(2) 1 For i 3 To Val(Text1 Text) f a(i 2) a(i 1) 1 a(i) f Next Text2 Text f End Sub 步骤 3：运行程序，在文本框中输入 40，并单击 “计算 ”按钮获得一个结果，然后单击 “存盘 ”按钮保存计算结果。 步骤 4：按要求 将文件保存至考生文件夹中。
