国家二级VB机试（上机操作）模拟试卷599
基本操作题
1.在标题为“列表框”、名称为Forml的窗体上添加一个名称为Listl的列表框，通过属性窗口输入4个列表项：“数学”、“语文”、“历史”、“地理”，列表项形式采用复选框形式，如图所示。列表框的宽为1100，高不限。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。
【操作步骤】
步骤1：新建一个窗体，按照题目要求建立列表框控件并设置窗体及列表框属性，如图4．29所示。
[*]
程序中用到的控件及属性见表4．4l。
[*]
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
解析：列表框的Style属性只能在设计时确定。用于控制控件的外观，其数值可以设置为0(标准样式)和l(复选框样式)。通过列表框的Name和Width属性来设置列表框的名称和宽，通过其List属性设置列表项。
2.在名称为Forml的窗体上建立一个名称为“menul”、标题为“文件”的弹出式菜单，其含有三个菜单项，它们的标题分别为：“打开”、“关闭”、“保存”，名称分别为“ml”、“m2”、“m3”。再添加一个命令按钮，名称为“Commandl”、标题为“弹出菜单”。要求：编写命令按钮的Click事件过程，使程序运行时，单击“弹出菜单”按钮可弹出“文件”菜单(如图所示)。
注意：程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
【操作步骤】
步骤l：建立界面，添加一个命令按钮，设置其Name属性为Commandl，Caption属性为“弹出菜单”。然后建立一个菜单，菜单的属性见表4．42。
[*]
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
PriVate Sub Commandl_Click()
PopupMenu menul’显示菜单menul
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：要创建弹出式菜单需要先用菜单编辑器来建立菜单，并将其主菜单项的可见(Visible)属性值设置为不可见，然后通过对象的Commandl_Click事件，执行对象的PopupMenu方法来显示菜单。
简单应用题
3.在考生文件夹下有一个工程文件sjt3．vbp，包含了所有控件和部分程序。程序运．行时，在文本框中每输入一个字符，则立即判断：若是小写字母，则将它的大写形式显示在标签labell．中；若是大写字母，则把它的小写形式显示在Iabell中，若是其他字符，则将该字符直接显示在Labell中。输入的字母总数则显示在标签LabeL2中，如图所示。
要求：去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不得修改已经存在的程序，最后将修改后的文件按原文件名存盘。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Dim n As Integer
Private Sub Textl change()
Dim ch As String
ch=Right$(Text，1)’通过Right
函数从Textl中取l位
If ch＞=＂A＂And ch＜=＂Z＂Then′
判断ch的范围是否在A～Z中
Labell．Caption=Lcase(ch)′将大写的ch转换为小写
n=n+1′累加大写字符个数
ElseIf ch＞=＂a＂And ch＜=＂
Z＂Then
′判断ch是否为小写字母
Labell．Caption=Ucase(ch)
′将ch转换为大写
n=n+1′累加小写字符个数
ElSe
Labell．Caption=ch′当不在字母范围内，则直接赋值显示
End If
Label2．Caption=n′Label2中显示满足条件的个数
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】Lcase()函数为大写字母转换成小写字母，Ucase()函数小写字母将转换成大写字母，在做题的时候要注意区别。
解析：通过Right()函数获取输入的字符，通过kase()函数和ucase()函数实现字母大小写的转换。
4. 在考生文件夹下有一个工程文件sjt4．vbp。窗体中有一个图片框，图片框中有一个蓝色圆，名称为Shapel。如图所示。
当程序运行时，单击“开始”按钮，圆半径逐渐变大(圆心位置不变)，当圆充满图片框时则变为红色，并开始逐渐缩小，当缩小到初始大小时又变为蓝色，并再次逐渐变大，如此往复。单击“停止”按钮，则停止变化。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
提示：程序中的符号常量blue_eolor表示蓝色的值，red_color表示红色的值。
注意：不能修改程序的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。
【操作步骤】
步骤I：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Dim left0 As Integer
Const blue_color=&HFF0000，red_
Color=＆HFF&
Private Sub Commandl Click()
Timerl．Enabled=Ture
′单击＂开始＂按钮。Timer生效
End Sub
Private Sub Command2_Click()
Timerl．Enabled=False′单击＂结束＂按钮，Timer失效
End Sub
Private Sub Form_Load()
left0=Shapel．Left′加载窗体时。初始化圆心到窗体的距离
本文档预览：3600字符，共7286字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
