Βρόχοι με την εντολή do while

Μπορούμε να επαναλάβουμε την εκτέλεση ορισμένων εντολών με τη δομή ελέγχου (control structure) do while ... loop.

Αυτή χρησιμοποιείται ως εξής:

	do while συνθήκη
		εντολή
		εντολή
		...
	loop

Οι εντολές που ακολουθούν το do while εκτελούνται όσο η συνθήκη είναι αληθής. Παράδειγμα (εμφανίζει στην οθόνη τους αριθμούς από το 0 μέχρι το 4):
```
Sub main()
Dim i As Integer

i = 0
Do While i < 5
    MsgBox i
    i = i + 1
Loop
End Sub
```
Αν η συνθήκη δεν είναι αληθής όταν εκτελεστεί το do while για πρώτη φορά τότε οι εντολές που περιέχονται σε αυτό δε θα εκτελεστούν.
Η δομή ελέγχου do while ... loop μπορεί να χρησιμοποιηθεί οπουδήποτε θα μπορούσε και οποιαδήποτε άλλη εντολή (π.χ. η MsgBox) δηλαδή ακόμα και μέσα σε μια άλλη do while. Το παρακάτω παράδειγμα εμφανίζει στην οθόνη την προπαίδεια των αριθμών από το 2 μέχρι το 5.
```
Sub main()
Dim i As Integer
Dim j As Integer

i = 2
Do While i <= 5
    j = i
    Do While j <= 5
        MsgBox Str(i) + " * " + Str(j) + " = " + Str(i * j)
        j = j + 1
    Loop
    i = i + 1
Loop
End Sub
```