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
|