1、国家二级 VB机试（上机操作）模拟试卷 226及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上建立一个如下表所示的下拉菜单，其中 “设置 ”菜单项为灰色(不可用 )，如图 2 58所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。(2)在名称为 Forml的窗体上面一个名称为 Hscrolll的水甲滚动条，其最大刻度为 100，最小刻度为0；再画两个单选按钮，名称分别 为 Option1、 Option2，标题分别为 “最大值 ”、
2、 “最小值 ”，且都末选中，再通过属忡窗口设置适当属件使得程序刚运行时，焦点存滚动条上 (如图 2 59所示 )。 请编写适当的事件过程，使得程序运行时，单击 “最大值 ”单选按钮，则滚动条上的滚动框移到最有端：单击 “最小值 ”单选按钮，则滚动框移到最左端。 注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在考生目录下有一个工程文件 sjt3 vbp，窗体文件中已给出所有控件和部分程序，如图 2-85所示。要求： 利用属性窗口设置适当的属性，使 Text1、 Text2
3、中数据右对齐； 请编写适当的程序完成以下功能：在 Text1中输入 40(度数 )，选择一个单选按钮，单击 “计算 ”按钮，则根据所选择的单选按钮，计算出相应的正弦、余弦值 (保留 3位小数，第 4位截去， 取 3 14159)，并显示在 Text2中。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算，在 Text1中输入的必须是 40，必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件sit4 vbp，窗体上已经给出所有摔件。程序运行时，单击 “开始 ”按钮，则汽车图标向右运动；单击 “停止 ”按钮则
4、汽车停止运动；移动滚动条上的滚动框，可以改变汽车的运动速度 (滚动框向右移动，速度减慢 )。如图 2-86所示。要求如下： 去掉程序中的注释符，把程序中的 ?改为正确的内容。 提示：窗体上有一个计时器，计时器的事件过程每执行一次，汽车向右移动 10，程序通过改变计时器控件的 Interval属性来改变汽车的运动速度。 注意：不得修改控件的属 性。最后按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp。其窗体中有一个名称为 Text1的文本框数组，下标从 0开始。程序运行时，单击 “产生随机数 ”按钮。就会产生 10个 3位数的随机数，并放入 Textl数组中，
5、如图 2 11 5(a)所示；单击 “重排数据 ”按钮，将把 Text1中的奇数移到前而，偶数移到后面，如图 2 115(b)所示。文件中已经给出了所有控件和部分程序。要求：请去掉程序中的注释符，把程序中的 ?改为止确的内容，使其能正确运行，不能修改程序的其他部分和控件属性 。最后把修改后的文件按原文件名存盘。 提示：在 “重排数据 ”按钮的事件过程中有对其算法的文字描述，请仔细阅读。 国家二级 VB机试（上机操作）模拟试卷 226答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”上程，利用菜单设计器按表 3 34在窗体上建立一个二级菜
6、单。步骤 2：按要求将文件保存至考生文间夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按表 335在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写两个单选按钮的单击事件过程。 参考代码： Private Sub OptionlClick() HSCro111 Value=100 End Sub Private Sub Option2一 C1ick() HSCr0111 Value=0 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 s
7、jt3 vbp，程序界而如图 34所示。 步骤 2：依次选中窗体中的两个文本框 ，将其 Alignment属性值设置为 1-Right Justify。 步骤 3：双击窗体中的 “计算 ”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。 参考代码： Private Sub CommandlClick() If Optionl Item(0)=True Then Text2 Text=Format(Sin(Val(Textl Text)*3 14159 180)， ”0 000”) End If If Optionl Item(1)=True Then Text2 Text=Format(C
8、os(Val(一 Textl Text)*3 14159 180)， ”0 000”) End If End Sub 步骤 4：按键运行程序，在左侧文本框中输入“40”，选择不同选项，单击 “计算 ”按钮，结果图 3-5所示。步骤 5：单击窗体右上角的关闭按钮以结束程序。 步骤6：按要求将文件保存至考生文件夹 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉柙序中的注释符 “*”，将问号 “?”改为正确的内容。 参考代码： Timer1 Enabled=True Timer1 Interval=HScr0111 ValHe Picture1 Left=PiCturel Left+10 步骤 2：按要求将文件保存存考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sit5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： j=9 temp=Textl(j) While(ij) If Textl(j)Mod 2=1 Then 步骤 2：按要求将文件保存至考生文件夹中。
