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

12 查阅

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

计算机考试