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