模块
目录
索引 🔎︎

# 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