VB For 循环语句的用法
来源:互联网 发布:手机定位软件视频 编辑:程序博客网 时间:2024/05/18 17:42
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
- VB For 循环语句的用法
- vb的FOR循环
- Swift for循环语句用法
- vb.net的循环语句
- for语句的循环
- PHP中for循环语句的几种“变态”用法
- PHP中for循环语句的几种“变态”用法
- PHP中for循环语句的几种“变态”用法
- PHP中for循环语句的几种“变态”用法
- While() , do{}while(); , for(){} 循环语句的用法
- VB:set语句的用法
- VB:set语句的用法
- for 循环语句基本用法及示例
- for循环语句的bug?
- 增强的for循环语句
- 增强的for循环语句
- 增强的for循环语句
- JAVA 的 for 循环语句
- 题 D: Stack ? Queue ?
- 使命宣言
- VB从键盘输入任意三个数A,B,C,将其值按由大到小的顺序显示出来
- bzoj2753 [SCOI2012]滑雪与时间胶囊
- VB键盘输入一个数求阶乘的和
- VB For 循环语句的用法
- 软件架构
- 分层架构
- 漫谈计算机组成原理
- 事件驱动架构
- [BZOJ3817][类欧几里得算法]Sum
- 2017.3.14 不重复数字 思考记录
- 微内核架构
- 微服务架构