IBM Lotus Symphony
|
Bifurca a una de varias líneas especificadas del código del programa, dependiendo del valor de una expresión numérica.
On N GoSub Etiqueta1[, Etiqueta2[, Etiqueta3[,...]]]
On ExpresiónNum GoTo Etiqueta1[, Etiqueta2[, Etiqueta3[,...]]]
ExpresiónNum: Cualquier expresión numérica entre 0 y 255 que determine a qué línea bifurca el programa. Si ExpresiónNum es 0, la instrucción no se ejecuta. Si ExpresiónNum es mayor que 0, el programa salta a la etiqueta que tiene un número de posición que corresponde a la expresión (1 = Primera etiqueta; 2 = Segunda etiqueta)
Etiqueta: Línea destino de acuerdo con la estructura GoTo o GoSub.
![]() |
Las convenciones GoTo o GoSub son válidas. |
Sub EjemploOnGosub
Dim iVar As Integer
Dim sVar As String
iVar = 2
sVar =""
On iVar GoSub Sub1, Sub2
On iVar GoTo Linea1, Linea2
Exit Sub
Sub1:
sVar =sVar & " De Sub 1 a" : Return
Sub2:
sVar =sVar & " De Sub 2 a" : Return
Linea1:
sVar =sVar & " Etiqueta 1" : GoTo Final
Linea2:
sVar =sVar & " Etiqueta 2"
Final:
MsgBox sVar,0,"On...Gosub"
End Sub