[محمد عبد الحكم]

Dim X , Sum , Limit
Limit = Integer. Parse (txtLimit.Text)
X = 1
Do
Sum = Sum + X
X = X + 2
Loop While X <= Limit
Print Sum

الأمر For … Next

• على خلاف أوامر التكرار السابقة والتي لا نعرف فيها عدد مرات التكرار فان الأمر For…Next يستعمل في حالة معرفة عدد مرات التكرار مسبقاً .

ويستعمل طبقاً للقاعدة الموضحة :




حيث

• تحدد الكلمة For بداية التكرار
• وتحدد الكلمة Next نهاية التكرار
• والعداد Counter هو متغير رقمي يستعمله المبرمج لحساب عدد مرات التكرار مع ملاحظة أن الكلمات ( Start End – Increment ) هي قيم رقمية يتولى المبرمج تحديدها .
• الكلمة Step استعمالها اختياري وفى حالة عدم استخدامها تزيد قيمة العداد بمقدار 1 بعد كل تكرار .

أمثلة متنوعة

مثال1 :
أكتب كود برنامج يقوم بتغيير قيمة العداد Counter من 5 إلى 50 بزيادة 2 في كل مرة باستخدام أمر For…Next .
For Counter = 5 To 50 Step 2
مثال2 :
أكتب كود برنامج يقوم بتغيير قيمة العداد i من 1 إلى 100 بزيادة 1 في كل مرة باستخدام أمر For…Next .
For i = 1 To 100 Step 1
Or
For i = 1 To 100
مثال3 :
أكتب كود برنامج يقوم بتغيير قيمة العداد i من 10 إلى 2 بإضافة -2 في كل مرة باستخدام أمر For…Next .
For i = 10 To 2 Step -2
مثال4 :
أكتب كود برنامج يقوم بتغيير قيمة العداد i كالتالي ( 11 , 13 , 15, 17 , 19 ) باستخدام أمر For…Next.
For i = 11 To 19 Step 2
مثال5 :
أكتب كود برنامج يقوم بتغيير قيمة العداد i كالتالي ( 49 , 42 , 35, 28 , 21 ) باستخدام أمر For…Next.
For i = 49 To 21 Step -7

مثال 6 :
اكتب كود برنامج لحساب مجموعة الأعداد الزوجية من 2 إلى 100 وطباعة ناتج الجمع باستــخدام DoWhile….Loop .

الحل

سنقوم بتعريف متغيرين من النوع Integer هما N و Sum الأول كعداد والثاني كمتغير للمجموع والقيمة الافتراضية أو الابتدائية لهم هي صف ثم نكتب البرنامج كالتالي :

Dim N, Sum as Integer


Do While ( N < 100 )


3. N = N +2


Sum = Sum + N


Loop


. Print Sum