VBA While Wend循环

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

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

语法

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

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

流程图

示例

参考以下示例代码的实现 -

Private Sub Constant_demo_Click()
   Dim Counter :  Counter =    

   While Counter <      ' Test value of Counter.
      Counter = Counter +    ' 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 :  

The Current Value of the Counter is :  

The Current Value of the Counter is :  

The Current Value of the Counter is :  

The Current Value of the Counter is :