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:按要求将文件保存至考生文件夹中。