কিছুক্ষণের মধ্যে বিরতি ... ওয়েন্ড লুপ

Question

আমি একটি সময় ব্যবহার করছি ... ভিবিএর ওয়েন্ড লুপ।

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

এ 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