IBM Lotus Symphony


Instrução Do...Loop [Tempo de Execução]

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

Sintaxe

Do [{While | Until} condition = True]

bloco de instruções

[Exit Do]

bloco de instruções

Loop

ou

Do

bloco de instruções

[Exit Do]

bloco de instruções

Loop [{While | Until} condition = True]

Parâmetros/Elementos

Condition: Uma comparação, expressão numérica ou em sequência, que avalia se é True ou False.

Bloco de instruções: Instruções que você deseja repetir enquanto ou até que a condição seja True.

A instrução Do...Loop executa um loop desde que, ou até que, uma determinada condição seja True. A condição para sair do loop deve ser inserida seguindo a instrução Do ou Loop. Os exemplos a seguir são combinações válidas:

Sintaxe

Do While condition = True

...bloco de instruções

Loop

O bloco de instruções entre as instruções Do While e Loop é repetido desde que a instrução seja true.

Do Until condition = True

...bloco de instruções

Loop

O bloco de instrução entre as instruções Do Until e Loop é repetido, desde que a condição seja falsa.

Do

...bloco de instruções

Loop While condition = True

O bloco de instruções entre as instruções Do e Loop será repetido desde que a condição seja true.

Do

...bloco de instruções

Loop Until condition = True

O bloco de instruções entre as instruções Do e Loop será repetido até que a condição seja true.

Use a instrução Exit Do para finalizar o loop incondicionalmente. É possível incluir esta instrução em algum local em uma instrução Do... Loop. Pode também definir uma condição de saída usando a estrutura If...Then a seguir:

Do...

instruções

If condition = True Then Exit Do

instruções

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


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