الموضوع: اريد المساعدة
عرض مشاركة واحدة
  #1  
قديم 20-05-2011, 08:27 PM
new2011 new2011 غير متواجد حالياً
عضو مجتهد
 
تاريخ التسجيل: Jan 2011
المشاركات: 64
معدل تقييم المستوى: 15
new2011 is on a distinguished road
افتراضي اريد المساعدة

Dim n,k,c As integer
c=6
for n = 1 to 6 step 3
k =k +n
next
if n >c then
c =c+1
end if
قيمة المتغير k فى حل اسئلة الوزارة 5 عايز اعرف ليه