有一个工程文件ylc6.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这几项。如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如图22所示。
要求修改列表框属性，运行时可以多选，并去掉程序中的注释，改为正确的内容。实现上述功能，不得修改程序的其他部分。
题目提供的Command1对象的Click对象源代码如下：
Private Sub Command1_Click()
Dim i As Integer
For i=0 To
If Then
Form1. (List1.List(i))
End If
Next i
End Sub
注意：存盘时必须存放在考生文件夹下，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。
参考答案：1．操作步骤
(1)在Visual Basic集成环中境选择“文件”→“打开工程”命令，在对话框中选择 ylc6.vbp工程文件，单击“确定”按钮打开。
(2)在工具箱中选择ListBox控件，在窗体中创建该控件。在属性窗口设置它的名称为 Listl。
(3)在属性编辑框中设置它的MultiSelect属性值为1，则可以使用鼠标多选列表项。
(4)在工具箱中选择命令按钮控件，在窗体中拖动创建该控件。设置其名字为 Command1，标题为“显示”。
2．行为编码
解答后Command1对象的Click事件代码如下：
Private Sub Command1_Click{)
’列表框项目总数确定循环次数
For i=0 To List1.ListCount-1
’判定Selected属性的返回值是否该项被选定
If List1.Selected(i) Then
’通过Print方法打印该列表项内容
Form1.Print (List1.List(i))
End If
Next i
End Sub
3．存盘保存
执行“文件”→“保存工程”命令，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。
解析： (1)这是一道简单的应用题，主要考查列表控件的多选及其多选项的显示。
(2)使用For循环处理检测列表控件的Selected属性。如果被选择的Selected属性返回 True，则通过窗体的Print方法显示选择的项目内容。