1、国家二级 VB 机试（上机操作）-试卷 7 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上画一个名称为 CD1 的通用对话框，通过属性窗口设置 CDI 的初始路径为 C：，默认的文件名为 None，标题为“保存等级考试”，如图 2125 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjtlvbp，窗体文件名为 sjtlfrm。 (2)住名称为 Forml 的窗体上设计一个菜单。要求住窗体上添加名为 menu0，标
2、题为“菜单命令”的主菜单，再添加两个名称分别为“menu1”、“menu2”，标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单，并且使程序运行时，menul 子菜单不可用，menu2 子菜单已经选中(运行时的效果如图 2126 所示)。 再编写适当的事件过程，使得程序运行时，单击“上一菜单项可用”，则“不可用菜单项”变为黑色(可用)。要求程序中不得使用变量，且只有一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为sjt2.frm （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sit3vbp，
3、已给出了所有控件和部分程序。程序运行时，请按以下顺序操作： 1)单击“读入数据”按钮，可把考生对目录下的文件 in3dat 中的 100 个整数读到数组 a中： 2)从名称为 List1 的列表框中选中一项(如图 260 所示)。 3)单击“计算”按钮，则可按该选项的要求计算出结果并放到文奉框中。4)单击窗体右上角的关闭按钮结束程序。 “读入数据”按钮的 Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。 注意：不得修改已经在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件夹下
4、有一个工程文件 sjt4vbp。窗体中横线(横坐标)的名称为 Linel，竖线(纵坐标)的名称为 Line2；五个不同颜色的矩形是一个形状控件数组，名称为Shapel，它们的 Visible 属性都为 False；从左到右的两个按钮的名称分别为 Command1、Command2：另有一个有五个元素的标签数组，名称为 Labell，其所有元素的 Visible 属性都为 False。如图 261(a)所示。程序运行时，单击“输入 5 个数据”按钮，可输入五个整数(最好在 1002000 之间)，并作为刻度值显示存纵坐标的左而：单击“画直方图”按钮，则按五个数的输入顺序显示直方图。例如若输入的五
5、个数是 1 200、500、800、1900、1500，则结果如图 261fb)所示。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把稗序中的?改为正确的内容。 注意：不能修改程序的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.数列 1，1，2，3，5，8，13，21，的规律是从第一个数开始，每个数足它前面两个数之和。在考生目录下有一个工程文件 sit5vbp。窗体中已经给出了所有控件，如图 2-87 所示。请编写适当的事件过程实现以下功能：在 Text1 中输入整数 40，单击“计算”按
6、钮，则在 Text2 中显示该数列第 40 项的值；如果单击“存盘”按钮，则将计算的第 40 项的值存到考生目录下的 out5txt 文件中。 (提示：凶数据较大，应使用 Long 型变量。) 注意：在结束程序运行之前必须单击“存盘”按钮，把结果存入out5txt 文件，否则无成绩。最后把修改后的文件按原文件名存盘 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 7 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上画
7、一个名称为 CD1 的通用对话框，通过属性窗口设置 CDI 的初始路径为 C：，默认的文件名为 None，标题为“保存等级考试”，如图 2125 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjtlvbp，窗体文件名为 sjtlfrm。 (2)住名称为 Forml 的窗体上设计一个菜单。要求住窗体上添加名为 menu0，标题为“菜单命令”的主菜单，再添加两个名称分别为“menu1”、“menu2”，标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单，并且使程序运行时，menul 子菜单不可用，menu2 子菜单已经选中(运行时的效果如图 2126 所示)。 再编写适当的事件过程
8、，使得程序运行时，单击“上一菜单项可用”，则“不可用菜单项”变为黑色(可用)。要求程序中不得使用变量，且只有一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为sjt2.frm （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，选择【工程】【部件】命令，在弹出的“部件”对话框的列表中选中“MicroSoft Common Dialog Control60”项目，单击“确定”按钮。 步骤 2： 在窗体 Forml 上画一个通用对话框，其相关属性设置如表 368 所示。步骤 3：编写 Form1 的
9、Load 事件，加入下面的代码： CD1ShowSave 步骤 4：按要求将文件保存至考生文件夹中。 【特别提示】通用对话框控件不是 VB 内部控件，通常不会在 VB 默认工具箱中列出。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，打开 VB 菜单设计器设计菜单，各菜单项及属性设置如表 369 所示。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sit3vbp，已给出了所有控件和部分程序。程序运行时，请按以下顺序操作： 1)单击“读入数据”按钮，可把考生对目录下的文件 in3dat 中的 100 个整数读到数组 a中： 2
10、)从名称为 List1 的列表框中选中一项(如图 260 所示)。 3)单击“计算”按钮，则可按该选项的要求计算出结果并放到文奉框中。4)单击窗体右上角的关闭按钮结束程序。 “读入数据”按钮的 Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。 注意：不得修改已经在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp。窗体中横线(横坐标)的名称为 Linel，竖线(纵坐标)的名称为 Line2；五个不同颜色的矩形是一个形状控件数组，名称为Shape
11、l，它们的 Visible 属性都为 False；从左到右的两个按钮的名称分别为 Command1、Command2：另有一个有五个元素的标签数组，名称为 Labell，其所有元素的 Visible 属性都为 False。如图 261(a)所示。程序运行时，单击“输入 5 个数据”按钮，可输入五个整数(最好在 1002000 之间)，并作为刻度值显示存纵坐标的左而：单击“画直方图”按钮，则按五个数的输入顺序显示直方图。例如若输入的五个数是 1 200、500、800、1900、1500，则结果如图 261fb)所示。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把稗序中
12、的?改为正确的内容。 注意：不能修改程序的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 l：打开考生文件夹中的本题工程文件 sjt3vbp，双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。 参考代码： 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)键运行程序，单击“
13、读入数据”按钮，然后在列表框中选择一项，并单击“计算”按钮，统计出结果。 步骤 3：单击窗体右上角的关闭按钮以结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件sit4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“7”改为正确的内容。 参考代码： For k=1 To 5 Labell(k 一 1)Visible=True Shapel(k 一 1)Height=S(k) a=LinelY1 步骤 2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.数列 1，1，2，3，
14、5，8，13，21，的规律是从第一个数开始，每个数足它前面两个数之和。在考生目录下有一个工程文件 sit5vbp。窗体中已经给出了所有控件，如图 2-87 所示。请编写适当的事件过程实现以下功能：在 Text1 中输入整数 40，单击“计算”按钮，则在 Text2 中显示该数列第 40 项的值；如果单击“存盘”按钮，则将计算的第 40 项的值存到考生目录下的 out5txt 文件中。 (提示：凶数据较大，应使用 Long 型变量。) 注意：在结束程序运行之前必须单击“存盘”按钮，把结果存入out5txt 文件，否则无成绩。最后把修改后的文件按原文件名存盘 （分数：2.00）_正确答案：(正确答
15、案：【操作步骤】 步骤 1：打外考生文件夹下的工程文件 sjt5vbp。 步骤 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(TextlText) f=f1+f2 a(i)=f：f1：f2：f2=f Next Text2Text=a(40) End Sub 步骤 3：运行程序，在文本框中输入 40，并单击“计算”按钮获得一个结果，然后单击“存盘”按钮保存计算结果。 步骤 4：按要求将文件保存至考生文件夹中。)解析：
