FUNÇÃO E INSTRUÇÃO DE CONTROLE DO FLUXO DE EXECUÇÃO - EXIT

Exit

    Instrução que permite terminar abruptamente um bloco Do...Loop ou For...Next, ou terminar um procedimento Function, Sub ou Property, utilizando uma destas sintaxes:

Exit Do

Exit For

Exit Função

Exit Property

Exit Sub

Onde,

• Exit Do e Exit For: permitem terminar a execução de um laço Do...Loop ou For...Next, respectivamente, retornando o controle do código para a instrução imediatamente após a instrução Loop ou Next correspondente;
• Exit Function, Exit Property e Exit Sub: permitem terminar o código de um procedimento Function, Sub ou Property, respectivamente.

São válidos os seguintes comentários sobre a instrução Exit:

• Exit termina a execução de um procedimento, mas não termina o aplicativo ou definne o término de uma estrutura de laço;
• Empregue Exit para terminar um laço finito ou infinito quando uma determinada condição tiver ocorrido, normalmente testada utilizando-se uma instrução If...Then...Else

Exemplo: O exemplo a seguir demonstra como sair de um laço Do...Loop infinito, após o mesmo ter sido executado 1000 vezes consecutivas.

Public Function Atraso()

   Dim intl as integer

    Do

      Intl = intl + 1

      If intl >= 1000 Then

          Exit Do

      End If

     Loop

End function

Até a Próxima!!