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」结构的目标行。

批注图标

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