Вырыв из цикла While... Wend

Я использую цикл While... Wend из VBA.

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

Я не хочу использовать условие типа `While Count <= 10... Wend

Ответы

Ответ 1

While/Wend цикл может быть прерван только преждевременно с GOTO или путем выхода из внешнего блока (Exit sub/function или другой exitable цикла)

Вместо этого Do цикл Do:

Do While True
    count = count + 1

    If count = 10 Then
        Exit Do
    End If
Loop

Или для зацикливания установленное количество раз:

for count = 1 to 10
   msgbox count
next

(Exit For может быть использован выше, чтобы выйти преждевременно)