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语句恢复默认的错误处理行为。