VBA While Wend循环

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

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

语法

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

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

流程图

示例

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

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