窗体添加一个COMMAND 一个LIST Private Sub Command1_Click() Dim i, num As Integer For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then num = num + 1 Next MsgBox num End SubPrivate Sub Form_Load() Dim i As Integer For i = 0 To 10 List1.AddItem i Next End Sub
...
endif
Private Sub Command1_Click()
Dim i, num As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then num = num + 1
Next
MsgBox num
End SubPrivate Sub Form_Load()
Dim i As Integer
For i = 0 To 10
List1.AddItem i
Next
End Sub