Do...Loop Statement
শর্তটি True হলে অথবা True না হওয়া পর্যন্ত Do এবং লুপ স্টেটমেন্টের মধ্যে পুনরাবৃত্তি করে থাকে।
সিনট্যাক্স
Do [{While | Until} condition = True]
স্টেটমেন্ট ব্লক
[Exit Do]
স্টেটমেন্ট ব্লক
Loop
or
Do
স্টেটমেন্ট ব্লক
[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 এবং লুপ স্টেটমেন্টের মধ্যে স্টেটমেন্ট ব্লক পুনরাবৃত্তি করে থাকে।
Do
...statement block
Loop While condition = True
শর্তটি যদি True না হয় তাহলে Do এবং লুপ স্টেটমেন্টের মধ্যে স্টেটমেন্ট ব্লক পুনরাবৃত্তি করে থাকে।
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