Conteúdo

# Instrução Do...Loop

Repete as instruções entre as instruções Do e Loop enquanto a condição for True ou até que a condição se torne True.

### Sintaxe:

      Do {While | Until} condition = True
      ' Do While: O bloco de instruções é repetido enquanto a condição for verdadeira
      ' Do Until: O bloco de instruções é repetido enquanto a condição for falsa
         statements
         [Exit Do]
         statements
      Loop

      Do
         statements
         [Exit Do]
         statements
      ' Loop While: O bloco de instruções repete-se enquanto a condição for verdadeira
      ' Loop Until: O bloco de instruções repete-se até que a condição seja verdadeira
      Loop {While | Until} condition = True

### Parâmetros:

A instrução Do...Loop executa um ciclo enquanto, ou até que, uma determinada condição for True. A condição para sair do ciclo deve ser indicada a seguir à instrução Do ou à instrução Loop. Os exemplos acima são combinações válidas.

condição: Uma comparação, expressão numérica ou expressão Basic, cujo resultado é True ou False.

instruções: Instruções que se pretende repetir enquanto ou até que uma condição seja True.

Utilize a instrução Exit Do para terminar incondicionalmente o ciclo. Pode adicionar esta instrução em qualquer local de uma instrução Do...Loop. Também pode definir uma condição de saída, utilizando a estrutura If...Then da forma que se segue:

      Do...
         statements
         If condition = True Then Exit Do
         statements
      Loop...

### Exemplo:

    Sub ExampleDoLoop
        Dim sFile As String
        Dim sPath As String
        sPath = "c:\"
        sFile = Dir$( sPath ,22)
        If sFile <> "" Then
            Do
                MsgBox sFile
                sFile = Dir$
            Loop Until sFile = ""
        End If
    End Sub

Tópicos relacionados

Para as instruções , Select Case ou While

Funções Iif ou Switch

Necessitamos da sua ajuda!