[问答题] 有一个工程文件ylc6.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这几项。如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如图22所示。 要求修改列表框属

[问答题] 有一个工程文件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方法显示选择的项目内容。