IBM Lotus Symphony
|
根据数字表达式的值,跳转到程序代码中多个指定行中的某一行。
On N GoSub Label1[, Label2[, Label3[,...]]]
On NumExpression GoTo Label1[, Label2[, Label3[,...]]]
NumExpression:0 到 255 之间的任何数字表达式,用于确定程序将跳转到哪一行。如果 NumExpression 为 0,那么不执行该语句。当 NumExpression 大于 0 时,程序将跳转到其位置编号与表达式(1 = 第一个标签;2 = 第二个标签)相对应的标签处。
Label:与 GoTo 或 GoSub 结构对应的目标行。
![]() |
GoTo 或 GoSub 约定有效。 |
Sub ExampleOnGosub
Dim iVar As Integer
Dim sVar As String
iVar = 2
sVar =""
On iVar GoSub Sub1, Sub2
On iVar GoTo Line1, Line2
Exit Sub
Sub1:
sVar =sVar & " From Sub 1 to" :Return
Sub2:
sVar =sVar & " From Sub 2 to" :Return
Line1:
sVar =sVar & " Label 1" :GoTo Ende
Line2:
sVar =sVar & " Label 2"
Ende:
MsgBox sVar,0,"On...Gosub"
End Sub