1、国家二级 VB机试（上机操作）模拟试卷 102及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 CDl的通用对话框，通过属性窗口设置 CDl的初始路径为 C：，默认的文件名为 None，标题为 “保存等级考试 ”，如图 3 125所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为Forml的窗体上设计一个菜单。要求在窗体上添加名为 menu0，标 题为 “菜单命令 ”的主菜单，再添加两个名称分别为 “men
2、u1”、 “menu2”，标题分别为 “不可用菜单项 ”、 “上一菜单项可用 ”的子菜单，并且使程序运行时， menul子菜单不可用，menu2子菜单已经选中 (运行时的效果如图 3 126所示 )。再编写适当的事件过程，使得程序运行时，单击 “上一菜单项可用 ”，则 “不可用菜单项 ”变为黑色 (可用 )。要求程序中不得使用变量，且只有一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 fm 二、简单应用题 2 (1)在考生文件夹 下有一个工程文件 sit3 vbp，窗体上有一个矩形和一个圆，还有垂直和水平滚动条各一个。程序运行时，移动某个滚
3、动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图 3 140(a)所示：滚动块在最右边时，圆靠在矩形的右边线上，如图 3140(b)所示。垂直滚动条的情况与此类似。 文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后 把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。窗体中已经给出了所有控件，如图 3 141所示。运行时，单击 “发射 ”按钮，航天飞机图标将向上运动，速度
4、逐渐加快，全部进入云中后则停止，并把飞行距离 (用坐标值表示 )、所用时间 (单位为秒 )分别显示在标签 Labell和 Label2中；单击 “保存 ”按钮，则把飞行距离、所用时间存入考生文件夹下的 out4 txt文件中。文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序的其他部分和控件属性。 最后把修改后的文件按原文件名存盘。 三、综合应用题 3 数列 1， 1， 3， 5， 9， 15， 25， 41， ，的规律是从第三个数开始，每个数是它前面两个数的和加 1。在考牛目录下有一个工程文件 sjt5 vbp。窗体中已经给出了所有控件，如
5、图 3 106所示。请编写适当的事件过程实现以下功能：在 Text1中输入整数 40，单击 “计算 ”按钮，则在 Text2中显示该数列第 40项的值。如果单击“存盘 ”按钮，则将计算的第 40项的值存到考生目录下的 out5 txt文件中。 (提示：因数据较大，应使用 Long型变量。 ) 注意：在 结束程序运行之前，必须单击 “存盘 ”按钮，把结果存入 out5 txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 102答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE“工程，选择【工程
6、】 【部件】命令，在弹出的 “部件 “对话框的列表中选中 “MicroSofy Common Dialog Control6 0”项目，单击 “确定 ”按钮。 步骤 2： 在窗体 Forml上画一个通用对话框并设置相关属性。 步骤 3：编写 Forml的 Load事件，加入下面的代码： CD 1 ShowSave 步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，打开 VB菜单设计器按要求设计菜单。 步骤 2： 打开代码编辑窗口，编写 “上一菜单项可用 ”命令的 Click事件过程。 参考代码： Private Sub menu2
7、C1ick() menul Enabled=True End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： HSCEolll Max=Shape2 Width+Shape2 LeftShapel Width WScrolll Max=Shape2 Height+Shape2 Top Shapel Height Shapel Left=HSCEOlll Value Shapel Top=V
8、ScEOlll 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Timerl Enabled=True Timerl Enabled=False d=dImagel Top t=t+1 步骤 2：按 键运行程序，先单击 “发射 ”按钮，计算完毕后单击 “存盘 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件 夹下的工程文件 sit5 vbp。 步骤 2：编写 “计算 ”按钮的单击事件过程。 参考代码： Private Sub Commandl C1 i ck() Dim f As Long a(1)=1 a(2)=1 For i=3 To Val(Textl Text) f=a(i一 2)+a(i一 1)+1 a(i)=f Next Text2 Text=f End Sub 步骤 3：运行程序，在文本框中输入 40，并单击 “计算 ”按钮获得一个结果，然后单击 “存盘 ”按钮保存计算结果。 步骤 4：按要求将文件保存至考生文件夹中。
