IBM Lotus Symphony
|
Passe à l'une des lignes spécifiées dans le code du programme, en fonction de la valeur d'une expression numérique.
On N GoSub Label1[, Label2[, Label3[,...]]]
On NumExpression GoTo Label1[, Label2[, Label3[,...]]]
NumExpression: toute expression numérique entre 0 et 255 déterminant la ligne à laquelle le programme doit passer. Si la valeur NumExpression est 0, l'instruction n'est pas exécutée. Si NumExpression est supérieure à 0, le programme passe au libellé ayant un numéro de position correspondant à l'expression (1 = First label; 2 = Second label).
Label : ligne cible selon la structure de GoTo ou de GoSub.
![]() |
Les conventions GoTo ou GoSub sont reconnues. |
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 & " De Sub 1 à" : Return
Sub2:
sVar =sVar & " De Sub 2 à" : Return
Line1:
sVar =sVar & " Etiquette 1" : GoTo Ende
Line2:
sVar =sVar & " Etiquette 2"
Ende:
MsgBox sVar,0,"On...Gosub"
End Sub