IBM Lotus Symphony


GoSub...Return 语句 [运行时]

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

语法:

请参阅“参数”部分

参数:

Sub/Function

语句块

标签

语句块

GoSub Label

Exit Sub/Function

Label:

语句块

Return

End Sub/Function

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

警告图标 如果程序遇到 Return 语句前面没有 GoSub 的情况,Lotus® Symphony™ Basic 将返回一条错误消息。使用 Exit SubExit Function 可以确保在执行到下一个 Return 语句之前退出子例程或函数。

下面的示例说明如何使用 GoSubReturn。通过将程序段执行两遍,计算由用户输入的两个数的平方根。

示例:

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


产品反馈 | 其他文档 | 商标