2014年计算机等级二级考试(Visual Basic)考前仿真试题十
为了帮助大家复习好2014年计算机等级考试，本次我们考吧网特为广大考生整理了计算机等级考试模拟试题，希望广大考生能够喜欢。本次主要汇编了计算机等级二级考试(Visual Basic)精选试题：
三、简单应用题(共24分)
(1)在考生文件夹中有文件sj3.vbp及其窗体文件sj3.frm，该程序是不完整的。窗体上有一个名称为Text1的文本框;两个复选框，名称分别为Check1和Check2，标题分别为“Item1”和“Item2”;一个按钮，标题为“选择”。要求程序运行后，如果Check1和Check2都不选，单击窗体后，则在文本框中什么都不显示;如果只选中Checkl，单击按钮，则在文本框中显示“选中Item1”;如果只选中Check2，然后单击按钮，则在文本框中显示“选中Item2”;如果同时选中Check1和Check2，单击窗体，则在文本框中显示“不能全选”。程序运行时窗体显示如图1—3所示。
(1)根据题意，将两个名称分别为Check1和Check2的复选按钮、一个名称为Text1的文本框和一个名称为Command1的命令按钮放入到窗体中，复选按钮的Caption属性分别为Item1和Item2，Text1的
Text属性为空，命令按钮的Caption属性为“选择”。双击Command1进入代码编写窗口，代码如下：
Private hub Command1 Click()
If Check1.Value=1 Then ’当选中Check1时
If Check2.Value=1 Then’选中Check2
Text1.Text="不能全选"
’在Text1中显示不能全选
Else ’没有选中Check2
Text1.Text="选中Item1"
’在Text1中显示选中Item1
End If
Else’当没选中Check1时
IfCheck2.Value=1 Then’选中Cheek2
Text1.Text="选中Item2"’显示选中Item2
E1se
Text1.Text=""’不显示
End If
End If
End Sub
单击 按钮运行程序，并按要求保存。
(2)列表框控件用于显示可供单一或多个选择的列表项。在程序运行时可通过代码：列表框名.AddItem“项目”给列表框添加列表项;MultiSelect属性用于设置是否可在列表项中选择多项，值为0(缺省设置) 表示不允许选择多项，值为1表示允许做简单多项选择，值为2表示允许配合使用Shift、Ctrl键做多项选择;Selected(Index)属性用于设置或返回指定索引号的列表项选择状态(索引号从0开始)，值为True表示被选中，值为False表示未被选中;List(Index)属性用于设置或返回指定索引号的列表项的内容;ListCount 属性用来返回列表框中当前的列表项条数。
根据题意，将列表框List的MuhiSelect为1-Simple，双击Command1进入代码窗口，编写如下代码：
Private Sub Command1_Click()
Dim i As Integer
For i=0 To List1.ListCount-1 ’遍历list1列表
If List1.Selected(i)=True Then’找到选中项
List2.AddItem List1.List(i) ’将其加入到list2列表框中
End If
Next
End Sub
单击 按钮运行程序，并按要求保存。
编辑推荐：