سؤال فى امتحان محافظة الاسكندرية 2010

[amorastar]

Dim R As integer
Dim Total As integer
For R = 1 to 8 Step2
Total = Total + R
Next
Msgebox ( Total)

أكتب القيمة النهائية للمتغير Total
هو الحل طلع بـ 16 بس عاوز افهم ازاى
ممكن الحل بالتفصيل لو سمحتم ولكم جزيل الشكر

[gomaa hamed]

Dim R As integer
Dim Total As integer
For R = 1 to 8 Step2
Total = Total + R
Next
Msgebox ( Total
في البداية لازم تعرف إن عند التكرار لابد نقف عند القيمة الكبري بعد for يعنى التكرار سيكون 1 و 3 و 5 و 7 بخطوة 2 ثم نفوم بعملية تكرار العملية
total = total + r
total فى البداية =صفر
صفر + 1
1 + 3
4 + 5
9 + 7
و بذلك تصبح total بـ 16

[amorastar]

مشكوووووووووووووووووووووووووووور
جزاك الله كل خير

[أحمد هاشم الزيدي]

جزاك الله كل الخير

[esraaaide]

جزاك الله كل خير

[El-Tantawy]

[shasah]

نعم االاجابة
كما قال مشكور 16