1、国家二级 VB机试（上机操作）模拟试卷 20及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画一个名称为 Framel、标题为 ”目的地 ”的框架，在框架中添加三个复选框，名称分别为 Checkl、 Check2、 Check3，其标题分别是 ”上海 ”、 ”广州 ”、 ”巴黎 ”，其中 ”上海 ”为选中状态， ”广州 ”为未选状态， ”巴黎 ”为灰色状态，如图 2-1 16所示。请画控件并设置相应属性。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl fr
2、m。 2 在名称为 Forml的窗体上画一个名称为 Picturel的图片框，其宽和高分别为1700、 1900。请编写适当事件过程，使得在运行时，单击图片框，则装入考生目录下的图形文件 piel bmp，如图 2-117所示。单击窗体则图片框中的图形消失。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sil2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 3 在考生目录下有一个工程文件 sjt3 vbp，窗体文件中已给出所有控件和部分程序，如图 2-118所示。要求： 利用属性窗口设置适当的属性，使 Textl、 Text2
3、中数据右对齐； 请编写适当的程序完成以下功能：在 Textl中输入 40(度数 )，选择一个单选按钮，单击 ”计算 ”按钮，则根据所选择的单选按钮，计算出相应的正弦、余弦值 (保留 3位小数，第 4位截去， x取 3 14159)，并显示在 Text2中。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算，在 Textl中输入的必须是 40，必须用窗体右上角的关闭按钮结束程序，否则无成绩 。最后程序按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp，窗体上已经给出所有控件。程序运行时，单击 ”开始 ”按钮，则汽车图标向右运动；单击 ”停止 ”按钮
4、则汽车停止运动；移动滚动条上的滚动框，可以改变汽车的运动速度 (滚动框向右移动，速度减慢 )。如图 2-119所示。要求如下：去掉程序中的注释符，把程序中的 ?改为正确的内容。提示：窗体上有一个计时器，计时器的事件过程每执行一次，汽车向右移动 10，程序通过改变计时器控件的 Intorval属性来改变汽车的运动速度。注意：不得修改控件的属性。最后按原 文件名存盘。 三、综合应用题 5 数列 1， 1， 2， 3， 5， 8， 13， 21， 的规律是从第三个数开始，每个数是它前面两个数之和。在考生目录下有一个工程文件 sjt5 vbp。窗体中已经给出了所有控件，如图 2-120所示。请编写适当
5、的事件过程实现以下功能：在 Textl中输入整数40，单击 ”计算 ”按钮，则在 Text2中显示该数列第 40项的值；如果单击 ”存盘 ”按钮，则将计算的第 40项的值存到考生目录下的 out5 txt文件中。 (提示：因数据较大，应使用 Long型变量。 )注意：在结束程序运行之前必须单击 ”存盘 ”按 钮，把结果存入 out5 txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 20答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程。步骤 2：在窗体 Forml中加入一个框架，然后依次在框架中画出三个复选框
6、。步骤 3：分别设置框架和各复选框的相关属性，其属性及值如表 3-65所示。 步骤4：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3-66在窗体中画出图片框并设置其相关属性。 步骤 2：打开代码编辑窗口，编写图片框和窗体的单击事件过程。参考代码： Private Sub Form_Click( )Picturel Picture=LoaldPicture(“)End SubPrivate Sub Picturel_Click( )Picturel Picture=LoadPicture(“picl bmp”)End Sub步骤 3：按要求
7、将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，程序界面如图 3-9所示。 步骤 2：依次选中窗体中的两个文本框，将其Alignment属性值设置为 1-Right Justify。步骤 3：双击窗体中的 ”计算 ”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。参考代码： Private Sub Command1_Click( )If Optionl Item(0) =True ThenText2 Text Format(Sin(Val(Textl Text) *3 14159 1 80)， “0 0 0 0”)E
8、nd IfIf Optionl Item(1)=True ThenText2 Text=Format(Cos(Val(_Text1 Text)*3 14 15 9 1 80)， ”0 00 0”)EndIfEnd Sub步骤 4：按 F5键键运行程序，在左侧文本框中输入 ”40”，选择不同选项，单击 ”计算 ”按钮，结果图 3-10所不。步骤 5：单击窗体右上角的关闭按钮以结束程序。步骤 6：按要求将文件保存至考生文件夹中。 4 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： Time
9、r1 Enabled=True Timer1 Interval=HScrolll Value Picture1 Left=Picture1 Left+10 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt5 vbp。 步骤 2：编写 ”计算 ”按钮的单击事件过程。 参考代码： Private Sub Commandl_Click( ) Dim f1， f2， f As Long Dim a(4 0)As Long fl=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(4 0) End Sub 步骤 3：运行程序，在文本框中输入 40，并单击 ”计算 ”按钮获得一个结果，然后单击 ”存盘 ”按钮保存计算结果。 步骤 4：按要求将文件保存至考生文件夹中。
