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