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: 取决于 GoTo GoSub 结构的目标行。

批注图标

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