Vbscript函數(shù)如何進(jìn)行異常捕獲

小樊
81
2024-10-12 14:18:14

在VBScript中，你可以使用On Error語(yǔ)句來(lái)捕獲和處理異常。下面是一個(gè)簡(jiǎn)單的示例，展示了如何使用On Error語(yǔ)句捕獲異常并處理它們：

Option Explicit

' 定義一個(gè)名為MyFunction的函數(shù)，該函數(shù)可能會(huì)引發(fā)異常
Sub MyFunction()
    Dim num1, num2, result

    num1 = 10
    num2 = 0

    ' 嘗試執(zhí)行可能導(dǎo)致除以零錯(cuò)誤的操作
    result = num1 / num2
End Sub

' 使用On Error語(yǔ)句捕獲異常
On Error Resume Next ' 忽略錯(cuò)誤，繼續(xù)執(zhí)行后續(xù)代碼

' 調(diào)用可能會(huì)引發(fā)異常的函數(shù)
MyFunction

' 檢查是否有錯(cuò)誤發(fā)生
If Err.Number <> 0 Then
    ' 如果有錯(cuò)誤發(fā)生，輸出錯(cuò)誤信息
    MsgBox "發(fā)生錯(cuò)誤：" & Err.Description
End If

' 恢復(fù)默認(rèn)的錯(cuò)誤處理行為
On Error Goto 0

在這個(gè)示例中，我們定義了一個(gè)名為MyFunction的函數(shù)，該函數(shù)在執(zhí)行除法操作時(shí)可能會(huì)引發(fā)除以零錯(cuò)誤。我們使用On Error Resume Next語(yǔ)句來(lái)忽略錯(cuò)誤，并繼續(xù)執(zhí)行后續(xù)代碼。然后，我們調(diào)用MyFunction函數(shù)，并使用If Err.Number <> 0 Then語(yǔ)句檢查是否有錯(cuò)誤發(fā)生。如果有錯(cuò)誤發(fā)生，我們輸出錯(cuò)誤信息。最后，我們使用On Error Goto 0語(yǔ)句恢復(fù)默認(rèn)的錯(cuò)誤處理行為。

0 踩