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

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