Question

求高人解答vb问题 List1.Selected(k)什么意思

Private Sub Command1_Click()
Dim k%
For k = List1.ListCount - 1 To 0 Step -1
If List1.Selected(k) = True Then
List2.AddItem List1.List(k)
List1.RemoveItem k
End If
Next k
End Sub

Private Sub Command2_Click()
Dim k%
Text1 = "已经选中的城市有："
For k = 0 To List2.ListCount - 1 Step 1
Text1 = Text1.Text & " " & List2.List(k)
Next k
End Sub

List2.AddItem List1.List(k）
List1.RemoveItem k 一个用为什么List1.List(k） 一个用k 都用List1.List(k）不行么

Answer 1

1. List1.Selected(k) 就是 List1 中被选中的项
2. List2.AddItem List1.List(k） 是要将 List1 中第 k 项的内容复制到 List2 的末尾（List1.List(k）是字符型）
3. List1.RemoveItem k 是要将 List 中第 k 项移除（k 是数值型）

如果 List1.RemoveItem List1.List(k）是错误的，因为 RemoveItem 的参数是数值型
同样 List2.AddItem k 是错误的，因为 AddItem 的参数是字符型