悠悠博客 关注Ajax技术与web开发

While...Wend 语句
当指定的条件为 True 时，执行一系列的语句。

While condition
&nbsp； Version [statements]
Wend

参数
condition

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

statements

在条件为 True 时执行的一条或多条语句。

说明
如果 condition 为 True，则 statements 中所有 Wend 语句之前的语句都将被执行，然后控制权将返回到 While 语句，并且重新检查 condition。如果 condition 仍为 True，则重复执行上面的过程。如果不为 True，则从 Wend 语句之后的语句继续执行程序。

While...Wend 循环可以是多层嵌套结构。每个 Wend 与最近的 While 语句对应。

注意 Do...Loop 语句提供一种结构化与适应性更强的方法以执行循环。

下面例子举例说明如何使用 While...Wend 语句:

Dim Counter
Counter = 0 '初始化变量。
While Counter < 20 ' 测试计数器的值。
Counter = Counter + 1 ' 增加计数器。
Alert Counter
Wend ' 计数器大于 19 时终止循环。