Do...Loop Statement

শর্তটি True হলে অথবা True না হওয়া পর্যন্ত Do এবং লুপ স্টেটমেন্টের মধ্যে পুনরাবৃত্তি করে থাকে।

সিনট্যাক্স

Do [{While | Until} condition = True]

স্টেটমেন্ট ব্লক

[Exit Do]

স্টেটমেন্ট ব্লক

Loop

স্টেটমেন্ট ব্লক

[Exit Do]

স্টেটমেন্ট ব্লক

Loop [{While | Until} condition = True]

প্যারামিটার/এলিমেন্ট

অবস্থা: একটি তুলনামূলক, সংখ্যাসূচক অথবা স্ট্রিং এক্সপ্রেশন, যা হয় True অথবা False হিসেবে মূল্যায়িত হয়।

স্টেটমেন্ট ব্লক: স্টেটমেন্ট যা শর্তটি True হলে অথবা True না হওয়া পর্যন্ত পুনরাবৃত্তি করতে চান।

একটি নির্দিষ্ট শর্ত True না হওয়া পর্যন্ত Do...Loop স্টেটমেন্টটি চালানো হয়। অবশ্যই Do অথবা Loop স্টেটমেন্ট অনুসরণ করে লুপ থেকে প্রস্থানের শর্ত সন্নিবেশ করাতে হবে। নিচের উদাহরণসমূহ হলো বৈধ সমাহার:

সিনট্যাক্স

Do While condition = True

...statement block

Loop

শর্তটি যদি True না হয় তাহলে Do While এবং লুপ স্টেটমেন্টের মধ্যে স্টেটমেন্ট ব্লক পুনরাবৃত্তি করে থাকে।

Do Until condition = True

...statement block

Loop

শর্তটি যদি false না হয় তাহলে Do এবং লুপ স্টেটমেন্টের মধ্যে স্টেটমেন্ট ব্লক পুনরাবৃত্তি করে থাকে।

...statement block

Loop While condition = True

শর্তটি যদি True না হয় তাহলে Do এবং লুপ স্টেটমেন্টের মধ্যে স্টেটমেন্ট ব্লক পুনরাবৃত্তি করে থাকে।

...statement block

Loop Until condition = True

শর্তটি True না হওয়া পর্যন্ত Do এবং লুপ স্টেটমেন্টের মধ্যে স্টেটমেন্ট ব্লক পুনরাবৃত্তি করে থাকে।

শর্তহীনভাবে লুপটি সমাপ্ত করার জন্য Exit Do স্টেটমেন্টটি ব্যবহার করুন। আপনি Do...Loop স্টেটমেন্টের যেকোনো স্থানে এই স্টেটমেন্টটি যোগ করতে পারেন। আপনি নিম্নরূপে If...Then কাঠামো ব্যবহার করে প্রস্থান স্টেটমেন্টটি নির্ধারণ করতে পারেন:

Do...

statements

If condition = True Then Exit Do

statements

Loop...

উদাহরণ


Sub ExampleDoLoop
Dim sFile As String
Dim sPath As String
    sPath = "c:\"
    sFile = Dir$( sPath ,22)
    If sFile <> "" Then
        Do
            MsgBox sFile
            sFile = Dir$
        Loop Until sFile = ""
    End If
End Sub