الموضوع: سؤال
عرض مشاركة واحدة
  #2  
قديم 25-05-2010, 11:52 AM
medofouad medofouad غير متواجد حالياً
عضو جديد
  
تاريخ التسجيل: Dec 2008
المشاركات: 16
معدل تقييم المستوى: 0
medofouad is on a distinguished road
افتراضي اجابة
Dim I As integer
i = 1
do while i <= 10
msgbox(i*i)
i = i + 1
loop