IBM Lotus Symphony


On...GoSub 语句;On...GoTo 语句 [运行时]

根据数字表达式的值,跳转到程序代码中多个指定行中的某一行。

语法:

On N GoSub Label1[, Label2[, Label3[,...]]]

On NumExpression GoTo Label1[, Label2[, Label3[,...]]]

参数:

NumExpression:0 到 255 之间的任何数字表达式,用于确定程序将跳转到哪一行。如果 NumExpression 为 0,那么不执行该语句。当 NumExpression 大于 0 时,程序将跳转到其位置编号与表达式(1 = 第一个标签;2 = 第二个标签)相对应的标签处。

Label:GoToGoSub 结构对应的目标行。

备注图标 GoToGoSub 约定有效。

示例:

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


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