国家二级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版点下载
