模块
目录
索引 🔎︎

# 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