国家二级VB机试(上机操作)模拟试卷410
基本操作题
1.(1)请在名称为Form1的窗体上添加一个名称为H1的水平滚动条,并在属性窗口中设置它的属性值,使其满足下列要求:它的最小刻度值为1,最大刻度值为100,在程序运行时,用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮),滚动框移动10个刻度。再在滚动条下面画两个名称分别为L1和L2的标签,并分别显示1和100,运行时的窗体如图所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
(2)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框,初始内容均为空;再建立一个下拉菜单,菜单标题为“操作”,名称为M1,此菜单下含有两个菜单项,名称分别为Copy和Clear,标题分别为“复制”、“清除”,请编写适当的事件过程,使得在程序运行时,单击“复制”选项菜单,则把Text1中的内容复制到Text2中,单击“清除”选项菜单,则清除Text2中的内容(即在Text2中填入空字符串)。运行时的窗体如图所示。要求在程序中不得使用任何变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为Sjt2.vbp,窗体文件名为sjt2.frm。
(1)【操作步骤】
步骤1:打开Visual Basic开发环境,按照题目的要求新建窗体并添加一个水平滚动条控件,如图3.1所示。
[*]
步骤2:在属性窗口中,按照题目的要求设置水平滚动条的相关属性,如图3.2所示。
[*]
步骤3:按照题目的要求,在窗体上添加两个标签控件,如图3.3所示。
[*]
步骤4:按照题目的要求设置两个标签的相关属性,如图3.4所示。
[*]
程序中用到的控件及属性见表3.1。
[*]
步骤5:按下键盘上的F5键运行程序,程序运行后的窗体界面如图3.5所示。
[*]
步骤6:按题目要求保存工程和窗体,如图3.6所示。
[*]
(2)【操作步骤】
步骤1:新建窗体,按表3.2建立菜单项并设置其属性,如图3.7所示。
[*]
步骤2:同步骤1,输入第3项的标题和名称,单击确定即可。
步骤3:添加文本框控件,按表3.3设置文本框的属性。
[*]
步骤4:打开代码编写窗口,编写程序代码,如图3.8所示。
[*]
参考答案
Private Sub Clear Click()
Text2.Text=\\
解析:
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上已经有一个标签Label1,请添加一个单选按钮数组,名称为Op1,含三个单选按钮,它们的Index属性分别为0、1、2,标题依次为“飞机”、“火车”、“汽车”,再添加一个名称为Text1的文本框。窗体文件中已经给出了Op1的Click事件过程,但不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容,使得在程序运行时单击“飞机”或“火车”单选按钮时,在Text1中显示“我坐飞机去”或“我坐火车去”,单击“汽车”单选按钮时,在Text1中显示“我开汽车去”,如图所示。
注意:不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,Form1窗体中有一个文本框,名称为Text1;请先在窗体上添加两个框架控件,名称分别为F1、F2,标题分别为“性别”、“身份”;然后在F1中添加两个单选按钮控件Op1、Op2,标题分别为“男”、“女”;其次在F2中添加两个单选按钮控件Op3、Op4,标题分别为“学生”、“教师”;最后再添加一个命令按钮,名称为C1,标题为“确定”,如图所示。请编写适当的事件过程,使得运行时,在F1、F2中各选一个单选按钮,然后单击“确定”按钮,就可以按照下表把结果显示在文本框中。
(1)【操作步骤】
步骤1:打开本题工程文件,按照题目要求建立单选按钮数组,如图3.9所示。
[*]
步骤2:按照题目要求建立其他控件并设置其属性,见表3.4。
[*]
步骤3:打开代码编辑窗口,去掉程序中的注释符“’”将问号改为正确的内容。
参考答案
Private Sub Op1_Click(Index As Integer)
Dim a As String,b As String,c As String
a=\\
解析:
综合应用题
3.以下数列:1,1,2,3,5,8,13,21…的规律是从第3个数开始,每个数都是其前面两个数之和。
在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件:如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击“计算”按钮,则计算出上述数列第n项的值,并在文本框中显示,n是选中的单选按钮后面的数值(提示:因计算结果较大,应使用长整型变量)。
注意:不能修改已经给出的程序和已有的控件的属性;在结束程序运行之前,必须选中一个单选按钮,并单击“计算”按钮以获得一个结果;必须使用窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。
【操作步骤】
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
Dim a()As Long
Dim i As Integer
Dim n As Integer
’Opl.Count是单选按钮数目,这里用的是控件数组
For i=0 To Op1.Count-1
’判断哪一项被选择,把它后面的数值赋给n,确定n值
If Opl(i).Value=True Then
n=Val(Opl(i).Caption)
Exit For
End If
Next
ReDim a(n)’重新申请空间,这里是动态申请
a(1)=1
本文档预览:3600字符,共3808字符,源文件无水印,下载后包含无答案版和有答案版,查看完整word版点下载