End （语句）
控制流程语句结束程序。
End [ retval ]
retval
用于退出程序，并返回到操作系统。可以指定可选的整数返回值，以指示系统的错误代码。如果没有给出返回值，则在程序结束时自动返回值0.
此语句的用法不会完全关闭范围。局部变量不会自动调用它们的析构函数，因为FreeBASIC不会执行堆栈展开。在这种情况下，只会调用全局变量的析构函数。
因此，不要使用End来标记程序的结束;程序将自动结束，并且以更清晰的方式，当模块级代码的最后一行执行时。
语法
用法
End [ retval ]
参数
retval
错误代码返回系统。
说明
用于退出程序，并返回到操作系统。可以指定可选的整数返回值，以指示系统的错误代码。如果没有给出返回值，则在程序结束时自动返回值0.
此语句的用法不会完全关闭范围。局部变量不会自动调用它们的析构函数，因为FreeBASIC不会执行堆栈展开。在这种情况下，只会调用全局变量的析构函数。
因此，不要使用End来标记程序的结束;程序将自动结束，并且以更清晰的方式，当模块级代码的最后一行执行时。
例子
''该程序从用户请求一个字符串，并返回一个错误
''如果字符串为空，则代码到操作系统
Function main() As Integer
''将输入赋值给文本字符串
Dim As String text
Line Input "输入一些文字（尝试“”abc“”）：" , text
''如果字符串为空，则打印出错误信息
''返回错误代码1（失败）
If( text = "" ) Then
Print "错误：字符串为空"
Return 1
End If
''字符串不为空，所以打印字符串和
''返回错误代码0（成功）
Print "您输入：" & text
Return 0
End Function
''调用main（）并将错误代码返回给操作系统
End main()
''如果字符串为空，则代码到操作系统
Function main() As Integer
''将输入赋值给文本字符串
Dim As String text
Line Input "输入一些文字（尝试“”abc“”）：" , text
''如果字符串为空，则打印出错误信息
''返回错误代码1（失败）
If( text = "" ) Then
Print "错误：字符串为空"
Return 1
End If
''字符串不为空，所以打印字符串和
''返回错误代码0（成功）
Print "您输入：" & text
Return 0
End Function
''调用main（）并将错误代码返回给操作系统
End main()
与QB差别
- END语句支持指定要返回到操作系统的自定义返回值。
参考