这个程序哪里有问题 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 这个程序哪里有问题

标题：这个程序哪里有问题

只看楼主

a965208802

等　级：新手上路
帖　子：1
专家分：0
注　册：2014-1-3
结帖率：0

已结贴√ 问题点数：20 回复次数：4

这个程序哪里有问题

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

2014-01-03 09:37

Artless

等　级：贵宾
威　望：103
帖　子：4211
专家分：28888
注　册：2009-4-8

得分:5

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

无知

2014-01-03 11:15

风吹过b

等　级：贵宾
威　望：364
帖　子：4912
专家分：29900
注　册：2008-10-15

得分:5

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

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

授人于鱼，不如授人于渔
早已停用QQ了

2014-01-03 14:39

comb007

等　级：论坛游民
帖　子：20
专家分：12
注　册：2013-12-26

得分:5

好像没有问题

2014-01-04 12:43

seafish011

等　级：黑侠
威　望：1
帖　子：167
专家分：694
注　册：2011-11-8

得分:5

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

2014-01-04 13:14