指定循环次数,使用计数器重复运行语句,语法结构如下:
1
2
3
4
5
|
For
counter = start
To
end [
Step
step]
[statements]
[
Exit
For
]
[statements]
Next
|
主要参数:
counter:用做循环计数器的数值变量。这个变量不能是数组元素或用户自定义类型的元素。
start:counter的初值。
end:counter的终值。
step:counter的步长。如果没有指定,则step的默认值为1。
具体示例代码如下:
For…Next
1
2
3
4
5
|
Dim
Count:Count = 0
'定义一个变量,并赋值为0
For
i = 1
To
10
'循环10次
Count = Count + 1
Next
MsgBox Count
'输出10
|
Step设置计数器循环步长
1
2
3
4
5
|
Dim
Count:Count = 0
'定义一个变量,并赋值为0
For
i = 1
To
10
Step
2
'设置计数器步长为2,循环5次
Count = Count + 1
Next
MsgBox Count
'输出5
|
退出循环
Exit For 语句用于在计数器达到其终止值之前退出 For...Next 语句。因为通常只是在某些特殊情况下(例如在发生错误时)要退出循环,所以可以在 If...Then...Else 语句的 True 语句块中使用 Exit For 语句。如果条件为 False,循环将照常运行。
1
2
3
4
5
6
7
8
|
Dim
Count:Count = 0
'定义一个变量,并赋值为0
For
i = 1
To
10
'循环10次
Count = Count + 1
If
Count = 5
Then
'当变量Count的值为5时,退出当前循环
Exit
For
End
If
Next
MsgBox Count
'输出5
|