While...Wend
只要给定条件为True，就执行一系列语句。
语法：
While condition
[ statements ]
Wend
- condition
- 计算结果为True或False的数值表达式或字符串表达式。如果condition为Null，则condition被视为False。
- statements
- 可选 当condition为True时执行的一个或多个语句。
如果condition为True，则执行所有statements直到遇到Wend语句。然后控制返回到While语句并再次检查condition。如果condition仍为True，则重复该过程。如果不为True，执行从Wend语句之后的语句继续。
While...Wend循环可以嵌套到任意层级。每个Wend匹配最近的While。
可以在While...Wend循环中的任何位置放置任意数量的Exit While语句作为提前退出的方式。Exit While通常在评估某些条件后使用，此时它将控制转移到Wend之后紧接着的语句。
可以在While...Wend循环中的任何位置放置任意数量的Continue While语句来跳过其余语句并继续下一次迭代。
INFO
Exit While和Continue While是twinBASIC扩展。经典VBA没有While...Wend循环的提前退出或跳过迭代形式。
TIP
Do...Loop语句提供了更结构化、更灵活的循环方式。
示例
本示例使用While...Wend语句递增计数器变量。只要条件计算为True，循环中的语句就会执行。
vb
Dim Counter
Counter = 0 ' Initialize variable.
While Counter < 20 ' Test value of Counter.
Counter = Counter + 1 ' Increment Counter.
Wend ' End While loop when Counter > 19.
Debug.Print Counter ' Prints 20 in the Immediate window.