END（语句）

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgEnd
• 最后更新: 2022-07-05

---

用于结束程序的控制流语句。

语法

declare sub End ( byval retval as long = 0 )

用法

End [ retval ]

参数

retval

返回给系统的错误代码。

说明

用于退出程序并返回操作系统。可以指定一个可选的整数返回值，以向系统指示错误代码。如果未指定返回值，程序结束时会自动返回 0。

使用此语句不会干净地关闭作用域。由于 FreeBASIC 不进行栈展开，局部变量的析构函数不会被自动调用。在这种情况下，只有全局变量的析构函数会被调用。

因此，不建议仅为标记程序结束而使用 End；当模块级代码的最后一行执行完毕后，程序会自动以更干净的方式结束。

示例

start GeSHi

'' 此程序从用户处请求一个字符串，若字符串为空则向操作系统返回错误代码

Function main() As Integer

    '' 将输入赋值给文本字符串
    Dim As String text
    Line Input "Enter some text ( try ""abc"" ): " , text

    '' 若字符串为空，则打印错误信息并
    '' 返回错误代码 1（失败）
    If( text = "" ) Then
        Print "ERROR: string was empty"
        Return 1
    End If

    '' 字符串不为空，则打印字符串并
    '' 返回错误代码 0（成功）
    Print "You entered: " & text
    Return 0

End Function

'' 调用 main() 并将错误代码返回给操作系统
End main()

end GeSHi

平台差异

• 在 Linux 上，retval 参数为 byte 类型。

与 QB 的区别

• END 语句支持指定自定义返回值，以返回给操作系统。

另请参阅

• End (Block)
• Return（从过程返回）
• Return（从 Gosub 返回）
• System

返回 目录