语法
For counter = start To end [Step step]
[statements]
[Exit For]
[statements]
Next [counter]
描述:
counter 必要参数。用做循环计数器的数值变量。这个变量不能是布尔或数组元素。 start 必要参数。counter 的初值。
End 必要参数，counter 的终值。
Step 可选参数。counter 的步长。如果没有指定，则 step 的缺省值为 1。
Statements 可选参数。放在 For 和 Next 之间的一条或多条语句，它们将被执行指定的次数。
说明:
step 参数可以是正数或负数。step 参数值决定循环的执行情况：
如果step 参数为正数或 0,那么： counter <= end；若为负数，那么 counter >= end
执行过程：
当所有循环中的语句都执行后，step 的值会加到 counter 中。此时，循环中的语句可能会再次执行（基于循环开始执行时同样的测试），也可能是退出循环并从 Next 语句之后的语句继续执行。
提示：在循环中改变 counter 的值，将会使程序代码的阅读和调试变得更加困难。
循环中可以在任何位置放置任意个 Exit For 语句，随时退出循环。 Exit For经常在条件判断之后使用，例如 If...Then，并将控制权转移到紧接在 Next 之后的语句。
循环嵌套：
可以将一个 For...Next 循环放置在另一个 For...Next 循环中，组成嵌套循环。不过在每个循环中的 counter 要使用不同的变量名。下面的体系结构是正确的：
For I = 1 To 10
For J = 1 To 10
For K = 1 To 10
...
Next K
Next J
Next I
注意 如果省略 Next 语句中的 counter，就像 counter 存在时一样执行。但如果 Next 语追答
句在它相对应的 For 语句之前出现，则会产生错误。
二、While...Wend 语句——只要指定的条件为 True，则会重复执行一系列的语句。 语法：
While condition
[statements]
Wend
描述
condition 必要参数。数值表达式或字符串表达式，其计算结果为 True 或 False。如果 condition 为 Null，则 condition 会视为 False。
statements 可选参数。一条或多条语句，当条件（condition）为 True 时执行。
执行过程：
如果 condition 为 True，则所有的 statements 都会执行，一直执行到 Wend 语句。然后再回到 While 语句，并再一次检查 condition，如果 condition 还是为 True，则重复执行。如果不为 True，则程序会从 Wend 语句之后的语句继续执行。
While...Wend 循环也可以是多层的嵌套结构。每个 Wend 匹配最近的 While 语句。
提示：Do...Loop 语句提供了一种较While...Wend结构化与适应性更强的方法来执行循环。
三、Do...Loop 循环——当条件为 True 时，或直到条件变为 True 时，重复执行一个语句块中的命令。
语法：
Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop
或者可以使用下面这种语法：
Do
[statements]
[Exit Do]
[statements]
Loop [{While | Until} condition]
描述
Condition（条件） 可选参数。数值表达式或字符串表达式，其值为 True 或 False。如果 condition 是 Null，则 condition 会被当作 False。
statements 一条或多条命令，它们将被重复当或直到 condition 为 True。
说明：
在Do…Loop 中可以在任何位置放置任意个数的 Exit Do 语句，随时跳出Do….loop 循环。Exit Do 通常用于条件判断之后，例如If….then，在这种情况下，Exit Do 语句将控制权转移到紧接在 Loop 命令之后的语句。
如果 Exit Do 使用在嵌套的Do…Loop 语句中，则 Exit Do 会将控制权转移到 Exit Do 所在位置的外层循环。
Do循环语句可总结为下面四种形式
另：在 Do 和 Loop 后面不使用其他任何关键字，必须在循环体内加入判断语句退出循环 I = 0: S = 0
Do
I = I + 1
If I > 100 Then Exit Do
S = S + I
Loop
MsgBox "Do...Loop：1+2+3+...+100 = " & S
四、利用Goto 语句控制循环
I = 0: S = 0
Mark1:
I = I + 1
S = S + I
If I < 100 Then GoTo Mark1
MsgBox "GoTo 语句：1+2+3+...+100 = " & S
