IBM Lotus Symphony
|
Sale de un bucle Do...Loop o For...Next, o de una función o subrutina.
Consulte los 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.
![]() |
La instrucción Exit no define el final de una estructura y no debe confundirse con la instrucción End. |
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