例: Do statement

' Each loop below executes four times,
' exiting when the loop variable reaches 5.
Dim i As Integer, j As Integer
i% = 1
j% = 1
Do While i% < 5   ' Test i's value before executing loop.
   i% = i% + 1
   Print i% ;
Loop
' Output:
' 2  3  4  5
Do 	
   j% = j% + 1
   Print j% ;
Loop Until j% >= 5   ' Test j's value after executing loop.
' Output:
' 2  3  4  5