跳出错误求教，谢谢！！！

Question

如有LISTBOX   有1500条数据FOR I=0 TO List1.ListCount - 1
NEXT如再循环到500时出现错误，我想在出现错误时，记录到TEXT1里，然后再继续循环，请教如何做，谢谢！！！

Answer 1

Private Sub cmdCommand1_Click()
    Dim i As Integer
    Dim j As Integer    On Error GoTo Error
  
    For i = 1 To 1500        If i = 500 Then
            j = 500 / 0  '强制出错
        End If
     
        j = i
        List1.AddItem j
    Next
  
    Exit Sub
  
Error:
    txtText1.Text = "错误:" & Err.Description & "I= " & i    Resume Next
  
End Sub