For 循环一定次数

🎯功能

循环语句。可以循环指定次数，也可以按照变量的起始数值到终止数值循环（如果不指定步长数值，默认步长为1），也可以循环取得数组或表中的所有值。

提示

当在Function或Sub中使用For循环, 并且不定义循环变量的情况下, 循环变量的作用域只在本For循环内

📜语法

For...Next

固定次数循环

For 循环次数
   循环体
Next

For...To...Next

递增循环

For 变量 = 起始数值 To 中止数值
   循环体
Next

For...To...Step...Next

步长循环

For 变量 = 起始数值 To 中止数值 Step 步长数值
   循环体
Next

For Each...in...Next

遍历键值对

For Each 键名, 键值 in 表
   循环体
Next

Exit For

使用If判断灵活退出循环

For 循环次数
   循环体
   If 条件 then
      Exit For
   End If
   循环体
Next
//其他的For循环语法也可以使用Exit For退出循环

📥参数

For...Next

参数	数据类型	解释
循环次数	数值型	循环执行的次数。
循环体	代码块	任意有效的代码语句块。

For...To...Next

参数	数据类型	解释
变量	标识符	任意有效变量名，存放循环变量，可以不用定义。
起始数值	数值型	循环变量的起始值。
中止数值	数值型	循环变量的中止值。

For...To...Step...Next

参数	数据类型	解释
变量	标识符	任意有效变量名，存放循环变量，可以不用定义。
起始数值	数值型	循环变量的起始值。
中止数值	数值型	循环变量的中止值。
步长数值	数值型	循环变量每次改变的差值。

For Each...in...Next

参数	数据类型	解释
键名	标识符	可选参数，任意有效变量名，存放表的键名，可以不用定义。
键值	标识符	任意有效变量名，存放数组元素值或表的键值，可以不用定义。
表	数组型 或 表	任意有效数组名或表。

Exit For

参数	数据类型	解释
循环次数	数值型	循环执行的次数。
循环体	代码块	任意有效的代码语句块。
条件	布尔值	任意有效的条件表达式。

📤返回

无

💡示例

For...Next

固定次数循环

//固定循环10次
For 10
   TracePrint "正在循环……"
Next

For...To...Next

递增循环

Dim i
//递增循环，步长默认为1，每次循环i都加1，直到退出
For i = 0 To 9
   TracePrint "正在循环中，i=", i
Next
TracePrint "循环结束，i=", i

For...To...Step...Next

步长递增循环

Dim i
//递增循环，步长为2，每次循环i都加2，直到退出
For i = 0 To 9 Step 2
   TracePrint "正在循环中，i=", i
Next
TracePrint "循环结束，i=", i

步长递减循环

Dim i
//递减循环，步长为-1，每次循环i都减1，直到退出
For i = 9 To 0 Step -1
   TracePrint "正在循环中，i=", i
Next
TracePrint "循环结束，i=", i

For Each...in...Next

遍历数组

Dim s, Arr
Arr = Array("你好", "欢迎来到", "紫猫编程学园")
//遍历数组中的每个元素，直到退出
For Each s In Arr
   TracePrint "数组元素值：", s
Next

遍历表

Dim k, v, t
t = {"a":"你好", "b":"欢迎来到", "c":"紫猫编程学园"}
//遍历表中的键名与键值并输出，注意表是无序的，所以输出是打乱的
For Each k, v In t
   TracePrint "键名：", k, ",  键值：", v
Next

Exit For

Exit For例子

Dim i
//条件成立时，退出循环，For Each也可以使用Exit For命令
For i = 0 To 9
   TracePrint "正在循环中，i=", i
   If i = 5 Then
      TracePrint "退出当前循环"
      Exit For
   End If
Next
TracePrint "循环结束，i=", i

实现continue

实现continue

Dim i
//使用Goto跳过某次循环，实现高级语言中的continue功能
For i = 0 To 9
   TracePrint "正在循环中，i=", i
   If i = 5 Then
      Goto 跳过循环
   End If
   TracePrint "本轮的 i =", i
   Rem 跳过循环
Next
TracePrint "循环结束，i=", i

📘备注

• For循环通常是用于表示有限次数循环，故最好避免将步长设置为0或者在循环体中改变循环变量的值。
• 注意，Exit For只能退出离它最近的当前For循环。