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

# Πρόταση While...Wend

Αν το πρόγραμμα συναντήσει μια πρόταση While, ελέγχει τη συνθήκη. Αν η συνθήκη είναι False, το πρόγραμμα συνεχίζει αμέσως μετά τη δήλωση Wend. Αν η συνθήκη είναι True, ο βρόχος εκτελείται μέχρι το πρόγραμμα να συναντήσει την δήλωση Wend και στη συνέχεια πηδά πίσω στην δήλωση While . Αν η συνθήκη είναι ακόμα True, ο βρόχος εκτελείται πάλι.

Αντίθετα από τη δήλωση Do...Loop, δεν μπορείτε να ακυρώσετε έναν βρόχο While...Wend με την Exit. Μην βγείτε ποτέ από έναν βρόχο While...Wend με την GoTo, δεδομένου ότι αυτό μπορεί να προκαλέσει ένα λάθος χρόνου εκτέλεσης.

Η Do...Loop είναι πιο ευέλικτη από την While...Wend.

## Σύνταξη:

    While Condition [Statement] Wend

## Παράδειγμα:

    Sub ExampleWhileWend

    Dim stext As String

    Dim iRun As Integer

        sText ="Αυτό είναι ένα σύντομο κείμενο"

        iRun = 1

        while iRun < Len(sText)

            If Mid(sText,iRun,1 )<> " " Then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )

            iRun = iRun + 1

        Wend

        MsgBox sText,0,"Κωδικοποιημένο κείμενο"

    End Sub