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 举例3,Do whilePrivate 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 |
|