“Do While”“Loop”和“While”“Wend”循环。有什么不同？

Question

在 stackoverflow 中阅读了一些答案，我看到了一个 while wend 循环。我习惯了do whileloop，所以我想知道这两个循环之间有什么区别。

我做了一些测试（下面的代码），似乎都给了我相同的结果。

Sub test_loop_1()
Dim i As Integer
i = 1
Do While i < 10
    Cells(i, 1) = i
    i = i + 1
Loop

End Sub

Sub test_loop_2()
Dim i As Integer
i = 1
While i < 10
    Cells(i, 1) = i
    i = i + 1
Wend

End Sub

Answer 1

事实上，您不需要“DO WHILE”，因为您可以在没有“While”的情况下“DO-LOOP”。

如果我需要在没有隐含条件的情况下至少执行一次（或多次）操作，我会使用“DO LOOP”，因为 WHILE-WEND 强制执行。

举个例子，一种闹钟：

  Do
    Display Time at screen
    Sounds a buzz
    if user confirm
       exit do
    end if
  Loop

Answer 2

除了While Wend不具备的语法选项之外，我认为它们的执行没有太大区别：

Do
    someCode
While (someCondition)

至于速度，我做了一个简单的测试：

Sub whileLoopTest()
Dim i As Long, j As Long
Dim StartTime As Variant

i = 1
StartTime = Timer

While (i < 500000000)
    j = i + 2
    i = i + 1
Wend

Debug.Print "While execution time: " & Timer - StartTime
End Sub


Sub doWhileTest()
Dim i As Long, j As Long
Dim StartTime As Variant

i = 1
StartTime = Timer

Do While (i < 500000000)
    j = i + 2
    i = i + 1
Loop

Debug.Print "Do While execution time: " & Timer - StartTime
End Sub

结果：

While execution time: 6,429688  
While execution time: 6,429688
While execution time: 6,441406
Do While execution time: 6,429688
Do While execution time: 6,449219
Do While execution time: 6,4375

Answer 3

我提到的答案不再可见，但这个答案仍然成立。 While/Wend 是 Basic 的后遗症，Do/Loop 应该是您的首选语法，因为：

1. 支持before进入循环 Do While [condition] ... Loop（零次或多次循环执行）检查条件
2. 支持进入循环 Do ... Loop While [condition]（一次或多次循环执行）后检查条件
3. 它不支持特定条件 Do ...(some logic) (Exit Do) ... Loop（一个或多个循环执行，可能无限）