4(1)在考生文件夹中有文件sj3.vbp及其窗体文件sj3.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件和文件名。

　　本题描述如下：

　　窗体上有一个名称为Text1的文本框;两个复选框，名称分别为Check1和Check2，标题分别为"Item1"和"Item2";一个按钮，标题为"选择"。要求程序运行后，如果Check1和Check2都不选，单击窗体后，则在文本框中什么都不显示;如果只选中Check1，单击按钮，则在文本框中显示"选中Item1";如果只选中Check2，然后单击按钮，则在文本框中显示"选中Item2";如果同时选中Check1和Check2，单击窗体，则在文本框中显示"不能全选"。程序运行时窗体显示如图8-3所示。

　　图8-3

　　(2)在考生文件夹下有一个工程文件sj4.vbp，要求程序运行后，如果多次单击列表框List1中的项，则可同时选择这些项。而如果单击"导出"按钮，则在列表框List2中输出所有选中的列表项，如图8-4所示。

　　图8-4

　　要求：修改列表框List1的适当属性，使得运行时单击可以多选，并去掉程序中的注释符"'"，把程序中的"?"改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后的把修改后的程序以原来的文件名存盘。

　　参考解析：

　　(1)根据题意， 将两个名称分别为Check1和Check2的复选按钮、一个名称为Text1的文本框和一个名称为Command1的命令按钮放入到窗体中，复选按钮的Caption属性分别为Item1和Item2，Text1的Text属性为空，命令按钮的Caption属性为"选择"。双击Command1进入代码编写窗口，代码如下：

　　Private Sub 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时

　　If Check2.Value = 1 Then '选中Check2

　　Text1.Text = "选中Item2" '显示选中Item2

　　Else

　　Text1.Text = "" '不显示

　　End If

　　End If

　　End Sub

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

　　(2)列表框控件用于显示可供单一或多个选择的列表项。在程序运行时可通过代码：列表框名.AddItem "项目" 给列表框添加列表项;MultiSelec属性用于设置是否可在列表项中选择多项，值为0(缺省设置)表示不允许选择多项，值为1表示允许做简单多项选择，值为2表示允许配合使用Shift、Ctrl键做多项选择;Selected(Index)属性用于设置或返回指定索引号的列表项选择状态(索引号从0开始)，值为True表示被选中，值为False表示未被选中;List(Index)属性用于设置或返回指定索引号的列表项的内容;ListCount属性用来返回列表框中当前的列表项条数。

　　根据题意，将列表框List的MultiSelect为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 i

　　End Sub

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

　　相关推荐：

　　2015年计算机二级考试《VB》考前练习题汇总

　　2015年计算机二级考试《VB》考前预测试卷汇总

　　2015计算机二级考试《VB》模拟练习题及解析汇总