Computer Programming Concepts and Visual Basic David I. Schneider

Similarly, the statements
Do While flagVar = True and Do While flagVar = False
can be replaced by
Do While flagVar and Do While Not flagVar
5.3 FOR...NEXT LOOPS
When we know exactly how many times a loop should be executed, a special type of loop,
called a For...Next loop, can be used. For...Next loops are easy to read and write, and have
features that make them ideal for certain common tasks. The following code uses a For...Next
loop to display a table.
Private Sub cmdDisplayTable_Click()
Dim i As Integer
‘Display a table of the first 5 numbers and their squares
picTable.Cls
For i = 1 To 5
picTable.Print i; i ^ 2
Next i
End Sub
[Run and click on cmdDisplayTable. The following is displayed in the picture box.]
1 1
2 4
3 9
4 16
5 25
The equivalent program written with a Do loop is as follows.
Private Sub cmdDisplayTable_Click()
Dim i As Integer
‘Display a table of the first 5 numbers and their squares
picTable.Cls
i = 1
Do While i