Άρθρωμα
Περιεχόμενα
Δείκτης 🔎︎

# Πρόταση 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