لو سمحتم انا مش فاهمه do...loop وكمان for...next واخر مثال في الفصل الثالث في الكتاب المدرسي فارجو مساعدتي في فهمهم مع اعطاء أمثلةتوضيحية وشكرا لكم

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

شــرح الأمــر Do ... While


http://www.mediafire.com/download.php?jwzvozjmoww

أو


http://www.mediafire.com/download.php?jwzvozjmoww


شــرح الأمــر For ... Next

http://www.mediafire.com/?nrdjyitqfnz

يا جمع انا انهارد جيبليكم حجات كويس انتظروني حاليا في الاسواق sayed call my 0107474596:022yb4::022yb4::022yb4::022yb4::friends xs3::022yb4::022yb4:http://www.thanwya.com/vb/life/icons/neww1qw1.gifhttp://www.thanwya.com/vb/life/icons/neww1qw1.gifالسيد حسين طالب في الصف الثالث الاعدادي :excl:
أنا دلوقاتي شغل علي فيجوال بيسك .8 يعني هظبتكموالله هظبتكم انتظرو ....................http://www.thanwya.com/vb/life/icons/exll.gif.http://www.thanwya.com/vb/life/icons/exll.gifhttp://www.thanwya.com/vb/life/icons/exll.gif.http://www.thanwya.com/vb/life/icons/exll.gif3 mXhttp://www.thanwya.com/vb/life/icons/exll.gifhttp://www.thanwya.com/vb/life/icons/exll.gif