while..wend循环

在While…Wend循环中，如果条件为True，则执行所有语句，直到遇到Wend关键字。

如果条件为false，则退出循环并且控制跳转到Wend关键字之后的下一个语句。

语法 (Syntax)

以下是VBA中While..Wend循环的语法。

While condition(s)
   [statements 1]
   [statements 2]
   ...
   [statements n]
Wend

流程图 (Flow Diagram)

例子 (Example)

Private Sub Constant_demo_Click()
   Dim Counter :  Counter = 10   
   While Counter < 15     ' Test value of Counter.
      Counter = Counter + 1   ' Increment Counter.
      msgbox "The Current Value of the Counter is : " & Counter
   Wend   ' While loop exits if Counter Value becomes 15.
End Sub   

执行上述代码时，它会在消息框中打印以下内容。

The Current Value of the Counter is : 11 
The Current Value of the Counter is : 12 
The Current Value of the Counter is : 13 
The Current Value of the Counter is : 14 
The Current Value of the Counter is : 15