删除列表框中的已有表项,程序运行界面如图所示。当选中列表框中某一个表,单击“删除”按,该表从列表框中删除。 向窗体中添加 2 个标签控件和 1 个列表框,添加 2 个命令按并修改其标题属性,其中部分程序代码如下并填写完整() Private Sub Command2_Click() ' “删除”按事件 Dim i As Integer i=0 ' 用变量 i 记录列表框中表项的位置 Do While i< ______ ' 对各表项依次进行判断 If List1. Selected(i)=True Then ' 如果该表项被选中 List1.RemoveItem i ' 则删除该表项 Else i=i+1 ' 否则判断下一个表项 End If Loop Label1.Caption=List1.ListCount & " 个 " ' 显示当前表项个数 Label2.Caption='' 已删除 " & 6-List1.ListCount & " 个 " ' 显示剩余表项个数 End Sub