While...Wend Statement
যখন একটি প্রোগ্রামে একটি While স্টেটমেন্ট পাওয়া যায়, এটি শর্ত পরীক্ষা করে থাকে। যদি শর্তটি False হয়, তাহলে প্রোগ্রামটি সরাসরি Wend স্টেটমেন্ট অনুসরণ করার মাধ্যমে চালানো হয়। যদি শর্তটি True হয়, তাহলে প্রগ্রামে Wend খুঁজে না পাওয়া পর্যন্ত লুপটি চালিয়ে যায় এবং তারপর স্থান পরিবর্তন করে While স্টেটমেন্টের পূর্বে ফিরে যায়। যদি শর্তটি তখনও True হয়, তাহলে লুপটি পুনরায় চালানো হয়।
Do...Loop এর মত নয়, আপনি একটি While...Wend লুপ প্রস্থান এর মাধ্যমে বাতিল করতে পারেন না। কখনও While...Wend লুপ GoTo দ্বারা বাতিল করবে না, যেহেতু এটি রান টাইম ত্রুটির কারণ হতে পারে।
A Do...Loop is more flexible than a While...Wend.
সিনট্যাক্স:
While Condition [Statement] Wend
উদাহরণ:
Sub ExampleWhileWend
Dim stext As String
Dim iRun As Integer
sText ="This is a short text"
iRun = 1
while iRun < Len(sText)
if Mid(sText,iRun,1 )<> " " then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )
iRun = iRun + 1
Wend
MsgBox sText,0,"Text encoded"
End Sub