|
例子1:
//支持Exit Do 命令退出循环
Do
TracePrint "我停不下来啦!!快住手"
Loop
//最常见的无限循环(死循环)
例子2:
Dim i=0
Do While i=0
TracePrint "我停不下来啦!!快住手"
Loop
//当循环条件成立的时候,反复执行循环体
例子3:
Dim i=0
Do Until i=0
TracePrint "为什么没有循环到我呢?"
Loop
TracePrint "循环结束"
//当循环条件成立的时候,离开循环体
例子4:
Dim i=0
Do Until i=1
TracePrint "我停不下来啦!!快住手"
Loop
//当循环条件不成立的时候,反复执行循环体
例子5:
Dim i=0
Do
TracePrint "ok"
Loop While i <> 0
//条件放后面,前面的循环内容可以执行一次!
例子6:
Dim n=0
Do While true
TracePrint "我将循环10次停下来!!"
If n>=10 Then
//当循环条件成立的时候,离开循环体
Exit do
End if
n=n+1
Loop
TracePrint n & "次" |
|