[問(wèn)答題] 有一個(gè)工程文件ylc6.vbp，要求程序運(yùn)行后，如果多次單擊列表框中的項(xiàng)，則可同時(shí)選擇這幾項(xiàng)。如果單擊“顯示”按鈕，則在窗體上輸出所有選中的列表項(xiàng)，如圖22所示。

要求修改列表框?qū)傩?，運(yùn)行時(shí)可以多選，并去掉程序中的注釋，改為正確的內(nèi)容。實(shí)現(xiàn)上述功能，不得修改程序的其他部分。

題目提供的Command1對(duì)象的Click對(duì)象源代碼如下：

Private Sub Command1_Click()

Dim i As Integer

For i=0 To

If Then

Form1. (List1.List(i))

End If

Next i

End Sub

注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為ylc6.vbp，窗體文件名為ylc6.frm。

1．操作步驟 (1)在Visual Basic集成環(huán)中境選擇“文件”→“打開(kāi)工程”命令，在對(duì)話框中選擇 ylc6.vbp工程文件，單擊“確定”按鈕打開(kāi)。 (2)在工具箱中選擇ListBox控件，在窗體中創(chuàng)建該控件。在屬性窗口設(shè)置它的名稱為 Listl。 (3)在屬性編輯框中設(shè)置它的MultiSelect屬性值為1，則可以使用鼠標(biāo)多選列表項(xiàng)。 (4)在工具箱中選擇命令按鈕控件，在窗體中拖動(dòng)創(chuàng)建該控件。設(shè)置其名字為 Command1，標(biāo)題為“顯示”。 2．行為編碼 解答后Command1對(duì)象的Cl

(1)這是一道簡(jiǎn)單的應(yīng)用題，主要考查列表控件的多選及其多選項(xiàng)的顯示。 (2)使用For循環(huán)處理檢測(cè)列表控件的Selected屬性。如果被選擇的Selected屬性返回 True，則通過(guò)窗體的Print方法顯示選擇的項(xiàng)目?jī)?nèi)容。