IBM Lotus Symphony


Instrucción Exit [Ejecución]

Sale de un bucle Do...Loop o For...Next, o de una función o subrutina.

Sintaxis:

Consulte los parámetros

Parámetros:

Exit Do

Sólo es válido en una instrucción Do...Loop para salir del bucle. La ejecución del programa continúa con la instrucción que sigue a Loop. Si las instrucciones Do...Loop están anidadas, el control se transfiere al bucle del nivel inmediatamente superior.

Exit For

Sólo es válido en un bucle For...Next para salir del bucle. La ejecución del programa continúa con la instrucción que sigue a la instrucción Next. En instrucciones anidadas, el control se transfiere al bucle del nivel inmediatamente superior.

Exit Function

Sale del procedimiento Function inmediatamente. La ejecución del programa continúa con la instrucción que sigue a la llamada Function.

Exit Sub

Sale de la subrutina inmediatamente. La ejecución del programa continúa con la instrucción que sigue a la llamada Sub.

Icono de nota La instrucción Exit no define el final de una estructura y no debe confundirse con la instrucción End.

Ejemplo:

Sub EjemploSalida

Dim sRetorno As String

Dim sMatrizLista(10) as String

Dim siPaso as Single

For siPaso = 0 to 10 REM Rellenar matriz con datos de prueba

sMatrizLista(siPaso) = chr$(siPaso + 65)

msgbox sMatrizLista(siPaso)

next siPaso

sRetorno = BuscaLin(sMatrizLista(), "B")

Print sRetorno

end sub

Function BuscaLin( sLista(), sElem As String ) as integer

dim iContador as Integer

REM BuscaLin busca una MatrizTexto:sLista() para una EntradaTexto:

REM Devuelve el índice de la entrada o 0 (Nulo)

for iContador=1 to Ubound( sLista() )

if sLista( iContador ) = sElemen then

Exit for REM encontrado sElemen

end if

next iContador

if iContador = Ubound( sLista() ) then iContador = 0

BuscaLin = iContador

end function


Comentarios del producto | Documentación adicional | Marcas registradas