حلقة التكرار Do
تستعمل جملة التكرار Do لعمل حدث ما بعدد معين .
يجب أن تصرح عن متحول قبلها لكي تعمل الجملة:
Dim a As Integer
Do
a=a+1
التعليمة
Loob Until (a Value) |
ربما شرح الجملة غير مفهوم قليلاً . في السطر الأول صرحنا عن متحول عددي
السطر الثاني بداية جملة التكرار
السطر الثالث زيادة قيمة المتحول a في كل حلقة تكرار
السطر الرابع تكتب التعليمة التي تريدها
السطر الخامس هو عدد مرات التكرار وهو سوف يكون قيمة المتحول a مثلاً :a<6 أو a=5
لذلك سوف يتم عمل التعليمة التي كتبتها 5 مرات ولهذا السبب قلنا عليك التصريح عن متحول لأنه دون ذلك سوف تكرر التعليمة إلى مالانهاية.
سوف نعمل مثال للتعرف أكثر على الجملة:
أضف فورم وزر أمر Command أكتب الشيفرة التالية:
Dim a As Integer
Do
a = a + 1
MsgBox a
Print a
Loop Until (a = 9) |
تكررا الحدث 9 مرات كما في السطر الأخير a=9
هناك جملة ثانية لحلقات التكرار هي جملة For أبسط وأسهل ستجدها بنفس القسم مشروحه.