IBM Lotus Symphony
|
调用由子例程或函数中的标签指示的子例程。执行标签后的语句,直到遇到下一个 Return 语句。然后,程序会继续执行 GoSub 语句之后的语句。
请参阅“参数”部分
Sub/Function
语句块
标签
语句块
GoSub Label
Exit Sub/Function
Label:
语句块
Return
End Sub/Function
GoSub 语句调用由子例程或函数中的标签指示的局部子例程。标签名称必须以冒号(“:”)结尾。
![]() |
如果程序遇到 Return 语句前面没有 GoSub 的情况,Lotus® Symphony™ 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