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

[问答题] 有一个工程文件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对象的Cl

参考解析：

(1)这是一道简单的应用题，主要考查列表控件的多选及其多选项的显示。 (2)使用For循环处理检测列表控件的Selected属性。如果被选择的Selected属性返回 True，则通过窗体的Print方法显示选择的项目内容。