IBM Lotus Symphony


Sætningerne On...GoSub og On...GoTo [Runtime]

Programkørslen forgrenes til en af flere linjer, der er angivet i programkoden, afhængigt af værdien af et numerisk udtryk.

Syntaks:

On N GoSub Etiket1[, Etiket2[, Etiket3[,...]]]

On NumUdtryk GoTo Etiket1[, Etiket2[, Etiket3[,...]]]

Parametre:

NumUdtryk: Et numerisk udtryk mellem 0 og 255, som bestemmer, hvilken af linjerne programmet forgrenes til. Hvis NumUdtryk er 0, udføres sætningen ikke. Hvis NumUdtryk er større end 0, hopper programmet til den etiket, der har et positionsnummer, der svarer til udtrykket (1 = første etiket, 2 = anden etiket).

Etiket: Mållinje for GoTo- eller GoSub-strukturen.

Ikonen Note GoTo- eller GoSub-konventionerne er gyldige.

Eksempel:

Sub EksempelOnGosub

Dim iVar As Integer

Dim sVar As String

iVar = 2

sVar =""

On iVar GoSub Sub1, Sub2

On iVar GoTo Linje1, Linje2

Exit Sub

Sub1:

sVar =sVar & " Fra Sub1 til" : Return

Sub2:

sVar =sVar & " Fra Sub2 til" : Return

Linje1:

sVar =sVar & " Etiket 1" : GoTo Slut

Linje2:

sVar =sVar & " Etiket 2"

Slut:

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

End Sub


Produktfeedback | Yderligere dokumentation | Varemærker