Question

VB编程器

主要控件有两个列表框和两个表情。程序启动后将01号到06号选手编号及姓名装入红队列表框，单击交换按钮，将红蓝两队中当前选中的队员互换。交换按钮的代码怎么写？？
主要控件两个列表框和两个标签，一个命令按钮。

Answer 1

Dim n As Long
For n = 0 To List1.ListCount - 1
If List1.Selected(n) = True Then
Exit For
End If
Next n
Dim m As Long
For m = 0 To List2.ListCount - 1
If List2.Selected(m) = True Then
Exit For
End If
Next m
Dim b As String
b = List1.List(n)
List1.List(n) = List2.List(m)
List2.List(m) = b

追问

不是这个语句呢，单击交换按钮后，两队中当前选中的队员全部互换。例如list1里有1号3号，list2里有2号4号。 将列表框内的队员全部互换。

追答

要怎么交换？list1里的1和list2里的2交换还是list1里的1和list2里的4交换？这个交换概念很模糊啊。只要把选中的在list1和list2对调就行了，还是必须要按顺序交换？