Module
Contents
Index 🔎︎

# GoSub...Return 语句

调用由子例行程序或函数中的数据标志指示的子例行程序。执行数据标志后的语句，直到遇到下一个 Return 语句。然后，程序会继续执行 GoSub 语句之后的语句。

## 语法：

    请参阅“参数”部分

## 参数：

Sub/Function

语句块

标签

语句块

GoSub Label

Exit Sub/Function

Label:

语句块

Return

End Sub/Function

GoSub 语句调用由子例程或函数中的数据标志指示的局部子例程。数据标志名称必须以分号 (“:”) 结尾。

如果程序遇到 Return 语句之前没有 GoSub，LibreOffice Basic 会返回一个错误信息。使用 Exit Sub 或 Exit Function 能够保证程序在到达下一个 Return 语句之前离开子程序或者函数。

以下示例用于说明 GoSub 和 Return 的使用。通过将程序段执行两遍，计算由用户输入的两个数的平方根。

## 示例：

    Sub ExampleGoSub

    Dim iInputa As Single

    Dim iInputb As Single

    Dim iInputc As Single

        iInputa = Int(InputBox("Enter the first number:","NumberInput"))

        iInputb = Int(InputBox("Enter the second number:","NumberInput"))

        iInputc=iInputa

        GoSub SquareRoot

        Print "The square root of";iInputa;" is";iInputc

        iInputc=iInputb

        GoSub SquareRoot

        Print "The square root of";iInputb;" is";iInputc

        Exit Sub

    SquareRoot:

        iInputc=sqr(iInputc)

        Return

    End Sub