[hassanalhawy]

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

Dim R , Sum As Integer =1
For R=5 to 10 step -1
Sum = Sum+R
Next
MsgBox (R)

ما هى قيمة المتغير R بعد تنفيذ الكود ؟

اختر
(10 - 5 - 0 )

ممكن الاجابة؟؟ مع شرح احنا عملنا ايه بالضبط

من فضلكم

المفروض أن هذه الحلقة التكرارية تصاعدية من 5 إلى 10 ، يعنى المفروض أن يكون قيمة الزيادة فى عداد الحلقة قيمة موجبة
أما فى هذا السؤال فقد وضع لقيمة الزيادة فى عداد الحلقة قيمة سالبة
لذا سيقوم الفيجوال بيزك بقراءة السطر For R=5 to 10 step -1
وسيقوم بإعلان عن حلقة تكرارية من نوع For عدادها هو R وسيضع فيه قيمة إبتدائية هى 5 وعند الوصول لمعدل الزيادة ويجده بالسالب ، يتم الخروج من الحلقة دون الدخول فيها
لذا ستجد أنه سيظهر صندوق رسالة بقيمة R وهى 5 ، التى هى نفسها القيمة الإبتدائية لعداد الحلقة