android按钮点击次数,android按键精灵 设置次数

您可以使用以下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

//当循环条件成立的时候，反复执行循环体

取消

评论