ID : 129
For...Next
功能
仅按指定次数重复一系列语句。
格式
For 计数器 = 初始值 To 最终值[ Step 增量] 'Statements Next[计数器]
指定项目
- 计数器
- 指定用作计数器的变量。指定数值型变量。
- 初始值
- 指定作为计数器指定变量的初始值代入的值。
- 最终值
- 指定计数器的最终值。
- 增量
- 指定每运行一次一系列语句需添加至计数器的值。可省略。省略时为“1”。
解说
仅按指定次数重复一系列语句。
在计数器指定的变量中代入初始值,并判断执行条件。如果执行条件为真(True),则执行指定的一系列语句。每执行一次一系列语句,就将增量中指定的值添加至计数器的变量。

语句的执行条件
在执行指定语句前,判断指定语句的执行条件。结束条件因增量值而异。
增量值 | 执行条件 |
---|---|
正数或0 | 计数器 <= 最终值 |
负数 | 计数器 >= 最终值 |
需强制从该循环中退出时,执行Exit语句的“Exit For”,即移至Next的下一行。
注意事项
如果将增量指定为“0”,则将进行无限循环。
对For数据块进行嵌套(嵌套结构)时,请勿与计数器指定的变量相同。否则,可能使动作变得复杂,导致不可预测的无限循环。
在执行完For语句时,代入并确定最终值和增量。执行一系列语句期间,即使最终值指定的变量更改,也不会反映至最终值。
应用示例
'!TITLE "重复执行For~Next区间的命令”
' 1至10的求和
Sub Sample_ForNext
Dim aaa As Integer
Dim bbb As Integer
bbb = 0
' 执行求和处理,直至aaa大于10
For aaa = 0 To 10 Step 1
bbb = bbb + aaa
Next
' 在讯息输出视窗中显示"55"
PrintDbg bbb
End Sub
ID : 129