1、国家二级 VB机试（上机操作）模拟试卷 170及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1、标题为 “框架练习 ”的窗体上画一个名称为 Frame1、标题为 “字体 ”的框架摔件；在框架中画两个单选按钮，名称分别为 Option1、 Option2，标题分别为“宋体 ”、 “黑体 ”，标题在单选按钮的左边。运行后的窗体如图 2 158所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtl frm，上程文件名为 sjtl vbp。 (2)在名称为 Forml窗体上，画一个名称为
2、Imagcl的图像框，在其中显示考生文件夹下的图片 “pic2 jpg”，并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水平滚动条和一个垂直滚动条，名称分别为 HScroll1、 VScroll1，它们的刻度范围部是 1 3。如图 2 159(a)所示。要求如下： 定义两个窗体级变量： length、 high，并编写窗体的 Form Load事件过程，使 length、 high分别等于图像框的宽、高； 编写适当的事件过程，使得移动两个滚动条上的滚动块时 ，以刻度值作为图像框初始尺寸的倍数改变图像框相应方向的尺寸。例如： HScroll1的滚动块在刻度值为 2的位置时，图像框
3、的宽为初始宽度的 2倍。如图 2 159(b)所示。对于垂直滚动条也相同。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 s； t2 frm，工程文件名为sjt2 vbp。要求程序中的两个变量必须是 length、 high，此外不能再使用其他变量，除 Form Load事件过程外，其他每个事件过程中只能写一条语句。二、简单应用题 2 (1)在考生目录下有一个工程文件 sjt3 vbp，窗 体文件中已给出所有控件和部分程序，如图 2-85所示。要求： 利用属性窗口设置适当的属性，使 Text1、 Text2中数据右对齐； 请编写适当的程序完成以下功能：在 Text1中输入 40(度数
4、 )，选择一个单选按钮，单击 “计算 ”按钮，则根据所选择的单选按钮，计算出相应的正弦、余弦值 (保留 3位小数，第 4位截去， 取 3 14159)，并显示在 Text2中。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算，在 Text1中输入的必须是 40，必须用窗体右上角的关闭按钮结束程序，否则无成绩 。最后程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件sit4 vbp，窗体上已经给出所有摔件。程序运行时，单击 “开始 ”按钮，则汽车图标向右运动；单击 “停止 ”按钮则汽车停止运动；移动滚动条上的滚动框，可以改变汽车的运动速度 (滚动框向右移动
5、，速度减慢 )。如图 2-86所示。要求如下： 去掉程序中的注释符，把程序中的 ?改为正确的内容。 提示：窗体上有一个计时器，计时器的事件过程每执行一次，汽车向右移动 10，程序通过改变计时器控件的 Interval属性来改变汽车的运动速度。 注意：不得修改控件的属性。最后按 原文件名存盘。 三、综合应用题 3 在考生文件夹中有一个工程文件 sjt5 vbp。窗体外观如图 2 134所示。运行程序，单击 “读数据 ”按钮，文件中的数据被读入字符串变量中并显示在 Label2标签中。单击 “排序 ”按钮时，对读入的数据从小到大排序，并将排序结果显示在窗体的Label4控件中。要求：工程文件中已给
6、出部分程序， “读数据 ”命令按钮的事件过程不完整，淆去掉程序中的注释符，把程序中的 ?改为正确的内容。请编写 “排序 ”命令按钮的事件过程中的部分程序代码。 注意：不能修改程序的其他部分和控件属性。最后把修 改后的文件按原文件名存盘。程序调试通过后，两个命令按钮的事件过程必须至少各执行一次。 国家二级 VB机试（上机操作）模拟试卷 170答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 84在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准
7、EXE”上程，在窗体Form1中画一个图像框、一个水平滚动条和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表 3 85所示。步骤 2：打开代码编辑窗口，分别编写滚动条的 Change事件过程和窗体的 Load事什过程。 参考代码： Dim length， high Private Sub FormLoad() length=Image 1 Width high=Imagel Height End Sub Prirate Sub HScrolll Change() Imagel Width=HScr011 Value*length End Sub Private Sub VScr
8、olll_Change() Image1 Heiqht=VScrolll Value high End SUb 步骤 3：按要求将文件保存至考生文仲夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，程序界而如图 34所示。 步骤 2：依次选中窗体中的两个文本框， 将其 Alignment属性值设置为 1-Right Justify。 步骤 3：双击窗体中的 “计算 ”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。 参考代码： Private Sub CommandlClick() If Optionl Item
9、(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(Cos(Val(一 Textl Text)*3 14159 180)， ”0 000”) End If End Sub 步骤 4：按键运行程序，在左侧文本框中输入“40”，选择不同选项，单击 “计算 ”按钮，结果图 3-5所示。步骤 5：单击窗体右上角的关闭按钮以结束程序。 步骤6：按要求将文件保存至考生文件夹 第 2小题 【操作步骤】 步
10、骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉柙序中的注释符 “*”，将问号 “?”改为正确的内容。 参考代码： Timer1 Enabled=True Timer1 Interval=HScr0111 ValHe Picture1 Left=PiCturel Left+10 步骤 2：按要求将文件保存存考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit5 vbp，在代码编辑窗口，去掉稗序中的注释符 “*”，将问号 “?”改为正确的内容。 参考代码： Do While Not EOF(1) S=S Str(a(i) 步骤 2：在代码编辑窗口指定位置编写以下代码： 参考代码： num=UBound(a) For i=1 To num一 1 For j=i To num If a(i)a(j)Then t=a(i) a(i)=a(j) a(3)=t End If Next Next 步骤 3：按 键运行程序，先单击 “读数据 ”按钮，再单击 “排序 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。
