[填空題] 在窗體上畫一個(gè)列表框、一個(gè)命令按鈕和一個(gè)標(biāo)簽。程序運(yùn)行后，在列表框中選擇一個(gè)項(xiàng)目，然后單擊命令按鈕，即可將所選擇的項(xiàng)目刪除，并在標(biāo)簽中顯示列表框當(dāng)前的項(xiàng)目數(shù)。 下面是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡?Private Sub Form_Load() List1.AddItem "AAAAA" List1.AddItem "BBBBB" List1.AddItem "CCCCC" List1.AddItem "DDDDD" End Sub Private Sub Command1_Click() Dim L1 As Integer L1= 【12】 If L1 ＞=0 ThenList1.RemoveItem 【13】 Labell.Caption= 【14】 ElseMsgBox("請(qǐng)選擇要?jiǎng)h除的項(xiàng)目") End If End Sub

[12]List1.ListIndex[分析]： 本題提供的程序包括兩個(gè)事件過(guò)程，其中Form Load事件過(guò)程用來(lái)向列表框中添加項(xiàng)目，而Command1_Click事件過(guò)程刪除列表框中被選擇的項(xiàng)目，并在標(biāo)簽中顯示列表框當(dāng)前的項(xiàng)目數(shù)，需要填空的代碼在這個(gè)事件過(guò)程中。為了刪除列表框中指定的項(xiàng)目，可以使用RemoveItem方法，其格式為：列表框名稱．RemoveItem 索引值 其中的“索引值”是項(xiàng)目的地址，列表框中的項(xiàng)目從0開(kāi)始計(jì)數(shù)，被選擇的項(xiàng)目索引值就是列表框的ListIndex屬性。為了刪除列表框中被

[13]L1 [14]List1.ListCount