Sisältö - For
Next - DoLoopWhileUntil - ForEach
Do ... Loop ...While ... Until
Do looppi voidaan toteuttaa neljällä tavalla
'Do loop While vertailu lopussa
k = 1
Do
k = k + 1
Loop While k < 11
'
'Do loop Until vertailu lopussa
k = 1
Do
k = k + 1
Loop Until k = 11
'
'Do loop, While vertailu alussa
k = 1
Do While k < 11
k = k + 1
Loop
'
'Do loop, Until vertailu alussa
k = 1
Do Until k = 11
k = k + 1
Loop
Do looppi voidaan myös keskeyttää:
'exit
k = 1
Do Until k = 11
k = k + 1
If k = 7 Then Exit Do
Loop
While looppi perustavalla ja keskeytyksellä.
'
'while loop
k = 1
While k < 11
k += 1
End While
'
'Exit while
k = 1
While k < 11
k += 1
If k = 4 Then Exit While
End While