عرض مشاركة واحدة
  #11  
قديم 10-04-2011, 10:18 PM
redrose37 redrose37 غير متواجد حالياً
عضو جديد
 
تاريخ التسجيل: Apr 2011
المشاركات: 1
معدل تقييم المستوى: 0
redrose37 is on a distinguished road
افتراضي

برجاء سرعة إجابة هذا الشؤال:
السؤال السابع الفصل الثالث كتاب الوزارة صفحة 125
صف المخرجات الناتجة من تنفيذ مجموعة الاوامر الآتية

For I= 0 To 7
If ( i mod 2 = 0 ) then
MsgBox( i + 1 )
Elself ( i Mod 3+ 0) Then
MsgBox( i *i)
Elself (i Mod 5= 0) then
msgBox(2 *i - 1 )
Else
MsgBox(i)
Evd If
NEXT