IBM Lotus Symphony
|
Sai de um Do...Loop, For...Next, uma função ou uma sub-rotina.
consulte Parâmetros
Exit Do
Válido somente em uma instrução Do...Loop para encerrar o loop. A execução do programa continua com a instrução que segue a instrução Loop. Se as instruções Do...Loop forem aninhadas, o controle será transferido para o loop no próximo nível mais alto.
Exit For
Válido somente em um loop For...Next para encerrar o loop. A execução do programa continua com a primeira instrução que segue a instrução Next. Em instruções aninhadas, o controle é transferido para o loop no próximo nível mais alto.
Exit Function
Encerra o procedimento Function imediatamente. A execução do programa continua com a instrução que segue a chamada Function.
Exit Sub
Encerra a sub-rotina imediatamente. A execução do programa continua com a instrução que segue a chamada Sub.
![]() |
A instrução Exit não define o final de uma estrutura e não deve ser confundida com a instrução End. |
Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) as String
Dim siStep as Single
For siStep = 0 to 10 REM Preencher matriz com dados de teste
sListArray(siStep) = chr(siStep + 65)
msgbox sListArray(siStep)
next siStep
sReturn = LinSearch(sListArray(), "B")
Print sReturn
end sub
Function LinSearch( sList(), sItem As String ) as integer
dim iCount as Integer
REM LinSearch procura um TextArray:sList() para uma TextEntry:
REM Retorna o índice da entrada ou 0 ( Nulo)
for iCount=1 to Ubound( sList() )
if sList( iCount ) = sItem then
Exit for REM sItem localizado
end if
next iCount
if iCount = Ubound( sList() ) then iCount = 0
LinSearch = iCount
end function