Question

在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市消失。下列在Li

Answer 1

Private Sub Form_Load()

List1.AddItem "北京"

List1.AddItem "山西"

List1.AddItem "辽宁"

List1.AddItem "浙江"

List1.AddItem "广东"

Label1 = "列表框的使用"

'属性栏里设置MultiSelect为2

End Sub

Private Sub List1_Click()

Dim tmp As String

For i = 0 To List1.ListCount - 1

If List1.Selected(i) Then

tmp = tmp + List1.List(i) & vbCrLf

End If

Next

MsgBox tmp

End Su