计算机等级考试(国家)-二级visualbasic机试模拟69.doc

二级VISUAL BASIC 机试模拟69
1基本操作题
1、注意：下面出现的''考生文件夹〃均为c ： \wexam\25160001o
(1) 在名称为Form ］的窗体上画一个名称为HI 的水平滚动条，请在''属性〃窗曰中设置它的属性 值，使之满足以下要求：它的最大刻度值为100,最小刻度值为【，在运行时鼠标单击滚动条上滚动 框以外的区域(不包括两边按钮)，滚动框移动10个刻度。

再在滚动条下面画两个名称分别为L1和L2 的标签，并分别显示1和100,运行时的窗体如图19-1所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sj tl • vbp,窗体文件名为sj . frm (2) 在名称为Form 】的窗体上画两个文本框，名称分别^JTextlffText2，均无初始内容；再 建立一个下拉菜单，菜单标题为''操作〃，名称为ML 此菜单下含有两个子菜单项，名称分别为Cooy 和
Clear.标题分别为''复制〃和''清除〃。

请编写适当的事件过程，使得程序运行时，单击''复制〃菜 单项,则把Text!.中的内容复制到Text2中，单击''清除〃菜单项，则清除Text2中的内容(即在 Text2 +填入空字符串)。

程序运行界面如图19-2所示。

要求在程序中不得使用任何变量，每个事件 过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名为sj t2 . vbp,窗体文件名为sj t2 . f rmo
2简单应用题
2、注意：下面出现的''考生文件夹〃均为c ： \wexam\25160001o
(1)在考生文件夹下有一个工程文件sjt3 . vbp,窗体上己经有一个标签L1,请画一个单选按 钮数组，名称为Op 】，含三个单选按钮，它们的Index 属性分别为0、［和2,标题依次为'' R 机〃、''火 车〃、''汽车〃，再画一个名称为Textl 的文本框。

窗体文件中已经给出了Opl 的Click 事件过程，但不完整，要求去掉程序中的注释符，把程序中 的？改为正确的内容，使得在运行时单击''飞机〃或''火车〃单选按钮时，在Textl 中显示''我坐飞机去〃 或''我坐火车去〃，单击''汽车〃单选按钮时，在Text ］中显示''我开汽车去〃。

程序运行界面如图19-3 所示。

C 汽车
注意：不能修改程序中的其他部分。

最后把修改后的文件按原文件名存盘。

(2)在考生文件夹下有一个工程文件sj t4 . vbp, Forml 窗体中有一个文本框，名称为Textl ；
请在窗体上画两个框架，名称分别为F1和F2,标题分别为''性别〃和''身份〃；在F1中画两个单选按钮 Opl 和0p2,标题分别为''男〃和''女〃；在F2中1而两个单选按钮0p3和0p4,标题分别为''学生〃和''
教
用选择r 飞祝
Unixl
师〃；再画一个命令按钮，名称为C1,标题为''确定〃。

程序运行界而如图19-4所示。

请编写适当的事件过程，使得在运行时，在P1和F2中各选一个单选按钮，然后单击''确定〃按钮, 就可以按照表19 - ［把结果显示在文本框中。

表
19-1
性 另0 身 份 在文本框中显示的内容
男 学生 我是男学生 男 教师 我是男教师 女
学生
我是女学生
女 教师 我是女教师
注意：考生不得修改窗体文件中已经存在的程序和Textl 的属性，在结束程序运行之前，必须 进行能够产生上表中一个结果的操作。

必须用窗体右上角的关闭按钮结束程序，否则无成绩。

3综合应用题
3、注意：下面出现的''考生文件夹〃均为c ： \wexam\25160001o
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为''口令〃 利
''允许次数〃；一个命令按钮C1,标题为''确定〃：两个文本椎名称分别为为Text 】利Text2,其中 Textl 用来输入口令（输入时，显示''*〃），无初始内容；Text2的初始内容为3。

程序给出了OL 的事件过程，但不完整，要求去掉程序中的注释符，把程序中的？改为正确内容, 使得在运行时，在Textl 中输入曰令后，单击''确定〃按钮，如果输入的是''123456〃则在Textl 中显 示''口令正确〃；如果输入其他内容，单击''确定〃后，弹出如图19-5所示的错误提示对话框，并且 Tex"中的数字减1。

最多可输入3次口令，若3次都输入错误，则禁止再次输入。

注意：不能修改程序中的其他部分。

最后把修改后的文件按原文件名存盘。

答案:
1基本操作题
1、［解析］滚动条的最大值由Max 属性设置，最小值由Min 属性设置。

鼠标卓击滚动条上滚动框以外 的区域(不包括两边按钮)滑块移动的增量值由LargeChange 属性设置。

标签上的标题由Caption 属性设置，控件的名称由Name 属性设置。

解题步骤：
第一步：建立界面并设置控件属性。

程序用到的控件及其属性见表19-2。

表 19-2 控件
属性
设置值
*
/4|
50 VJ c 掌牛 r 者淅
建许顷
筲2次U 孙藉,渚诚■聚入
4
^
第二步：调试并运行程序。

第三步：按题目要求存盘。

(2)［解析］在Visual Basic1!1,菜单项通过''菜单编辑器〃窗口建立，在窗体上单击右键选择''菜单编辑器〃选项可以打开''菜单编辑器〃窗口；文本框的内容由Text属性设置，其形式为：文本框名.Text=要显示的内容。

解题步骤：
第一步：建立界面并设置控件属性。

程序中用到的菜单项和控件的属性见表19-3。

表19-3
参考代码：
Option Explicit
Private Sub Clear_Click()
Text2.Text="" 一
End Sub
Private Sub Copy_Click() Text2.Text=Textl.Text
End Sub
第三步：调试并运行程序。

第四步：按题目耍求存盘。

答案考生文件夹
2简单应用题
2、［解析］标签和单选按钮的标题均由各自的Caption属性设置。

程序中需耍检测的单选按钮的状态，这可以通过Value属性来实现。

如果单选按钮被选中，贝Ijvalue值为1；否则Value值为0。

当建立.控件数组时，系统给每个元素赋一个惟一的索引号(Index),通过属性窗口的工ndex属性，可以知道该控件的下标是多少在文本框里显示内容通过Text属性设置，其形式为：
文本框名.Text=显示的内容
程序中用到了Select Case语句，格式如下：
Select Case变量或表达式（对于本题来说就是控件数组元素的下标）
Case 表达式列表1
语句块1
Case 表达式列表2
语句块2
[Case Else
语句块n+1]
Rn d Select
解题步骤：第一步：建立界面并设置控件属性。

程序用到的控件及其属性见表19-4。

表19-4
第二步：编写程序代码。

程序提供的代码：
Private Sub Opl_Click(Index As Integer)
Dim a As String, b As String, c As String a="我坐“
b=“我开“
'Select Case ?
Case 0
Textl.Text=a+Me.Opl(0)・Caption+”去" Case 1 ' Textl. Text = ?+Me . Opl (1) . Caption+H i n
Case 2
Textl.Text=b+Me.Opl(2) .Caption+ ”去" End Select End Sub
参考代码：
Private Sub Opl Click(Index As Integer)
Dim a As String, b As String, c As String a= “我坐“
b=“我开“
Select Case Index
Case 0
Textl.Text=a+Me .Opl (0) . Caption+"i,'
Case 1
Textl.Text=a+Me.Opl(1) .Caption+ ”去"
Case 2
Textl. Text=b+Me . Opl (2 ) . Caption+ ”去”
End Select
End Sub
第三步：调试并运行程序。

第四步：按题目要求存盘。

& Opl.Caption & 0p2.Caption & 0p3.Caption & 0p4.Caption
(2)［解析］在窗体上建立好控件后，先设置控件属性，再编写事件过程。

命令按钮标题由Caption 属性设置，单击命令触发Click 事件；单选按钮的标题由Caption 属 性设置，程序中需要检测的单选按钮的状态，通过Value 属性来实现，如果单选按钮被选中，则Value 值为1,否则Value 值为0。

在文本椎中显示内容通过Text 属性实现，其形式为：
文本框名.Text=显示的内容。

解题步骤：
第一步：建立界而并设置控件属性。

程序用到的控件及其属性见表19-5。

表 19-5
第二步：编写程序代码。

参考代码:
Private Sub Cl_Click() Text 】 .Text 我是" If Opl.Value Then
Textl.Text=Textl.Text Else
Textl.Text=Textl.Text End If
If 0p3.Value Then
Textl.Text=Textl.Text Else
Textl.Text=Textl.Text End If End Sub
Private Sub Form_Unload(Cancel As Integer)
Open "out4.txt" For Output As #1
Print #1 z Opl.Value, Op2.Value, 0p3.Value, Op4.Value, Textl.Text Close #1 End Sub
第三步：调试并运行程序。

第四步：按题目要求存盘。

3综合应用题
3、［解析］在窗体上建立好控件后，先设置控件属性，再编写事件过程。

在文本框里显示的内誉通过Texts 属性设置，其形式为：
文本框名.Text=显示的内容
要使文本框内容显示为'' *〃，需将PasswordChar 属性设置为。

程序中用到的MsgBoxiu 句用法为：
MsgBox提示［,按钮］［,标题］
在程序运行时控件是否可操作由Enabled属性设置，当该属性为True时控件可操作，为False 时不可操作。

若3次都入错误，禁止再次输入，将文本框的Enabled属性置为False即可。

解题步骤: 第一步：建立界面并设置控件属性。

程序中用到的控件及其属性值见表】9-6。

表19-6
程序提供的代码：
Private Sub Cl_CliCk()
*If ? = "123456" Then
Textl. Text=" 口令正确"
*TeXtl.?=""
Else
Text2.Text=TeXt2.Text-1
1 If Text2.Text>? Then
MsgBox"第"& (3-Text2 .Text) &”次曰令错误，请重新输入“ Else
MsgBox "3次输入错误，请退出"
1Textl.Enabled=?
End If
End If
End Sub
参考代码：
Private Sub Cl_Click()
If Textl.Text="123456" Then
Textl. Text=" 口令正确”
Text1.PasswordChar=""
Else
Text2.Text=TeXt2.Text-1
If Text2 .Text>0 Then
MsgBox"第"& (3-Text2 .Text) & “次口令错误，请重新输入" Else
MsgBox"3次输入错误，请退出"
Textl.Enabled=False
End If
End If
End SUb
第三步：调试并运行程序。

第四步：按题目要求存盘。