[問(wèn)答題] 完成下列問(wèn)題：

在考生文件夾下有一個(gè)工程文件sjt4.vbp。在窗體中“待選城市”下的List1列表框中有若干城市名稱。程序運(yùn)行時(shí)，選中List1中若干個(gè)列表項(xiàng)(如圖6所示)，單擊“選中”按鈕則把選中的項(xiàng)目移到List2中，單擊“顯示”按鈕，則在Text1文本框中顯示這些選中的城市(如圖7所示)。已經(jīng)給出了所有控件和程序，但程序不完整。

[*]

[*]

要求：在程序中的橫線處填寫正確的內(nèi)容，使其能正確運(yùn)行，但不能修改程序中的其他部分和控件屬性。最后用原來(lái)的文件名保存工程文件和窗體文件。

(題目提供的源程序]

Private Sub Command1_Click()

Dim k%

For k=List1.ListCount-1 To 0 (1)

If List1.Selected(k)=True Then

List2.AddItem (2)

List1.RemoveItem (3)

End If

Next k

End Sub

Private Sub Command2_Click()

Dim k%

Text1="已經(jīng)選中的城市有:"

For k=0 To List2.ListCount-1 Step 1

Text1= (4) & "" & List2.List(k)

Next k

End Sub

[操作步驟] 第1步：打開本題工程文件。 第2步：分析并編寫程序。 第3步：保存、調(diào)試、運(yùn)行程序。 [1]step-1 [2]List1.List(k) [3]k [4]Text1或Text1.Text

列表框控件有兩個(gè)重要的屬性——Selected屬性和List屬性，二者都是數(shù)組，從0開始編號(hào)。Selected下標(biāo)與List的下標(biāo)一一對(duì)應(yīng)，記錄List數(shù)組中各個(gè)項(xiàng)目是否被選中。例如，若列表框List1中的第二個(gè)元素即List(1)被選中，則Selected(1)的值就為True；相反，若List(1)未被選中，則Selected(1)的值就為False。運(yùn)行時(shí)，對(duì)Selected數(shù)組的下標(biāo)從0～ListCount-1依次檢測(cè)，可以判斷出所有被選擇的項(xiàng)目。由于題目中要對(duì)被選的項(xiàng)目進(jìn)行移出操作，移出一個(gè)項(xiàng)目后，后續(xù)項(xiàng)目自動(dòng)前移，該項(xiàng)目后的其他項(xiàng)目的下標(biāo)發(fā)生改變，對(duì)被選項(xiàng)目的定位就出現(xiàn)錯(cuò)誤。為了解決這個(gè)問(wèn)題，程序在循環(huán)時(shí)下標(biāo)從ListCount-1～0進(jìn)行檢測(cè)，此時(shí)For循環(huán)步長(zhǎng)應(yīng)為-1。當(dāng)List1.Selected(k)值為真時(shí)，對(duì)應(yīng)被選中的項(xiàng)目就是List1.List(k)，應(yīng)該把它添加到List2中，同時(shí)在List1中把下標(biāo)為k的項(xiàng)目移去。為了在文本框中把List2中所有的項(xiàng)目連接起來(lái)，應(yīng)該是取文本框中原有的值Text1.Text連接上List2的項(xiàng)目。