[填空題] 在窗體上畫一個(gè)列表框、一個(gè)命令按鈕和一個(gè)標(biāo)簽。程序運(yùn)行后，在列表框中選擇一個(gè)項(xiàng)目，然后單擊命令按鈕，即可將所選擇的項(xiàng)目刪除，并在標(biāo)簽中顯示列表框當(dāng)前的項(xiàng)目數(shù)，下面是實(shí)現(xiàn)上述功能的程序，請?zhí)羁铡?/p>

Private Sub Form_Load()

List1.AddItem"AAAAA"

List1.AddItem"BBBBB"

List1.AddItem"CCCCC"

List1.AddItem"DDDDD"

End Sub

Private Sub Commandl Click()

Dim L As Integer

L＝ 【8】

If L＞=0 Then

List1.RemoveItem 【9】

Label1.Caption＝ 【10】

Else

MsgBox"請選擇要?jiǎng)h除的項(xiàng)目"

End If

End Sub

[8] List1.ListIndex [9] L [10] List.ListCount

屬性ListIndex表示在程序運(yùn)行時(shí)，選中列表項(xiàng)在列表中的編號，如選中第一項(xiàng)，其值為0，選中第二項(xiàng)，其值為1。列表框的方法有：AddItem方法、RemoveItem方法和 Clear方法。其中RemoveItem方法表示從列表框中刪除項(xiàng)目。格式為： 列表框名. RemoveItem序號 其中序號是要?jiǎng)h除項(xiàng)目的順序號。 分析題意可知[9]處應(yīng)是一個(gè)序號，題中設(shè)置的整型變量L就是用來存放列表編號的，故[8]處應(yīng)填List1. Listlndex。同時(shí)，刪除項(xiàng)目格式中的序號應(yīng)為L。 屬性ListCount用來記錄列表框中的列表項(xiàng)目數(shù)。題中要求標(biāo)簽中顯示列表框當(dāng)前的項(xiàng)目數(shù)，故把List1.ListCount的值賦給標(biāo)簽的Caption屬性即可實(shí)現(xiàn)此功能。