Obwód "Do", "Pętla" i "Podczas" "Wend". Co za różnica?

Question

Czytanie niektórych odpowiedzi w stackoverflow Widziałem pętlę whilewend. Jestem przyzwyczajony do do whileloop, więc zastanawiałem się, jaka byłaby różnica między tymi dwoma pętlami.

Zrobiłem kilka testów (kod poniżej) i oba wydają się dawać mi takie same wyniki.

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

Odpowiedź, o której wspomniałem, nie jest już widoczna, ale ta odpowiedź nadal jest prawdziwa. Choć/Wend jest kac od Podstawowy i zrobić/Loop powinien być preferowany składnia ponieważ:

1. Obsługuje sprawdzenie stanu przed wejściem do pętli Do While [condition] ... Loop (zero lub więcej egzekucji pętla)
2. Wspiera sprawdzenie stanu po wprowadzenie pętli Do ... Loop While [condition] (jeden lub więcej egzekucji pętla)
3. obsługuje żadnego konkretnego stanu Do ...(some logic) (Exit Do) ... Loop (jeden lub więcej egzekucji pętli, potencjalnie nieskończonej)

Answer 2

W rzeczywistości nie potrzebujesz "DO WHILE", ponieważ możesz "DO-LOOP" bez "While".

Używam "DO LOOP", jeśli potrzebuję wykonać akcję co najmniej jeden raz (lub kilka razy) bez żadnych ukrytych warunków, tak jak podskakuje WHILE-WEND.

Wystarczy na przykład, rodzaj budzika:

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

Answer 3

Nie sądzę, nie ma wielkiej różnicy w ich wykonaniu innym niż składniowych opcji While Wend nie jest zdolny do:

Do 
    someCode 
While (someCondition) 

chodzi o prędkość, zrobiłem prosty test:

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 

Wynik s:

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