امــتــحــانــات المـحـافــظــات تــرم ثـــان 2014 ( واجاباتها )

[winter4444]

والله أنا تعبتك معايا لكن سؤال الطالب سيكون حول هذه النقطة
Dim M As Integer

For M = 10 To 1 Step -2
MSGBOX (M
Next
في هذه الحالة التكرار يتوقف عند 2
ــــــــــــــــــــــــــــــــــــــــــــــــــ ـــــــــــــــ
Dim M As Integer
For M = 10 To 1 Step -2
Next
MSGBOX (M
التكرار هنا يتوقف عند الصفر
سؤالي الطالب سيضع القيمة على أساس أي من الاثنين

[أحـمد قرنى]

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

والله أنا تعبتك معايا لكن سؤال الطالب سيكون حول هذه النقطة
Dim M As Integer

For M = 10 To 1 Step -2
MSGBOX (M
Next
في هذه الحالة التكرار يتوقف عند 2

حضرتك فى حالة وجود Msgbox هنا بيبقى عايز ما يغرض داخل مربع الرسالة وليس قيمة العداد لان بردو قيمة العداد هيعرض اخر حاجة داخل مربع الرسالة 2 ويطلع ينقض -2 يبقى صفر فى الحالة دى يخرج من التكرار وينفذ ما بعد next وهنا مش موجود حاجة يبقى خلص الكود ويبقى اخر ما عرض داخل مربع الرسالة 2
ــــــــــــــــــــــــــــــــــــــــــــــــــ ـــــــــــــــ
Dim M As Integer
For M = 10 To 1 Step -2
Next
MSGBOX (M
التكرار هنا يتوقف عند الصفر
سؤالي الطالب سيضع القيمة على أساس أي من الاثنين

هنا ال msg box بعد كلمة next والمعروف اننا بنفذ ما بعد next لاما ينتهى التكرار وعشان الزيادة هنا بالسالب هيخرج لما تكون قيمة البداية اصغر من قيمة النهاية واللى هى صفر يبقى هيعرض الصفر بس



اما فى حالة عدم وجود msgbox يبقى هنا هيعرض قيمة العداد الاخيرة واللى انتهى هندها التكرار واللى هى صفر