列表框

for i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
List1.RemoveItem i
End If
Next i
为什么list1.selected(i)会出错 --------------------编程问答--------------------

For i = List1.ListCount - 1 To 0 Step -1

    If List1.Selected(i) Then

        List1.RemoveItem i

    End If

Next i

--------------------编程问答--------------------
楼上正确。

你正向循环时，由于每次删除 ListCount 都在减少，但循环上限只在开始循环时取值一次，因此，你一定会遇到索引越界的问题。

补充：VB ,  VBA