1、国家二级 VB 机试（上机操作）-试卷 64 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为CDl 的通用对话框，通过属性窗口设置 CDl 的初始路径为 C：，默认的文件名为 None，标题为“保存等级考试”，如图 3125 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtlvbp，窗体文件名为 sjtlfrm。 (2)在名称为 Forml 的窗体上设计一个菜单。要求在窗体上添加名为 menu0，标题为
2、“菜单命令”的主菜单，再添加两个名称分别为“menu1”、“menu2”，标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单，并且使程序运行时，menul 子菜单不可用，menu2 子菜单已经选中(运行时的效果如图 3126 所示)。再编写适当的事件过程，使得程序运行时，单击“上一菜单项可用”，则“不可用菜单项”变为黑色(可用)。要求程序中不得使用变量，且只有一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为sjt2fm （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sit3vbp，窗体上有一个
3、矩形和一个圆，还有垂直和水平滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图3140(a)所示：滚动块在最右边时，圆靠在矩形的右边线上，如图 3140(b)所示。垂直滚动条的情况与此类似。 文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4vbp。窗体中已经给出了所有控件，如图 3141 所示。运行时
4、，单击“发射”按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入云中后则停止，并把飞行距离(用坐标值表示)、所用时间(单位为秒)分别显示在标签 Labell 和 Label2 中；单击“保存”按钮，则把飞行距离、所用时间存入考生文件夹下的 out4txt 文件中。文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.数列 1，1，3，5，9，15，25，41，的规律是从第三个数开始，每个数是它前面两个数的和加 1。在考牛目
5、录下有一个工程文件 sjt5vbp。窗体中已经给出了所有控件，如图 3106 所示。请编写适当的事件过程实现以下功能：在 Text1 中输入整数 40，单击“计算”按钮，则在 Text2 中显示该数列第 40项的值。如果单击“存盘”按钮，则将计算的第 40 项的值存到考生目录下的 out5txt 文件中。 (提示：因数据较大，应使用 Long 型变量。) （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 64 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)
6、。(1)在名称为 Forml 的窗体上画一个名称为CDl 的通用对话框，通过属性窗口设置 CDl 的初始路径为 C：，默认的文件名为 None，标题为“保存等级考试”，如图 3125 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtlvbp，窗体文件名为 sjtlfrm。 (2)在名称为 Forml 的窗体上设计一个菜单。要求在窗体上添加名为 menu0，标题为“菜单命令”的主菜单，再添加两个名称分别为“menu1”、“menu2”，标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单，并且使程序运行时，menul 子菜单不可用，menu2 子菜单已经选中(运行时的效果如图 31
7、26 所示)。再编写适当的事件过程，使得程序运行时，单击“上一菜单项可用”，则“不可用菜单项”变为黑色(可用)。要求程序中不得使用变量，且只有一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为sjt2fm （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE“工程，选择【工程】【部件】命令，在弹出的“部件“对话框的列表中选中“MicroSofy Common Dialog Control60”项目，单击“确定”按钮。 步骤 2： 在窗体 Forml 上画一个通用对话框并设置相关属性。 步骤 3：编写 For
8、ml的 Load 事件，加入下面的代码：CD 1ShowSave 步骤 4：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，打开 VB 菜单设计器按要求设计菜单。 步骤 2： 打开代码编辑窗口，编写“上一菜单项可用”命令的 Click 事件过程。 参考代码： Private Sub menu2 C1ick() menulEnabled=True End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sit3vbp，窗体上有一个矩形和一个圆，还有垂
9、直和水平滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图3140(a)所示：滚动块在最右边时，圆靠在矩形的右边线上，如图 3140(b)所示。垂直滚动条的情况与此类似。 文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4vbp。窗体中已经给出了所有控件，如图 3141 所示。运行时，单击“发射”按钮，
10、航天飞机图标将向上运动，速度逐渐加快，全部进入云中后则停止，并把飞行距离(用坐标值表示)、所用时间(单位为秒)分别显示在标签 Labell 和 Label2 中；单击“保存”按钮，则把飞行距离、所用时间存入考生文件夹下的 out4txt 文件中。文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt3vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。
11、参考代码： HSCEolllMax=Shape2Width+Shape2LeftShapelWidth WScrolllMax=Shape2Height+Shape2Top ShapelHeight ShapelLeft=HSCEOlllValue ShapelTop=VScEOlll 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： TimerlEnabled=True TimerlEnabled=False d=dImagelTo
12、p t=t+1 步骤 2：按键运行程序，先单击“发射”按钮，计算完毕后单击“存盘”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 3：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.数列 1，1，3，5，9，15，25，41，的规律是从第三个数开始，每个数是它前面两个数的和加 1。在考牛目录下有一个工程文件 sjt5vbp。窗体中已经给出了所有控件，如图 3106 所示。请编写适当的事件过程实现以下功能：在 Text1 中输入整数 40，单击“计算”按钮，则在 Text2 中显示该数列第 40项的值。如果单击“存盘”按钮，则将计算的第 40 项的值存
13、到考生目录下的 out5txt 文件中。 (提示：因数据较大，应使用 Long 型变量。) （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sit5vbp。 步骤 2：编写“计算”按钮的单击事件过程。 参考代码： Private Sub Commandl C1 i ck() Dim f As Long a(1)=1 a(2)=1 For i=3 To Val(TextlText) f=a(i 一 2)+a(i 一 1)+1 a(i)=f Next Text2Text=f End Sub 步骤 3：运行程序，在文本框中输入 40，并单击“计算”按钮获得一个结果，然后单击“存盘”按钮保存计算结果。 步骤 4：按要求将文件保存至考生文件夹中。)解析：
