For Loops & Do While Loops
v
These are equivalent:
Dim i As Integer, j As Integer
i = 1
Do While i <=3
j = 1
Do While j <= 2
Print i, j
j = j+1
Loop
i = i+1
Loop
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 1 To 2
Print i, j
Next j
Next i