Module
Contents
Index 🔎︎

# 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