VBS基础篇 – 循环语句(1) – Do 循环

  • Post author:
  • Post category:其他


循环用于重复执行一组语句。循环可分为三类:一类在条件变为 False 之前重复执行语句,一类在条件变为 True 之前重复执行语句,另一类按照指定的次数重复执行语句。

在 VBScript 中可使用下列循环语句:


Do…Loop

: 当(或直到)条件为 True 时循环。


While…Wend

: 当条件为 True 时循环。


For…Next

: 指定循环次数,使用计数器重复运行语句。


For Each…Next

:对于集合中的每项或数组中的每个元素,重复执行一组语句。

Do 循环

当(或直到)条件为

True

时循环,语法结构如下:



当条件为True

时重复执行某语句块

1
2
3
4
5

Do


[{



While


|


Until


} condition]



[statements]



[


Exit


Do


]



[statements]

Loop



当条件变为True

之前重复执行某语句块

1
2
3
4
5

Do



[statements]



[


Exit


Do


]



[statements]

Loop


[{



While


|


Until


} condition]



主要参数:


condition:

数值或字符串表达式,其值为True或False。如果condition为Null,则condition被当作False


statements:

当condition为True时被重复执行的一条或多条命令





具体示例代码如下:



重复执行语句直到条件变为True

1
2
3
4
5
6
7
8
9
10
11
12

Dim


Count:Count = 5


'定义一个变量

Do


Until


Count = 0


'直到Count变量为0时,否则一直循环



MsgBox Count



Count = Count -1

Loop

MsgBox


"循环结束"

Dim


Count:Count = 5


'定义一个变量

Do



MsgBox Count



Count = Count -1

Loop


Until


Count = 0


'直到Count变量为0时,否则一直循环

MsgBox


"循环结束"



当条件变为True

之前重复执行某语句块

1
2
3
4
5
6
7
8
9
10
11
12

Dim


Count:Count = 5


'定义一个变量

Do


While


Count <> 0


'当Count变量为0时,停止循环



MsgBox Count



Count = Count -1

Loop

MsgBox


"循环结束"

Dim


Count:Count = 5


'定义一个变量

Do



MsgBox Count



Count = Count -1

Loop


While


Count <> 0


'当Count变量为0时,停止循环

MsgBox


"循环结束"



退出循环

Exit Do 语句用于退出 Do…Loop 循环。因为通常只是在某些特殊情况下要退出循环(例如要避免死循环),所以可在 If…Then…Else 语句的 True 语句块中使用 Exit Do 语句。如果条件为 False,循环将照常运行。示例代码如下:

1
2
3
4
5
6
7
8
9

Dim


Count:Count = 5


'定义一个变量

Do


While


Count <> 0


'当Count变量为0时,停止循环



MsgBox Count



Count = Count -1



If


Count = 2


Then


'判断Count变量值是否为2,如果是则退出循环



Exit


Do



End


If

Loop

MsgBox


"循环结束"