Vbscript函数如何进行异常捕获

在VBScript中，你可以使用On Error语句来捕获和处理异常。下面是一个简单的示例，展示了如何使用On Error语句捕获异常并处理它们：

Option Explicit

' 定义一个名为MyFunction的函数，该函数可能会引发异常
Sub MyFunction()
    Dim num1, num2, result

    num1 = 10
    num2 = 0

    ' 尝试执行可能导致除以零错误的操作
    result = num1 / num2
End Sub

' 使用On Error语句捕获异常
On Error Resume Next ' 忽略错误，继续执行后续代码

' 调用可能会引发异常的函数
MyFunction

' 检查是否有错误发生
If Err.Number <> 0 Then
    ' 如果有错误发生，输出错误信息
    MsgBox "发生错误：" & Err.Description
End If

' 恢复默认的错误处理行为
On Error Goto 0

在这个示例中，我们定义了一个名为MyFunction的函数，该函数在执行除法操作时可能会引发除以零错误。我们使用On Error Resume Next语句来忽略错误，并继续执行后续代码。然后，我们调用MyFunction函数，并使用If Err.Number <> 0 Then语句检查是否有错误发生。如果有错误发生，我们输出错误信息。最后，我们使用On Error Goto 0语句恢复默认的错误处理行为。