Πρόταση Do...Loop

Επαναλαμβάνει τις προτάσεις μεταξύ των προτάσεων Do και Loop, όσο η συνθήκη παραμένει True-Αληθής ή έως ότου η συνθήκη γίνει True.

Σύνταξη

Do [{While | Until} συνθήκη = True]

ομάδα προτάσεων

[Exit Do]

ομάδα προτάσεων

Βρόχος

or

Do

ομάδα προτάσεων

[Exit Do]

ομάδα προτάσεων

Loop [{While | Until} συνθήκη = True]

Παράμετροι/στοιχεία

Συνθήκη: Μια σύγκριση, μια αριθμητική παράσταση ή μια παράσταση συμβολοσειράς που αξιολογείται είτε ως True είτε ως False.

Ομάδα προτάσεων: Οι προτάσεις που πρόκειται να επαναληφθούν όσο η συνθήκη είναι ή μέχρι να γίνει True.

Η πρόταση Do...Loop εκτελεί έναν βρόγχο όσο, ή μέχρι, μια συγκεκριμένη συνθήκη να είναι True. Η συνθήκη για έξοδο από τον βρόγχο πρέπει να εισαχθεί μετά την πρόταση Doή τηνLoop. Τα ακόλουθα παραδείγματα αποτελούν έγκυρους συνδυασμούς:

Σύνταξη

Do While συνθήκη = True

...ομάδα προτάσεων

Βρόχος

Η ομάδα προτάσεων μεταξύ των προτάσεων Do While και του Loop επαναλαμβάνεται όσο η συνθήκη παραμένει True.

Do Until συνθήκη = True

...ομάδα προτάσεων

Βρόχος

Η ομάδα προτάσεων μεταξύ των προτάσεων Do Until και Loop επαναλαμβάνεται όσο η συνθήκη είναι false.

Do

...ομάδα προτάσεων

Loop While συνθήκη = True

Η ομάδα προτάσεων μεταξύ των προτάσεων Do και Loop επαναλαμβάνεται όσο η συνθήκη παραμένει true.

Do

...ομάδα προτάσεων

Loop Until συνθήκη = True

Η ομάδα προτάσεων μεταξύ των προτάσεων Do και Loop επαναλαμβάνεται μέχρι η συνθήκη γίνει true.

Η πρόταση Exit Do τερματίζει το βρόχο χωρίς συνθήκες. Αυτή η πρόταση τοποθετείται οπουδήποτε σε μια πρόταση Do...Loop. Μπορείτε να καθορίσετε μια συνθήκη εξόδου χρησιμοποιώντας τη δομή If...Then ως ακολούθως:

Do...

προτάσεις

If συνθήκη = True Then Exit Do

προτάσεις

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