|
#1
|
||||
|
||||
![]() اقتباس:
فى الحالة الأولى الحالة الاولى 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 و من صمموا لغة البرمجة جعلوها تعمل كما سبق شرحه |
#2
|
||||
|
||||
![]() اقتباس:
.................. شكرااا ![]() for m=1 to 10 step -2 msgbox(m( ??? |
#3
|
||||
|
||||
![]() اقتباس:
طالما أن قيمة البداية أقل من قيمة النهاية فى جملة For Next يجب أن تكون قيمة الزيادة التى بعد Step موجبة حتى يتم التكرار - و إذا كانت قيمة البداية أقل من قيمة النهاية فى جملة For Next و كانت قيمة الزيادة التى بعد Step سالبة لن يتم التكرار - و سواء تم تكرار أم لم يتم عندما يتم الذهاب لكلمة Next يتم تخزين قيمة البداية فى العداد لذلك فى هذه الجملة لن يتم التكرار لان قيمة البداية أقل من قيمة النهاية و قيمة الزيادة سالبة فيتم تخزين قيمة البداية 1 فى العداد M و بعد كلمة Next مباشرة تكون قيمة العداد M هى قيمة البداية [1] ========= عاطف مهدى
|
![]() |
العلامات المرجعية |
|
|