Instruction On...GoSub; Instruction On...GoTo

Passe à l'une des lignes spécifiées dans le code du programme, en fonction de la valeur d'une expression numérique.

On expression GoSub Label1[, Label2[, Label3[,...]]]
On expression GoTo Label1[, Label2[, Label3[,...]]]

expression:Toute expression numérique comprise entre 0 et 255 qui détermine à laquelle des lignes le programme se branche. Si expression vaut 0,l'instruction n'est pas exécutée. Siexpression est supérieure à 0, le programme saute à l'étiquette dont le numéro de position correspond à l'expression(1 = première étiquette; 2 = Seconde étiquette)

étiquette: Ligne cible selon la structure GoTo ou 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 & " Étiquette 1" : GoTo Fin
Line2:
    sVar =sVar & "Étiquette 2"
Ende:
    MsgBox sVar,0,"On...GoSub"
End Sub