本篇文章主要介绍了" VB For 循环语句的用法"，主要涉及到方面的内容，对于VBjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下：
For循环的式:For 循环变量 = 初 To 终 [Step 步长] step 2 就是i=i2[循环体]Next [循环变量]注意:1) 当步长 >...
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
以上就介绍了 VB For 循环语句的用法，包括了方面的内容，希望对VBjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。
本文网址链接：http://www.codes51.com/article/detail_4222248.html
