在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数,下面是实现上述功能的程序,请填空。
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"请选择要删除的项目"
End If
End Sub
参考答案:[8] List1.ListIndex
[9] L
[10] List.ListCount
解析: 属性ListIndex表示在程序运行时,选中列表项在列表中的编号,如选中第一项,其值为0,选中第二项,其值为1。列表框的方法有:AddItem方法、RemoveItem方法和 Clear方法。其中RemoveItem方法表示从列表框中删除项目。格式为:
列表框名. RemoveItem序号
其中序号是要删除项目的顺序号。
分析题意可知[9]处应是一个序号,题中设置的整型变量L就是用来存放列表编号的,故[8]处应填List1. Listlndex。同时,删除项目格式中的序号应为L。
属性ListCount用来记录列表框中的列表项目数。题中要求标签中显示列表框当前的项目数,故把List1.ListCount的值赋给标签的Caption属性即可实现此功能。