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

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