عرض مشاركة واحدة
  #1  
قديم 09-05-2011, 11:38 AM
Dr.Noha Sami Dr.Noha Sami غير متواجد حالياً
عضو ممتاز
 
تاريخ التسجيل: Jul 2010
المشاركات: 310
معدل تقييم المستوى: 16
Dr.Noha Sami is on a distinguished road
افتراضي

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