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