حلقة التكرار Do - نسخة قابلة للطباعة

كاتب الموضوع : tibo

بسم الله الرحمان الرحيــــــــــــــــــــم

حلقة التكرار Do

تستعمل جملة التكرار Do لعمل حدث ما بعدد معين
يجب أن تصرح عن متحول قبلها لكي تعمل الجملة:

كود :

[color=blue][FONT=Courier New]Dim [/FONT][/color][FONT=Courier New]a [/FONT][FONT=Courier New][color=blue]As Intege[/color][/FONT][FONT=Courier New][color=blue]r [/color][/FONT]

[FONT=Courier New]Do [/FONT]

[FONT=Courier New]a=a+1[/FONT]

التعليمة :

كود :

[FONT=Courier New]Loob Until (a Value)

[/FONT]

ربما شرح الجملة غير مفهوم قليلاً . في السطر الأول صرحنا عن متحول عددي

السطر الثاني بداية جملة التكرار

السطر الثالث زيادة قيمة المتحول a في كل حلقة تكرار

السطر الرابع تكتب التعليمة التي تريدها

السطر الخامس هو عدد مرات التكرار وهو سوف يكون قيمة المتحول a مثلاً :a<6 أو a=5

لذلك سوف يتم عمل التعليمة التي كتبتها 5 مرات ولهذا السبب قلنا عليك التصريح عن متحول لأنه دون ذلك سوف تكرر التعليمة إلى مالانهاية.

سوف نعمل مثال للتعرف أكثر على الجملة:

أضف فورم وزر أمر Command أكتب الشيفرة التالية:

كود :

[color=blue]Dim [/color]a [color=blue]As Intege[/color][color=blue]r [/color]

Do 

a = a + 1 

MsgBox a 

[color=blue]Print [/color]a 

Loop Until (a = 9)