IBM Lotus Symphony


Instrução Do...Loop [Runtime]

Repete as instruções entre as instruções Do e Loop enquanto a condição for True ou até que se torne 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 expressão em caracteres, que calcule True ou False.

Statement block: Instruções que pretende repetir enquanto ou até que a condição seja True.

A instrução Do...Loop executa um ciclo enquanto uma certa condição for True ou até que seja. A condição para sair do ciclo terá de ser inserida a seguir à instrução Do ou Loop. Os seguintes exemplos 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 repete-se enquanto a condição for true.

Do Until condition = True

...bloco de instruções

Loop

O bloco de instruções 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 repete-se enquanto a condição for true.

Do

...bloco de instruções

Loop Until condition = True

O bloco de instruções entre as instruções Do e Loop repete-se até que a condição seja true.

Utilize a instrução Exit Do para terminar incondicionalmente o ciclo. É possível adicionar esta instrução em qualquer local pretendido numa instrução Do...Loop. É também possível definir uma condição de fim utilizando a estrutura If...Then da seguinte forma:

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


Comentários sobre o produto | Documentação adicional | Marcas comerciais