您可以使用以下3个命令俩实现有限循环
简单例子
Dim xunhuncishu=10
For xunhuncishu
TracePrint "循环中"
Next
For 循环一定次数
功能
循环一定次数
命令参数
参数1 整数型，循环次数
范例
例子1：固定循环次数后离开
For 10 '固定循环10次跳出
TracePrint "循环中……"
Next
TracePrint "离开循环"
例子2：范围循环
Dim i
For i = 0 To 9 '这里没写步长，默认每次循环结束 i 都+1，那么10次后等于9，第11次等于10，大于9，离开循环
TracePrint "循环中，i=" & i
Next
TracePrint "离开循环，i=" & i
Dim i
For i = 0 To 19 Step 2 '步长为2，每次循环结束 i 都+2，那么10次后等于18，第11次等于20，大于19，离开循环
TracePrint "循环中，i=" & i
Next
TracePrint "离开循环，i=" & i
Dim i
For i = 9 To 0 Step -1 '步长为-1，每次循环结束 i 都-1，那么10次后等于0，第11次等于-1，小于0，离开循环
TracePrint "循环中，i=" & i
Next
TracePrint "离开循环，i=" & i
例子3：循环离开
Dim i
i=5
For i=0 To 10
TracePrint "循环中，i=" & i
If i=5 Then
Exit For '离开当前For循环
End If
Next
Do 循环
功能
条件循环
命令参数
参数1 条件型，循环条件
范例
例子1：
//支持Exit Do 命令退出循环
Dim i=0
Do While i=0
TracePrint "我停不下来啦!!快住手"
Loop
//当循环条件成立的时候，反复执行循环体
例子2：
Dim i=0
Do Until i=0
TracePrint "为什么没有循环到我呢？"
Loop
TracePrint "循环结束"
//当循环条件成立的时候，离开循环体
例子3：
Dim i=0
Do Until i=1
TracePrint "我停不下来啦!!快住手"
Loop
//当循环条件不成立的时候，反复执行循环体
例子4：
Dim n=0
Do While true
TracePrint "我将循环10次停下来!!"
If n>=10 Then
//当循环条件成立的时候，离开循环体
Exit do
End if
n=n+1
Loop
TracePrint n & "次"
例子5：
Dim i=0
Do
TracePrint "ok"
Loop While i <> 0
//条件放后面，前面的循环内容可以执行一次！
While 如果..则循环
功能
条件循环
命令参数
参数1 条件型，表达式
范例
Dim i=0
While i=0
TracePrint "我停不下来啦!!快住手"
Wend
//当循环条件成立的时候，反复执行循环体
追问学渣表示，被那一大串玩坏了。。。。。虽然没看懂，但是很厉害的样子。。。。