[زياد_عاطف]

المشاركة الأصلية كتبت بواسطة dody dy ana

طب هو ابه الفرق بين الحاله الاولى والتانيه ف الاجاااابه ؟؟؟ وهوا هيكرر كام مره ؟؟

فى الحالة الأولى

الحالة الاولى
Dim X as single
For X = 1 to 10 step 0
MsgBox (X) 000
Next
MsgBox ("Hiiiii " & X) 000
نلاحظ قيمة البداية أقل من قيمة النهاية فيتم التكرار إلى مالا نهاية و لا يتم الخروج من الحلقة التكرارية و تكون قيمة العداد X بعد كل تكرار هى قيمة البداية للعداد و هى 1 و فى هذا البرنامج سيتم طباعة قيمة العداد و هى [1] من خلال صندوق الرسالة لمالا نهاية و لا يتم التخلص من هذا الوضع اللا نهائى الا بعمل Stop Debugging

الحالة الثانية
Dim X as single
For X = 10 to 1 step 0
MsgBox (X) 000
Next
MsgBox ("Hiiiii " & X) 000

لاحظ قيمة البداية أكبر من قيمة النهاية و لن يتم التكرار و يأخذ المتغير X قيمة البداية للعداد و هى 10 و فى هذا البرنامج سيتم طباعة ما بعد Next و تنفيذ الجملةMsgBox ("Hiiiii " & X) 000 فيتم طباعة Hiiiii 10 أى طباعة Hiiiii متبوعة بقيمة العداد و هى [10] من خلال صندوق الرسالة
أما إذا أردت لااستفسار لماذا لم يتم طباعة 10 لمالا نهاية فى الحالة الثانية كما حدث و طبع [1] لما لا نهاية كما فى الحالة الاولى - فأقول هذه هى ديناميكية عمل حملة For Next و من صمموا لغة البرمجة جعلوها تعمل كما سبق شرحه