Module
Contents
Index 🔎︎

# Do...Loop Statement

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

## Sintaxi

Do [{While | Until} condition = True]

bloc d'expressió

[Exit Do]

bloc d'expressió

Bucle

or

Do

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ó siga certa.

L'expressió Do...Loop executa un bucle sempre que, o fins que, una determinada condició siga certa. La condició per eixir 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ó siga 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ó siga falsa.

Do

...bloc d'expressió

Loop While condition = True

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

Do

...bloc d'expressió

Loop Until condition = True

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

Utilitzeu l'expressió Exit Do per finalitzar incondicionalment el bucle. Podeu afegir esta expressió a qualsevol lloc d'una expressió Do...Loop. També podeu definir una condició de eixida 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