Expressió Do… Loop

Repeteix les expressions entre l'expressió Do i l'expressió Loop mentre la condició sigui certa o fins que la condició es converteixi en certa.

Sintaxi

Do [{While | Until} condition = True]

bloc d'expressió

[Exit Do]

bloc d'expressió

Bucle

bloc d'expressió

[Exit Do]

bloc d'expressió

Loop [{While | Until} condition = True]

Paràmetres/Elements

Condició: Una comparació, expressió numèrica o de cadena, que s'avalua com a Cert o Fals.

Bloc d'expressió: Expressions que voleu repetir mentre o fins que la condició sigui certa.

L'expressió Do...Loop executa un bucle sempre que, o fins que, una determinada condició sigui certa. La condició per a sortir del bucle s'ha d'introduir seguint l'expressió Do o l'expressió Loop. Els exemples següents són combinacions vàlides:

Sintaxi

Do While condition = True

...bloc d'expressió

Bucle

El bloc d'expressió entre les expressions Do While i Loop es repeteix sempre que la condició sigui certa.

Do Until condition = True

...bloc d'expressió

Bucle

El bloc d'expressió entre les expressions Do Until i Loop es repeteix si la condició o fins que la condició sigui falsa.

...bloc d'expressió

Loop While condition = True

El bloc d'expressió entre les expressions Do i Loop es repeteix mentre la condició sigui certa.

...bloc d'expressió

Loop Until condition = True

El bloc d'expressió entre les expressions Do i Loop es repeteix fins que la condició sigui certa.

Utilitzeu l'expressió Exit Do per finalitzar incondicionalment el bucle. Podeu afegir aquesta expressió a qualsevol lloc d'una expressió Do...Loop. També podeu definir una condició de sortida amb l'estructura If...Then de la forma següent:

Do...

expressions

If condition = True Then Exit Do

expressions

Bucle...

Exemple


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