For循环的格式:
For 循环变量 = 初值 To 终值 [Step 步长] step 2 就是i=i+2
[循环体]
Next [循环变量]
注意:
1) 当步长 > 0 时
循环执行的条件：循环变量 <= 终值
2) 当步长 < 0 时
循环执行的条件：循环变量 >= 终值
强行退出 For 循环，请使用 Exit For。
举例1: 单击命令按钮 Command1 后，先后弹出很多消息框，消息内容一开始是 1，最后是 100，每弹出一次，消息内容加 1，也就是 1; 2; 3; ...; 98; 99; 100。
VB 代码如下:
Private Sub Command1_Click()
Dim i As Long
For i = 1 To 100
MsgBox i
Next
End Sub
如果使用 For 语句，代码如下:
Private Sub Form_Load()
For i = 1 To 100
MsgBox i, vbInformation /vbInformation 指显示图标，下同
Next
MsgBox "Finished", vbCritical
End Sub
举例2，While格式
如果不用 For 语句，我们可以这样做:
Private Sub Form_Load()
Dim i As Long
i = 1
While i <= 100 '使用 While 语句
MsgBox i, vbInformation
i = i + 1 '这句话千万不能少！否则会造成死循环！！
Wend '不能用end while
MsgBox "Finished", vbCritical
End Sub
Private Sub Form_Load()
Dim i As Long
i = 1
Do While i <= 100 '使用 Do While 语句
MsgBox i, vbInformation
i = i + 1 '这句话千万不能少！否则会造成死循环！！
Loop
MsgBox "Finished", vbCritical
End Sub
举例3 do until
如果连 Do While 都不能用，我们还可以这样做:
Private Sub Form_Load()
Dim i As Long
i = 1
Do Until i > 100 '使用 Do Until 语句
MsgBox i, vbInformation
i = i + 1 '这句话千万不能少！否则会造成死循环！！
Loop
MsgBox "Finished", vbCritical
End Sub