Bir Süre Çıkın ... Wend döngüsünden

Bir While ... Wend döngüsü kullanıyorum.

Dim count as Integer

While True
    count=count+1

    If count = 10 Then
        ''What should be the statement to break the While...Wend loop? 
        ''Break or Exit While not working
    EndIf
Wend

`` Count <= 10 ... Wend '' gibi bir koşul kullanmak istemiyorum

A While/ Wenddöngüden yalnızca GOTObir dış bloktan ( Exit sub/ functionveya başka bir çıkılabilir döngüden) çıkılarak erken çıkılabilir.

DoBunun yerine bir döngüye geçin :

Do While True
    count = count + 1

    If count = 10 Then
        Exit Do
    End If
Loop

Veya belirli sayıda döngü yapmak için:

for count = 1 to 10
   msgbox count
next

( Exit Forerken çıkmak için yukarıda kullanılabilir)

Diğer bir seçenek de bir bayrak değişkenini a olarak ayarlamak Booleanve ardından bu değeri kriterlerinize göre değiştirmek olabilir.

Dim count as Integer 
Dim flag as Boolean

flag = True

While flag
    count = count + 1 

    If count = 10 Then
        'Set the flag to false         '
        flag = false
    End If 
Wend

En iyi yolu kullanmaktır Andsizin de maddesini Whileaçıklamada

Dim count as Integer
count =0
While True And count <= 10
    count=count+1
    Debug.Print(count)
Wend