LibreOfficeDev 25.8 Βοήθεια
Επαναλαμβάνει τις προτάσεις μεταξύ της Do και της πρότασης Loop, ενώ η συνθήκη είναι True ή μέχρι η συνάρτηση γίνει True.
  Do {While | Until} condition = True
  ' Do While: Το μπλοκ πρότασης επαναλαμβάνεται όσο η συνθήκη είναι αληθής
  ' Do Until: Το μπλοκ πρότασης επαναλαμβάνεται όσο η συνθήκη είναι ψευδής
     statements
     [Exit Do]
     statements
  Loop
  Do
     statements
     [Exit Do]
     statements
  ' Loop While: Το μπλοκ πρότασης επαναλαμβάνεται όσο η συνθήκη είναι αληθής
  ' Loop Until: Το μπλοκ πρότασης επαναλαμβάνεται όσο η συνθήκη είναι αληθής
  Loop {While | Until} condition = True
Η πρόταση Do...Loop εκτελεί έναν βρόχο όσο, ή μέχρι, μια συγκεκριμένη συνθήκη είναι True. Η συνθήκη εξόδου του βρόχου πρέπει να εισαχθεί ακολουθώντας είτε την Do ή την πρόταση Loop. Τα παραπάνω παραδείγματα είναι έγκυροι συνδυασμοί.
συνθήκη: Μια σύγκριση, αριθμητική ή έκφραση Basic, που αξιολογείται είτε σε True, είτε σε False.
προτάσεις: Προτάσεις που θέλετε να επαναλαμβάνονται όσο ή μέχρι μια συνθήκη είναι True.
Η πρόταση Exit Do τερματίζει το βρόχο χωρίς συνθήκες. Αυτή η πρόταση τοποθετείται οπουδήποτε σε μια πρόταση Do...Loop. Μπορείτε να καθορίσετε μια συνθήκη εξόδου χρησιμοποιώντας τη δομή If...Then ως ακολούθως:
  Do...
     statements
     If condition = True Then Exit Do
     statements
  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