Question

关于VB的listbox问题

For loop:

private sub list1_click()
dim i%
for i=0 to list1.listcount-1
if list1.selected(i)=true then
list1.removeitem i
next i
end sub

和
do while loop:

Private Sub list1_click()
Dim i%
i = 0
Do While i <= List1.ListCount - 1
If List1.Selected(i) = True Then
List1.RemoveItem i
Else
i = i + 1
End If
Loop
End Sub

两个程序都没有错啊,为什么for循环会出错哩?? 请高手帮帮忙,小弟在此感谢啦..
谢谢兄弟,可以加了end if也不行,它报错:"无效数组引用索引"
怎么回事啊?

Answer 1

必须从下往上删,不能从上网下删
以后从listbox删除元素请你记住这个顺序
为什么不能从下往上删,我稍微解释一下:
==============
每删掉一个元素list1.listcount都会减少
循环for i=0 to list1.listcount-1要以上界list1.listcount-1作为判断循环的结束的条件,因为list1.listcount时刻变化,会出现i>=list1.listcount的情况,此时i是无效的,此方法控制循环是相当不稳定的(因为循环上界时刻变化)

当使用for i=list1.listcount-1 to 0 step -1时,list1.listcount-1是循环下界,它不是判断循环结束的条件,只是赋给i一次初值,今后不管list1.listcount怎么变都不影响,i的值只只受step值影响

do while 循环也是一样的原理

Answer 2

兄弟，缺少End If。
改成
Private Sub list1_click()
Dim i%
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
List1.RemoveItem i
Exit Sub
End If
Next
End Sub

Answer 3

把
for i=0 to list1.listcount-1
改为
for i=list1.listcount-1 to 0 step -1