थोड़ी देर के लिए बाहर… लूप लूप

Question

मैं थोड़ी देर का उपयोग कर रहा हूँ ... 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

मैं `जबकि गिनती <= 10 ... जैसे शर्त का उपयोग नहीं करना चाहता

Answer 1

A While/ Wendलूप केवल समय से पहले GOTOया बाहरी ब्लॉक ( Exit sub/ functionया किसी अन्य बाहरी लूप) से बाहर निकलने के साथ बाहर निकल सकता है

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समय से पहले बाहर निकलने के लिए ऊपर इस्तेमाल किया जा सकता है)

Answer 2

एक अन्य विकल्प यह होगा Booleanकि आप अपने मानदंड के आधार पर एक ध्वज चर सेट करें और फिर उस मान को बदलें।

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

Answer 3

सबसे अच्छा तरीका है कि Andआप अपने Whileबयान में एक खंड का उपयोग करें

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