IBM Lotus Symphony


Err 函数 [运行时]

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

语法:

Err

返回值:

整数

参数:

错误处理例程使用 Err 函数来确定错误以及纠正措施。

示例:

sub ExampleError

on error goto ErrorHandler REM Set up error handler

Dim iVar as Integer

Dim sVar As String

REM Error occurs due to non-existent file

iVar = Freefile

Open "\file9879.txt" for Input as #iVar

Line Input #iVar, sVar

Close #iVar

exit sub

ErrorHandler:

MsgBox "Error " & Err & ":" & Error$ + chr(13) + "At line :" + Erl + chr(13) + Now , 16 ,"an error occurred"

end sub


产品反馈 | 其他文档 | 商标