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