计算机二级vb试题答案.pdf

第一套题目答案
一．
第1小题
【审题分析】本题需用菜单设计器建立菜单，并编写“显示”和“清除”菜单项的单击事件
过程。
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个图片框，在属性设置窗口中
将其Name属性值设置为P1。
步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表20-1中的设置建
立菜单项。
表20-1

步骤3：打开代码编辑窗口，编写以下事件过程：
参考代码：
PrivateSubClea_Click()
P1.Cls
EndSub

PrivateSubDis_Click()
P1.Print"等级考试"
EndSub
步骤4：按要求将文件保存至考生文件夹中。
第2小题
【知识点拔】列表框控件（ListBox）用于显示可供单一或多个选择的列表项，给列表
框添加列表项既可以在设计阶段通过其List属性设置加入，也可在程序运行时使用AddItem
方法加入。
【审题分析】双击列表框中的某个项目，将触发其DblClick事件。要实现双击列表框中
的某一项，就把当前中的内容加入列表框，只需在DblClick事件过程中编写添加项目的语句
即可。
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个列表框，在属性设置窗口
中将其Name属性设置为L1，在其List属性中添加四个项目，依次为“AAAA”、“BBBB”、
“CCCC”和“DDDD”。注意：每输入完一项后按<Ctrl+Enter>键换行再输入下一项。
步骤2：打开代码编辑窗口，编写列表框的DblClick事件过程：
参考代码：
PrivateSubL1_DblClick()
L1.AddItemL1.Text
EndSub
步骤3：按要求将文件保存至考生文件夹中。
【考试误区】本题应编写列表框控件的DblClick事件。

Copyright©2011Libin.hou.Allrightsreserved.

二．
第1小题
【审题分析】根据题目要求，在窗体的单击事件过程中，先用If语句判断框架F1中的
Op1是否选中（即以Op1.Value=True为条件表达式），如果条件为真，那么再继续判断框架
F2中的Op3是否选中（即以Op3.Value=True为条件表达式），当Op3被选中时，文本框中显示
“坐飞机去广州”，否则显示“坐飞机去昆明”；同理在外层If语句条件为假（即Op2被选中）
时，也作类似处理。这样一共就有四种可能：Op1和Op3被选中、Op1和Op4被选中、Op2和
Op3被选中、Op2和Op4被选中，对于可能出现的不同选择对照题目中表的规定，在标签中
显示不同内容。以上判断和显示操作均在C1的Click事件中完成。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt3.vbp。
步骤2：在窗体Form1中加入两个框架和一个文本框，然后在每个框架中各加入两个单
选按钮，分别设置它们的相关属性，其属性及值如表20-2所示。
表20-2

步骤3：打开代码编辑窗口输入如下代码：
参考代码：
PrivateSubForm_Click()
IfOp1AndOp3Then
Text1.Text="坐飞机去广州"
ElseIfOp1AndOp4Then
Text1.Text="坐飞机去昆明"
ElseIfOp2AndOp3Then
Text1.Text="坐火车去广州"
ElseIfOp2AndOp4Then
Text1.Text="坐火车去昆明"
EndIf
EndSub

2

步骤4：按要求将文件保存至考生文件夹中。
步骤5：按<F5>键运行程序，选择一种交通工具和一个到达目标，并单击窗体，最后单
击窗体右上角的关闭按钮退出程序。
第2小题
【审题分析】根据题目要求，设计本题程序的思路：在Text3的Click事件过程中分别以
Op1和Op2是否选中作为If语句的条件，当Op1被选中时，将两个文本框中的内容通过一个中
间变量进行交换；当Op2被选中时，将两个文本框中的内容连接起来。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt4.vbp。
步骤2：在窗体Form1中加入三个文本框和两个单选按钮，分别设置它们的相关属性，
其属性及值如表20-3所示。
表20-3

步骤3：打开代码编辑窗口输入如下代码：
参考代码：
PrivateSubText3_Click()
IfOp1Then
Text3.Text=Text1.Text
Text1.Text=Text2.Text
Text2.Text=Text3.Text
Text3.Text="交换成功"
ElseIfOp2Then
Text3.Text=Text1.Text&Text2.Text