On Error Resume Next 如何处理 If 语句和循环中的错误

在处理代码中的错误时，我们经常会使用 "On Error Resume Next" 语句。这个语句的作用是告诉程序在出现错误时不中断执行，而是跳过错误并继续执行下面的代码。这对于处理一些预期可能出现错误的情况非常有用，比如在循环中处理大量数据时可能会出现的错误。

Sub HandleErrors()
    Dim i As Integer
    Dim arr(5) As Integer
    
    On Error Resume Next
    
    For i = 1 To 10
        arr(i) = i * 2
        
        If Err.Number <> 0 Then
            If Err.Number = 9 Then
                MsgBox "数组越界！"
            Else
                MsgBox "发生未知错误：" & Err.Description
            End If
            
            Err.Clear
        End If
    Next i
End Sub

Sub HandleIfError()
    Dim value As String
    
    On Error Resume Next
    
    value = "abc"
    
    If Err.Number <> 0 Then
        MsgBox "发生错误：" & Err.Description
        Err.Clear
    Else
        MsgBox "value 的长度是：" & Len(value)
    End If
End Sub