目录

# 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

请支持我们!