Declare Sub End ( ByVal retval As Integer = 0 )

End [ retval ]

retval

Используется для выхода из программы и возврату к операционной системе. Можно задать необязательный целочисленный аргумент в возвращаемом значении, чтобы указать код ошибки, возвращаемый в систему. Если возвращаемое значение не задано, значение 0 возвращается автоматически в конце программы.

Использование этого оператора не аккуратно закрывает области видимости. Переменные и память автоматически не уничтожаются и не вызываются деструкторы объекта. Вызов необходимых деструкторов и другие очистки должны явно выполняться перед вызовом оператора End.

По этой причине , не рекомендуется использовать End просто чтобы отметить конец программы; программа подойдет к концу автоматически, когда выполнится последняя строка кода на уровне модуля.

'' Эта программа запрашивает строку от пользователя, и возвращает код ошибки
'' в ОС, если строка была пустой

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 поддерживает задание пользовательского возвращаемого значения и возврата его в операционную систему.
  
  

• End (Блок)
  
• Return