Dim R As integer
Dim Total As integer
For R = 1 to 8 Step2
Total = Total + R
Next
Msgebox ( Total)
أكتب القيمة النهائية للمتغير Total
هو الحل طلع بـ 16 بس عاوز افهم ازاى
ممكن الحل بالتفصيل لو سمحتم ولكم جزيل الشكر

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

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

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

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

http://i652.photobucket.com/albums/uu248/ROOH_2009/7.gif

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