IBM Lotus Symphony


Instrução Exit [Tempo de Execução]

Sai de um Do...Loop, For...Next, uma função ou uma sub-rotina.

Sintaxe:

consulte Parâmetros

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.

Ícone de Nota A instrução Exit não define o final de uma estrutura e não deve ser confundida com a instrução End.

Exemplo:

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


Feedback do Produto | Documentação Adicional | Marcas Registradas