这个程序哪里有问题

a965208802 发布于 2014-01-03 09:37， 610 次点击

Private Sub Command2_Click()
For x = 0 To List1.ListCount - 1
List2.AddItem List1.List(x)
List1.RemoveItem x
Next x
End Sub

4 回复

Artless2014-01-03 11:15

For x = 0 To List1.ListCount - 1
这句有问题

风吹过b2014-01-03 14:39

For x = 0 To
这句有问题
改为：

for x=List1.ListCount - 1 to 0 step -1

comb0072014-01-04 12:43

好像没有问题

seafish0112014-01-04 13:14

Private Sub Command2_Click()
For x = 0 To List1.ListCount - 1
List2.AddItem List1.List(x)
'List1.RemoveItem x
Next x
list1.clear
End Sub