Do 循环

文章目录
  1. 1. 功能
  2. 2. 语法
  3. 3. 参数
  4. 4. 返回值
  5. 5. 示例
  6. 6. 备注

功能

条件循环语句。可以是无限循环,也可以是有限循环。

语法

语法1
1
2
3
Do
循环体
Loop
语法2
1
2
3
Do While 条件
循环体
Loop
语法3
1
2
3
Do Until 条件
循环体
Loop
语法4
1
2
3
Do
循环体
Loop While 条件
语法5
1
2
3
Do
循环体
Loop Until 条件

参数

参数 数据类型 解释
条件 逻辑型 任意有效的条件表达式。
循环体 代码块 任意有效的代码语句块。

返回值

示例

例子1
1
2
3
4
5
//最常见的无限循环(死循环)
Do
TracePrint "啊呀,停不下来了,头晕。。。"
Delay(500)
Loop
例子2
1
2
3
4
5
6
7
Dim i = 0
//当条件成立时,进入循环,直到条件不成立,退出循环
Do While i < 10
i = i + 1
TracePrint "正在循环中,i=", i
Loop
TracePrint "循环结束,i=", i
例子3
1
2
3
4
5
6
7
Dim i = 0
//当条件不成立时,进入循环,直到条件成立,退出循环
Do Until i > 5
i = i + 1
TracePrint "正在循环中,i=", i
Loop
TracePrint "循环结束,i=", i
例子4
1
2
3
4
5
6
7
Dim i = 0
//进入循环,当条件不成立,退出循环
Do
i = i + 1
TracePrint "正在循环中,i=", i
Loop While i > 5
TracePrint "循环结束,i=", i
例子5
1
2
3
4
5
6
7
Dim i = 0
//进入循环,当条件成立,退出循环
Do
i = i + 1
TracePrint "正在循环中,i=", i
Loop Until i > 5
TracePrint "循环结束,i=", i
例子6
1
2
3
4
5
6
7
8
9
10
11
Dim i = 0
//跳出循环
Do
i = i + 1
TracePrint "正在循环中,i=", i
If i = 10 then
TracePrint "准备退出循环"
Exit Do
End If
Loop
TracePrint "循环结束,i=", i

备注

  • Do循环通常用于无限循环与条件循环,要注意While和Until的位置与条件,如果怕弄迷糊的话,那么就使用If结合Exit Do作为退出条件。
  • 注意,Exit Do只能退出离它最近的当前Do循环。