2014年计算机二级考试VB专家预测试卷及答案1

　　三、简单应用题

　　(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

　　单击 按钮运行程序，并按要求保存。

　　相关推荐：

　　2014年计算机等级考试时间调整通知

　　2014年全国计算机二级VB上机考试试题汇总

　　2014计算机等级《二级VB》上机预测题及答案汇总

　　考试吧考后首发2014年3月计算机等考真题及答案通