1、国家二级 VB机试（上机操作）模拟试卷 341及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上画一个名称为 CD1的通用对话框，通过属性窗口设置 CD1的初始路径为 C：，默认的文件名为 None，标题为 “保存等级考试 ”，如图 3 160所示。 (1)在名称为 Form1的窗体上画一个名称为 CD1的通用对话框，通过属性窗口设置 CD1的初始路径为 C：，默认的文件名为 None，标题为 “保存等级考试 ”，如图 3 160所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。(2)在名称为Form1的窗体上设计一个
2、菜单。要求在窗体上添加名为 menu0，标题为 “菜单命令 ”的主菜单，再添加两个名称分别为 “menul”、 “menu2”，标题分别为 “不可用菜单项 ”、 “上一菜单项可用 ”的子菜单，并且使程序运行时， menul子菜单不可用，menu2子菜单已经选中 (运行时的效果如图 3 161所示 )。 再编写适当的事件过程，使得程序运行时，单击 “上一菜单项可用 ”，则 “不可用菜单项 ”变为黑色 (可用 )。要求程序中不得使用变量，且只有一条语句。 注意：存盘时必须存放在考生文件夹下 ，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在考生目录下有一
3、个工程文件 sjt3 vbp，窗体文件中已给出所有控件和部分程序，如图 3 119所示。要求： 利用属性窗口设置适当的属性，使 Text1、Text2中数据右对齐； 请编写适当的程序完成以下功能：在 Text1中输入 40(度数 )，选择一个单选按钮，单击 “计算 ”按钮，则根据所选择的单选按钮，计算出相应的正弦、余弦值 (保留 3位小数，第 4位截去， 取 3 14159)，并显示在 Text2中。 注意：考生不得修 改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算，在 Text1中输入的必须是 40，必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后程序按原文件名存盘。
4、(2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体上已经给出所有控件。程序运行时，单击 “开始 ”按钮，则汽车图标向右运动；单击 “停止 ”按钮则汽车停止运动；移动滚动条上的滚动框，可以改变汽车的运动速度 (滚动框向右移动，速度减慢 )。如图 3 120所示。要求如下： 去掉程序中的注释符，把程序中的 “?”改为正确的内容。 提示：窗体上有一个计时器，计时器的事件过程每执行一次，汽车向右移动 10，程序通过改变计时器控件的 Interval属性来改变汽车的运动速度。 注意：不得修改控件的属性。最后按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp。程序
5、功能为：在文本框 Text1中输入一个正整数 N后，单击 “计算 ”按钮，则计算 11+22+33+N N，并将计算结果显示在 Text2中。程序中的函数 f可以计算 mm的值。 在给出的窗体文件中已经有了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容，并编写相应的程序，实现程序的功能，并且必须在运行时计算 N=8时的结果。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须计算 N=8时的结果，否则无成绩。 国家二级 VB机试（上机操作）模拟试卷 341答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1
6、：新建一个 “标准 EXE”工程，选择【工程】 【部件】命令，在弹出的 “部件 ”对话框的列表中选中 “MicroSoft Common Dialog Control6 0”项目，单击 “确定 ”按钮。 步骤 2： 在窗体 Form1上画一个通用对话框并设置相关属性。 步骤 3：编写 Form1的 Load事件，加入的代码： CD1 ShowSave 步骤 4：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个 “标准 EXE”工程，打开 VB菜单设计器按要求设计菜单。 步骤 2：打开代码编辑窗口，编写 “上一菜单项可用 ”命令的 Click事件过程。参考代码： Private Sub
7、 menu2_Click() menul Enabled=True End Sub 步骤 3：按要求将文 件保存至考生文件夹中。 【试题解析】 (1)通用对话框的初始路径由 InitDir属性设置，默认文件名由FileName属性设置，标题由 DialogTitle属性设置。 (2)本题源程序设计思路：在 “上一菜单项可用 ”命令的单击事件过程中，通过语句设置 “不可用菜单项 “命令的 Enabled属性值为 True。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，程序界面如图 44所示。 步骤 2：依次选中窗体中的两个文本框，将其 Al
8、ignment属性值设置为 1-Right Justify。 步骤 3：双击窗体中的 “计算 ”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。参考代码：Private Sub Command1_Click()If Optionl Item(0)=True ThenText2 Text =Format(Sin(Val(Text1 Text) * 3 14159 180)， “0 000“)End IfIf Optionl Item(1)=True ThenText2 Text=Format(Cos(Val(Text1 Text)*3 14159180)， “0 000“)End IfEnd
9、 Sub 步骤 4：按键运行程序，在左侧文本框中输入 “40”，选择不同选项，单击 “计算 ”按钮，结果图 4 5所示。步骤 5：单击窗体右上角的关闭按钮以结束程序。 步骤 6：按要求将文件保存至考生文件夹中。 (2)步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号 “?”改为正确的内容。参考代码：Timerl Enabled=TrueTimerl Interval=HScroll1 ValuePicture1 Left=Picture1 Left+10步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 (1)本题可通过利用 If
10、Else 语句来判断第一个单选按钮是否被选中，若是则进行正弦运算，否则进行余弦运算。 (2)本题要求在单击 “开始 ”按钮时，汽车向右运动，其实质是在 “开始 ”按钮的单击事件过程中启动计时器，故第一个 ?处应改为 True。要通过移动滚动条上的滚动框来改变汽车的运动速度，需在滚动条的 Change事件过程中，将 滚动条当前Value属性值赋予计时器的 Interval属性，第二个 ?处应改为 Timerl。汽车向右移动是在计时器的 Timer事件过程中，通过不断增加图片框的 Left属性值来实现的，故第三个 ?处应改为 Picture1 Left。 三、综合应用题 3 【正确答案】 步骤 1
11、：打开考生文件夹下的工程文件 sjt5 vbp，在码编辑窗口的指定位置输入以下代码。参考代码： PriVate Sub Command1_Click() =考生编写程序开始 = Dim i， j As Integer， k As Long i=Text1 Text k=0 For j=1 To i k=k+f(j) NeXt Text2 Text=k =考生编写程序结束 = Open App Path & “ Out5 dat“ For Output As #1 Print #1， Text1， Text2 Close #1 End Sub 步骤 2：在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： s=1 s=s*m f=s 步骤 3：按 键运行程序，在文本框中输入 8，单击 “计算 ”按钮。 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 函数 f利用一个 For循环来计算 m的 m次幂，需要先设置一个累乘积变量初值为 1，然后循环 m次，在循环中每次在累乘积上乘以 m。循环结束时将累乘积作为函数返回值。 在 “计算 ”按钮的单击事件中，要求一个数列的累加和，需要先设置累加和变量初值为 0，然后使用 For循环循环 n次，在每次循环中为累加 和变量累加 f(j)，循环结束后累加和变量的值即为所求。
