Lotus Symphony 1.2


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: 根據 GoToGoSub 結構的目標行。

附註: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


其他文件 | 商標