Structure of control in Visual Basic 3

عبارة DoèLoop

تقوم بنية التحكم هذه بالاستمرار في تكرار تنفيذ الكود المرافق لها.فبالتالي يجـــب على

المبرمج أن يضع الشرط الذي يؤدي إلى إيقافها ضمن الكود المرفق بها,وذلك باستخدام

التعليمة Exit Do.

يتم تكرار تنفيذ الكود المحصور بين Do وLoop,والقاعدة العامة هي:

 Do

  Statement1{May it is   Loop Exit Condition}

  Statement..

                                                                                                  Loop

ولنأخذ المثال السابق بعد تعديله

Private Sub Form_Load()

Dim Counter As Integer

Counter = 0

 Do

If Counter=6 Then Exit Do

 MsgBox Counter

 Counter = Counter + 1

 Loop

End Sub