1、国家二级 VB机试（上机操作）模拟试卷 394及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上画一个名称为 Frame1、标题为 “目的地 “的框架，在框架中添加三个复选框，名称分别为 Check1、 Check2、 Check3，其标题分别是 “上海 ”、 “广州 ”、 “巴黎 ”，其中 “上海 ”为选中状态， “广州 ”为未选状态， “巴黎 ”为灰色状态，如图 3117所示。请画控件并设置相应属性。 注意：存盘时必须存放在考生文件夹下，工程 文件名为 sjt1 vbp，窗体文件名为 s
2、jt1 frm。 (2)在名称为 Form1的窗体上画一个名称为 Picture1的图片框，其宽和高分别为1700、 1900。请编写适当事件过程，使得在运行时，单击图片框，则装入考生目录下的图形文件 pic1 bmp，如图 3118所示。单击窗体则图片框中的图形消失。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生目录下有一个工程文 件 sjt3 vbp，窗体文件中已给出所有控件和部分程序，如图 3119所示。要求： 利用属性窗口设置适当的属性，使 Te
3、xt1、Text2中数据右对齐； 请编写适当的程序完成以下功能：在 Text1中输入 40(度数 )，选择一个单选按钮，单击 “计算 ”按钮，则根据所选择的单选按钮，计算出相应的正弦、余弦值 (保留 3位小数，第 4位截去， 取 3 14159)，并显示在 Text2中。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算，在 Text1中输入的必须是 40，必须用窗体右上角的关 闭按钮结束程序，否则无成绩。最后程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体上已经给出所有控件。程序运行时，单击 “开始 ”按钮，则汽车图标向右运动；
4、单击 “停止 ”按钮则汽车停止运动；移动滚动条上的滚动框，可以改变汽车的运动速度 (滚动框向右移动，速度减慢 )。如图 3120所示。 要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容。 提示：窗体上有一个计时器，计时器的事件过程每执行一次，汽车向右移动 10，程序通过改变计时器控件的： Interval属性来改变汽车的运动速度。 注意：不得修改控件的属性。最后按原文件名存盘。 三、综合应用题 3 数列 1， 1， 2， 3， 5， 8， 13， 21， 的规律是从第三个数开始，每个数是它前面两个数之和。在考生目录下有一个工程文件 sjt5 vbp。窗体中已经给出了所有控件，如图 3
5、121所示。请编写适当的事件过程实现以下功能：在 Text1中输入整数 40，单击 “计算 ”按钮，则在 Text2中显示该数列第 40项的值；如果单击 “存盘 ”按钮，则将计算的第 40项的值存到考生目录下的 out5 txt文件中。 (提示：因数据较大，应使用 Long型变量。 ) 注意 ：在结束程序运行之前必须单击 “存盘 ”按钮，把结果存入 out5 txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 394答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程。 步骤 2：在窗体 Fo
6、rm1中加入一个框架，然后依次在框架中画出三个复选框。 步骤 3：分别设置框架和各复选框的相关属性，其属性及值如表 470所示。步骤 4：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 471在窗体中画出图片框并设置其相关属性。步骤 2：打开代码编辑窗口，编写图片框和窗体的单击事件过程。参考代码： Private Sub Form Click()Picture1 Picture LoadPicture(“ “)End SubPrivate Sub Picture1 C1ick()Picture1 Picture LoadPicture(“p
7、ic1 bmp“)End Sub 步骤 3：按要 求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件sjt3 vbp，程序界面如图 44所示。 步骤 2：依次选中窗体中的两个文本框，将其 Alignment属性值设置为 1-Right Justify。 步骤 3：双击窗体中的 “计算 ”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。参考代码： Private Sub Command1_Click() If Option1 Item(0)True Then Text2 Text Format(Sin(Val _(Te
8、xt1 Text)*3 14159 _180)， “0 00 0“) End If If Option1 Item(1) True Then Text2 Text Format(Cos(Val(_ Text1 Text)*3 14159 180)， _“0 000“) End IfEnd Sub 步骤 4：按键运行程序，在左侧文本框中输入 “40”，选择不同选项，单击 “计算 ”按钮，结果图 45所示。步骤 5：单击窗体右上角的关闭按钮以结束程序。 步骤 6：按要求将文件保存至考生文件夹 中。 (2)【操作步骤】 步骤1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程
9、序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： Timer1 EnabledTrueTimer1 Interval HSCrol11 ValuePicture1 Left PiCture1 Left 10 步骤2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt5 vbp。 步骤 2：编写 “计算 ”按钮 的单击事件过程。 参考代码： Private Sub Command1_C1iCk() Dim f1， f2， f As Long Dim a(40) As Long f1 1： f2 1 a(1) f1： a(2) f2 For i 3 To Val(Text1 Text) f f1 f2 a(i) f： f1 f2： f2 f Next Text2 Text a(40) End Sub 步骤 3：运行程序，在文本框中输入 40，并单击 “计算 ”按钮获得一个结果， 然后单击 “存盘 ”按钮保存计算结果。 步骤 4：按要求将文件保存至考生文件夹中。
