أسئلة للتفكير - عاطف مهدى حسان مايو 2016

[dentist do]

المشاركة الأصلية كتبت بواسطة زياد_عاطف

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

الحالة الاولى
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 و من صمموا لغة البرمجة جعلوها تعمل كما سبق شرحه

..................

شكرااا طب ماذا يحدث فى الكود التالى
for m=1 to 10 step -2
msgbox(m( ???

[زياد_عاطف]

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

..................

شكرااا طب ماذا يحدث فى الكود التالى
for m=1 to 10 step -2
msgbox(m( ???

===================
طالما أن قيمة البداية أقل من قيمة النهاية فى جملة For Next يجب أن تكون قيمة الزيادة التى بعد Step موجبة حتى يتم التكرار -
و إذا كانت قيمة البداية أقل من قيمة النهاية فى جملة For Next و كانت قيمة الزيادة التى بعد Step سالبة لن يتم التكرار -
و سواء تم تكرار أم لم يتم عندما يتم الذهاب لكلمة Next يتم تخزين قيمة البداية فى العداد

لذلك فى هذه الجملة لن يتم التكرار لان قيمة البداية أقل من قيمة النهاية و قيمة الزيادة سالبة فيتم تخزين قيمة البداية 1 فى العداد M و بعد كلمة Next مباشرة تكون قيمة العداد M هى قيمة البداية [1]
=========

عاطف مهدى