تستخدم الحلقة التكرار While .. End While لتنفيذ نص التعليمات البرمجية حتى يستوفي الشرط المحدد. حيث يتم تقييم التعبير الشرطي في كل مرة في الحلقة. إذا كانت نتيجة التقييم صحيحة ، يتم تنفيذ عبارات body loop....وتاخذ الصيغة العامة التالية :

الكود:


While [condition]
         [loop body]
      End While

والشرط يتم تعريقة على النحو التالى :

الكود:


counter = 1
While (counter <= 10)
Message
counter = counter + 1
End While


السطر 1: بدء العداد من 1

السطر 2: أثناء التحقق من حلقة العداد إذا كان أقل من أو يساوي 10

السطر 3: في كل مرة تنفذ الحلقة الرسالة وتظهر

السطر 4: العداد بزيادة قيمة 1 في كل مرة يتم فيها تنفيذ الحلقة

السطر 5: نهاية نهاية الحلقة أثناء وجود حلقة


مثال :

الكود:


 Dim counter As Integer
        counter = 1
        While (counter <= 10)
            MsgBox("Counter Now is : "  counter)
            counter = counter + 1
        End While