1、国家二级 VB机试(上机操作)模拟试卷 225及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 CD1的通用对话框,通过属性窗口设置 CDI的初始路径为 C:,默认的文件名为 None,标题为 “保存等级考试 ”,如图 2 125所示。 注意:存盘时必须存放在考生文件夹下,工程文件名为 sjtl vbp,窗体文件名为 sjtl frm。(2)住名称为Forml的窗体上设计一个菜单。要求住窗体上添加名为 menu0,标题为 “菜单命令 ”的主菜单,再添加两个名称分别为 “menu
2、1”、 “menu2”,标题分别为 “不可用菜单项 ”、 “上一菜单项可用 ”的子菜单,并且使程序运行时, menul子菜单不可用,menu2子菜单已经选中 (运行时的效果如图 2 126所示 )。 再编写适当的事件过程,使得程序运行时,单击 “上一菜单项可用 ”,则 “不可用菜单项 ”变为黑色 (可用 )。要求程序中不得使用变量,且只有一条语句。 注意:存盘时必须存放在考生文件夹下,工程文件名为 sjt2 vbp,窗体文件名为sjt2.frm 二、简单应用题 2 (1)在 考生文件夹下有一个工程文件 sit3 vbp,已给出了所有控件和部分程序。程序运行时,请按以下顺序操作: 1)单击 “读
3、入数据 ”按钮,可把考生对目录下的文件 in3 dat中的 100个整数读到数组 a中: 2)从名称为 List1的列表框中选中一项(如图 260所示 )。 3)单击 “计算 ”按钮,则可按该选项的要求计算出结果并放到文奉框中。 4)单击窗体右上角的关闭按钮结束程序。 “读入数据 ”按钮的 Click事件过程已经给出,请为 “计算 ”按钮编写适当的事件过程实现上述功能。 注意:不得修改已经在的程序,在结束程序运行之前, 必须进行一次计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4 vbp。窗体中横线 (横坐标 )的名称
4、为 Linel,竖线 (纵坐标 )的名称为 Line2;五个不同颜色的矩形是一个形状控件数组,名称为 Shapel,它们的 Visible属性都为False;从左到右的两个按钮的名称分别为 Command1、 Command2:另有一个有五个元素的标签数组,名称为 Labell,其所有元素的 Visible属性都为 False。如图2 61(a)所示。程序 运行时,单击 “输入 5个数据 ”按钮,可输入五个整数 (最好在100 2000之间 ),并作为刻度值显示存纵坐标的左而:单击 “画直方图 ”按钮,则按五个数的输入顺序显示直方图。例如若输入的五个数是 1 200、 500、 800、 19
5、00、1500,则结果如图 2 61fb)所示。 文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把稗序中的 ?改为正确的内容。 注意:不能修改程序的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。三、综合应用题 3 数列 1, 1, 2, 3, 5, 8, 13, 21, 的规律是从第一个数开始,每个数足它前面两个数之和。在考生目录下有一个工程文件 sit5 vbp。窗体中已经给出了所有控件,如图 2-87所示。请编写适当的事件过程实现以下功能:在 Text1中输入整数40,单击 “计算 ”按钮,则在 Text2中显示该数列第 40项的值;如果单击 “存盘 ”按
6、钮,则将计算的第 40项的值存到考生目录下的 out5 txt文件中。 (提示:凶数据较大,应使用 Long型变量。 ) 注意:在结束程序运行之前必须单击 “存盘 ”按钮,把结果存入 out5 txt文件,否则无成绩。最后把修改后的文件按原文件名存盘国家二级 VB机试(上机操作)模拟试卷 225答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1:新建一个 “标准 EXE”工程,选择【工程】 【部件】命令,在弹出的 “部件 ”对话框的列表中选中 “MicroSoft Common Dialog Control6 0”项目,单击 “确定 ”按钮。 步骤 2: 在窗体
7、Forml上画一个通用对话框,其相关属性设置如表 3 68所示。步骤 3:编写 Form1的 Load事件,加入下面的代码: CD1 ShowSave 步骤 4:按要求将文件保存至考生文件夹中。 【特别提示】通用对话框控件不是 VB内部控件,通常不会在 VB默认工具箱中列出。 第 2小题 【操作步骤】 步骤 1:新建一个 “标准 EXE”工程,打开 VB菜单设计器设计菜单,各菜单项及属性设置如表 3 69所示。步骤 2: 打开代码编辑窗口,编写 “上一菜单项可用 ”命令的 Click事件过程。 参考代码: Private Sub menu2一 Click() menul Enabled=TEu
8、e End Sub 步骤 3:按要求将文件保存全考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 l:打开考生文件夹中的本题工程文件 sjt3 vbp,双击窗体中的 “计算 ”命令按钮,在打开的代码编辑窗口中编写其单击事件过程。 参考代码: Private Sub Command2一 Click() Dim k As Integer, i1, i2 As Integer i1=a(1): i2=a(1) For k=2 TO 100 If a(k)i1 Then i1=a(k) End If If a(k)键运行程序,单击 “读入数据 ”按钮,然后在列表框中选择
9、一项,并单击 “计算 ”按钮,统计出结果。 步骤 3:单击窗体右上角的关闭按钮以结束程序。 步骤 4:按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1:打开考生文件夹中的本题工程文件 sit4 vbp,在代码编辑窗口,去掉程序中的注释符 “”,将问号 “7”改为正确的内容。 参考代码: For k=1 To 5 Labell(k一 1) Visible=True Shapel(k一 1) Height=S(k) a=Linel Y1 步骤 2:按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1:打外考生文件夹下的工程文件 sjt5 v
10、bp。 步骤 2:编写 “计算 ”按钶 !的单击事件过程。 参考代码: Private Sub CommandlC1 ick() Dim f1, f2, f As Long Dim a(40)As Long f1=1: f2=1 a(1)=f1: a f2)=f2 For i=3 To Val(Textl Text) f=f1+f2 a(i)=f: f1: f2: f2=f Next Text2 Text=a(40) End Sub 步骤 3:运行程序,在文本框中输入 40,并单击 “计算 ”按钮获得一个结果,然后单击 “存盘 ”按钮保存计算结果。 步骤 4:按要求将文件保存至考生文件夹中。