IBM Lotus Symphony


On...GoSub-setningen; On...GoTo-setningen [kjøretid]

Forgrener til en av flere angitte linjer i programkoden, avhengig av verdien av et numerisk uttrykk.

Syntaks:

On N GoSub Etikett1[, Etikett2[, Etikett3[,...]]]

On NumUttrykk GoTo Etikett1[, Etikett2[, Etikett3[,...]]]

Parametere:

NumUttrykk: Et numerisk uttrykk mellom 0 og 255 som bestemmer hvilken av linjene programmet forgrener til. Hvis NumUttrykk er 0, blir ikke setningen utført. Hvis NumUttrykk er større enn 0, hopper programmet til etiketten som har et posisjonsnummer som tilsvarer uttrykket (1 = Første etikett; 2 = Andre etikett)

Etikett: Mållinje ifølge GoTo- eller GoSub-strukturen.

Merknadsikon GoTo- eller GoSub-konvensjonene er gyldige.

Eksempel:

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

Linje1:

sVar =sVar & " Etikett 1" : GoTo Ende

Linje2:

sVar =sVar & " Etikett 2"

Ende:

MsgBox sVar,0,"On...Gosub"

End Sub


Tilbakemelding om produktet | Annen dokumentasjon | Varemerker