Err Function

傳回一個錯誤代碼,用於識別程式執行程序中出現的錯誤。

語法

Err

傳回值類型

整型

參數:

Err 函式用於在錯誤處理常式中確定錯誤及其校正措施。

示例:

Sub ExampleError

on error goto ErrorHandler  REM 設置錯誤處理程式

Dim iVar as Integer

Dim sVar As String

REM 由於檔案不存在而出現錯誤

    iVar = Freefile

    Open "\file9879.txt" for Input as #iVar

    Line Input #iVar, sVar

    Close #iVar

Exit Sub

ErrorHandler:

    MsgBox "Error " & Err & ":" & Error$ + chr (13) + "At line :" + Erl + chr (13) + Now , 16 ,"an error occurred"

End Sub