模块
目录
索引 🔎︎

# Erl 函数

返回在程序执行过程中出现错误的行号。

## 语法:

    Erl

## 返回值:

整数

## 参数:

Erl 函数仅返回行号而不返回行的数据标志。

## 示例:

    Sub ExampleError

    On Error GoTo ErrorHandler ' 设置错误处理程序

    Dim iVar As Integer

    Dim sVar As String

    ' 由于文件不存在而出现的错误

        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