目录
索引 🔎︎

# 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