VB For 循环语句的用法

时间:2023-01-31 18:42:06

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