IBM Lotus Symphony
|
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.
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]
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:
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...
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