[زياد_عاطف]

المشاركة الأصلية كتبت بواسطة japanay

بردو مش واصلة ممكن شرح ادق تفصيلا خطوة خطوة
بمثال تانى

Dim i , X as single
X= 4.5
For i = 3 To 11 Step 4
X = X *2
MsgBox( X ) r
Next

أول مرة يذهب فيها البرنامج لكلمة For يتم تخزين قيمة البداية Start فى العداد فتصبح قيمة i =3
و تتم مقارنة قيمة العداد بقيمة النهاية هلى هى أصغر من أو تساوى قيمة النهاية End يتحقق الشرط فيتم التكرار الأول لتنفيذ الأوامر التى بين For و Next
ينفذ الأمر الأول X=X*2= 4.5 *2 = 9
ثم ينفذ الأمر الثانى فيتم طباعة قيمة X من خلال صتدوق الرسالة 9
و عندما يتم الذهاب لكلمة Next يتم زيادة قيمة العداد i بقيمة الزيادة التى بعد Step فتصبح قيمة i= i + 4= 3 + 4=7

و تتم مقارنة قيمة العداد بقيمة النهاية هلى هى أصغر من أو تساوى قيمة النهاية End يتحقق الشرط فيتم فيتم التكرار الثانى لتنفيذ الأوامر التى بين For و Next
ينفذ الأمر الأول X=X*2= 9 *2 = 18
ثم ينفذ الأمر الثانى فيتم طباعة قيمة X من خلال صتدوق الرسالة 18
و عندما يتم الذهاب لكلمة Next يتم زيادة قيمة العداد i بقيمة الزيادة التى بعد Step فتصبح قيمة i= i + 4= 7+ 4=11

و تتم مقارنة قيمة العداد بقيمة النهاية هلى هى أصغر من أو تساوى قيمة النهاية End يتحقق الشرط فيتم فيتم التكرار الثالث لتنفيذ الأوامر التى بين For و Next
ينفذ الأمر الأول X=X*2= 18*2 = 36
ثم ينفذ الأمر الثانى فيتم طباعة قيمة X من خلال صتدوق الرسالة 36
و عندما يتم الذهاب لكلمة Next يتم زيادة قيمة العداد i بقيمة الزيادة التى بعد Step فتصبح قيمة i= i + 4= 11+ 4=15

و تتم مقارنة قيمة العداد بقيمة النهاية هلى هى أصغر من أو تساوى قيمة النهاية End لا يتحقق الشرط فيتم الخروج من الحلقة التكرارية
الخلاصة - ناتج تنفيذ الأوامر -
و يكون قيمة العداد بعد الخروج من الحلقة التكرارية هى 15 و عدد مرات التكرار 3 و قيمة المتغير X هى 36
================================
أتمنى أن يكون الشرح واضحاً
مع أطيب الأمنيات // عاطف مهدى حسان
================================