Err 函数

返回一个错误代码，用于标识程序执行过程中出现的错误。

语法:

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 "错误 " & Err & ": " & Error$ + chr(13) + "行数: " + Erl + chr(13) + Now , 16 ,"发生错误"
End Sub

Error-Handling Functions