IBM Lotus Symphony


Instrucción On...GoSub; Instrucción On...GoTo [Ejecución]

Bifurca a una de varias líneas especificadas del código del programa, dependiendo del valor de una expresión numérica.

Sintaxis:

On N GoSub Etiqueta1[, Etiqueta2[, Etiqueta3[,...]]]

On ExpresiónNum GoTo Etiqueta1[, Etiqueta2[, Etiqueta3[,...]]]

Parámetros:

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.

Icono de nota Las convenciones GoTo o GoSub son válidas.

Ejemplo:

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


Comentarios del producto | Documentación adicional | Marcas registradas