1、国家二级 VB机试（上机操作）模拟试卷 341及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上画一个名称为 CD1的通用对话框，通过属性窗口设置 CD1的初始路径为C：，默认的文件名为 None，标题为“保存等级考试”，如图 3160 所示。 (1)在名称为 Form1的窗体上画一个名称为 CD1的通用对话框，通过属性窗口设置 CD1的初始路径为 C：，默认的文件名为None，标题为“保存等级考试”，如图 3160 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为 sjtl
2、frm。 (2)在名称为 Form1的窗体上设计一个菜单。要求在窗体上添加名为 menu0，标题为“菜单命令”的主菜单，再添加两个名称分别为“menul”、“menu2”，标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单，并且使程序运行时，menul 子菜单不可用，menu2子菜单已经选中(运行时的效果如图 3161 所示)。 再编写适当的事件过程，使得程序运行时，单击“上一菜单项可用”，则“不可用菜单项”变为黑色(可用)。要求程序中不得使用变量，且只有一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。（分数：2.00）_二、简单
3、应用题(总题数：1，分数：2.00)2.(1)在考生目录下有一个工程文件 sjt3vbp，窗体文件中已给出所有控件和部分程序，如图 3119 所示。要求： 利用属性窗口设置适当的属性，使 Text1、Text2 中数据右对齐； 请编写适当的程序完成以下功能：在 Text1中输入 40(度数)，选择一个单选按钮，单击“计算”按钮，则根据所选择的单选按钮，计算出相应的正弦、余弦值(保留 3位小数，第 4位截去， 取 314159)，并显示在 Text2中。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算，在 Text1中输入的必须是 40，必须用窗体右上角的关闭按
4、钮结束程序，否则无成绩。最后程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，窗体上已经给出所有控件。程序运行时，单击“开始”按钮，则汽车图标向右运动；单击“停止”按钮则汽车停止运动；移动滚动条上的滚动框，可以改变汽车的运动速度(滚动框向右移动，速度减慢)。如图 3120 所示。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。程序功能为：在文本框 Text1中输入一个正整数 N后，单击“计算”按钮，则计算 1 1 +2 2 +3 3 +N N ，并将计算结果显示在 Text2中。程序中的函数 f可以计算
5、 m m 的值。 在给出的窗体文件中已经有了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的“?”改为正确的内容，并编写相应的程序，实现程序的功能，并且必须在运行时计算 N=8时的结果。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须计算 N=8时的结果，否则无成绩。（分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 341答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上画一个名称为 CD1的通用对话框，通过属性窗口设置 CD1的初始路径为C：，
6、默认的文件名为 None，标题为“保存等级考试”，如图 3160 所示。 (1)在名称为 Form1的窗体上画一个名称为 CD1的通用对话框，通过属性窗口设置 CD1的初始路径为 C：，默认的文件名为None，标题为“保存等级考试”，如图 3160 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为 sjtlfrm。 (2)在名称为 Form1的窗体上设计一个菜单。要求在窗体上添加名为 menu0，标题为“菜单命令”的主菜单，再添加两个名称分别为“menul”、“menu2”，标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单，并且使程序运行时，menu
7、l 子菜单不可用，menu2子菜单已经选中(运行时的效果如图 3161 所示)。 再编写适当的事件过程，使得程序运行时，单击“上一菜单项可用”，则“不可用菜单项”变为黑色(可用)。要求程序中不得使用变量，且只有一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。（分数：2.00）_正确答案：(正确答案：(1)步骤 1：新建一个“标准 EXE”工程，选择【工程】【部件】命令，在弹出的“部件”对话框的列表中选中“MicroSoft Common Dialog Control60”项目，单击“确定”按钮。 步骤 2： 在窗体 Form1上画一个
8、通用对话框并设置相关属性。 步骤 3：编写 Form1的 Load事件，加入的代码：CD1ShowSave 步骤 4：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个“标准 EXE”工程，打开 VB菜单设计器按要求设计菜单。 步骤 2：打开代码编辑窗口，编写“上一菜单项可用”命令的 Click事件过程。参考代码： Private Sub menu2_Click() menulEnabled=True End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：解析：(1)通用对话框的初始路径由 InitDir属性设置，默认文件名由 FileName属性设置，标题由DialogT
9、itle属性设置。 (2)本题源程序设计思路：在“上一菜单项可用”命令的单击事件过程中，通过语句设置“不可用菜单项“命令的 Enabled属性值为 True。二、简单应用题(总题数：1，分数：2.00)2.(1)在考生目录下有一个工程文件 sjt3vbp，窗体文件中已给出所有控件和部分程序，如图 3119 所示。要求： 利用属性窗口设置适当的属性，使 Text1、Text2 中数据右对齐； 请编写适当的程序完成以下功能：在 Text1中输入 40(度数)，选择一个单选按钮，单击“计算”按钮，则根据所选择的单选按钮，计算出相应的正弦、余弦值(保留 3位小数，第 4位截去， 取 314159)，并
10、显示在 Text2中。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算，在 Text1中输入的必须是 40，必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，窗体上已经给出所有控件。程序运行时，单击“开始”按钮，则汽车图标向右运动；单击“停止”按钮则汽车停止运动；移动滚动条上的滚动框，可以改变汽车的运动速度(滚动框向右移动，速度减慢)。如图 3120 所示。 （分数：2.00）_正确答案：(正确答案：(1)步骤 1：打开考生文件夹中的本题工程文件 sjt3vbp，程序界面如图 44所示
11、。)解析：解析：(1)本题可通过利用 IfElse语句来判断第一个单选按钮是否被选中，若是则进行正弦运算，否则进行余弦运算。 (2)本题要求在单击“开始”按钮时，汽车向右运动，其实质是在“开始”按钮的单击事件过程中启动计时器，故第一个?处应改为 True。要通过移动滚动条上的滚动框来改变汽车的运动速度，需在滚动条的 Change事件过程中，将滚动条当前 Value属性值赋予计时器的 Interval属性，第二个?处应改为 Timerl。汽车向右移动是在计时器的 Timer事件过程中，通过不断增加图片框的 Left属性值来实现的，故第三个?处应改为 Picture1Left。三、综合应用题(总题
12、数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。程序功能为：在文本框 Text1中输入一个正整数 N后，单击“计算”按钮，则计算 1 1 +2 2 +3 3 +N N ，并将计算结果显示在 Text2中。程序中的函数 f可以计算 m m 的值。 在给出的窗体文件中已经有了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的“?”改为正确的内容，并编写相应的程序，实现程序的功能，并且必须在运行时计算 N=8时的结果。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须计算 N=8时的结果，否则无成绩。（分数：2.00）
13、_正确答案：(正确答案：步骤 1：打开考生文件夹下的工程文件 sjt5vbp，在码编辑窗口的指定位置输入以下代码。参考代码： PriVate Sub Command1_Click() =考生编写程序开始= Dim i，j As Integer，k As Long i=Text1Text k=0 For j=1 To i k=k+f(j) NeXt Text2Text=k =考生编写程序结束= Open AppPath & “Out5dat“ For Output As #1 Print #1，Text1，Text2 Close #1 End Sub 步骤 2：在代码编辑窗口中，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： s=1 s=s*m f=s 步骤 3：按F5键运行程序，在文本框中输入 8，单击“计算”按钮。 步骤4：按要求将文件保存至考生文件夹中。)解析：解析：函数 f利用一个 For循环来计算 m的 m次幂，需要先设置一个累乘积变量初值为 1，然后循环 m次，在循环中每次在累乘积上乘以 m。循环结束时将累乘积作为函数返回值。 在“计算”按钮的单击事件中，要求一个数列的累加和，需要先设置累加和变量初值为 0，然后使用 For循环循环 n次，在每次循环中为累加和变量累加 f(j)，循环结束后累加和变量的值即为所求。
