指定循环次数，使用计数器重复运行语句，语法结构如下：
|
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
NextMsgBox 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
NextMsgBox 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
NextMsgBox Count '输出5
|