[Dr.Noha Sami]

Dim R as integer
Dim Total as integer
For R=1 to 8 step 2
Total =total +R
Next
Msg box (total)
اكتب القيمه النهائيه للمتغير total