VB For 循环语句的用法

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 while

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