IBM Lotus Symphony


Instrucción GoSub...Return [Ejecución]

Llama a una subrutina indicada por una etiqueta de una subrutina o una función. La instrucción que sigue a la etiqueta se ejecuta mientras no se encuentre una instrucción Return. Después el programa continúa con la instrucción que sigue a GoSub .

Sintaxis:

Consulte los parámetros

Parámetros:

Sub/Function

bloque de instrucciones

Etiqueta

bloque de instrucciones

Etiqueta GoSub

Exit Sub/Function

Etiqueta:

bloque de instrucciones

Return

Final de Sub/Function

La instrucción GoSub llama a una subrutina local indicada por una etiqueta desde dentro de una subrutina o función. El nombre de la etiqueta debe terminar con un carácter de dos puntos (":").

Icono de advertencia Si el programa encuentra una instrucción Return que no va precedida de GoSub, Lotus® Symphony™ Basic devuelve un mensaje de error. Use Exit Sub o Exit Function para asegurarse de que el programa salga de una Sub o Function antes de llegar a la siguiente instrucción Return.

El ejemplo siguiente demuestra el uso de GoSub y Return. Al ejecutar una sección de programa dos veces, éste calcula la raíz cuadrada de dos números que ha especificado el usuario.

Ejemplo:

Sub EjemploGoSub

dim iInputa as Single

dim iInputb as Single

dim iInputc as Single

iInputa = Int(InputBox$ "Escriba el primer número: ","EntradaNumero"))

iInputb = Int(InputBox$ "Escriba el segundo número: ","EntradaNumero"))

iInputc=iInputa

GoSub RaizCuadrada

Print "La raíz cuadrada de";iInputa;" es";iInputc

iInputc=iInputb

GoSub RaizCuadrada

Print "La raíz cuadrada de";iInputb;" es";iInputc

Exit Sub

RaizCuadrada:

iInputc=sqr(iInputc)

Return

End Sub


Comentarios del producto | Documentación adicional | Marcas registradas