مراجعات التيرم الثانى الصف الثالث الاعدادى2015- عاطف مهدى حسان

[زياد_عاطف]

مراجعات التيرم الثانى
الصف الثالث / أسئلة منوعة
مارس 2015
عاطف مهدى حسان
===============================================



===============================================

[عطية عبدالمجيد]

جزاك الله خير الجزاء

[فتحى سليم محمد]

فييييييييييييييييييييييييييييييييييييييييييييييييي يييييييييييييييييييييييييييييييييييييييييين

[ronaldo2010]

شكرا على مجهودك العظيم

[زياد_عاطف]

مراجعة 2 على For Next

تتبع مجموعة الأوامر التالية
أوجد قيمة العداد و قيمة المتغير Y و عدد مرات التكرار
Dim X , Y as Integer
For X = 0 to 10 Step 3
Y = X * 2
MsgBox(y )p
Next X
MsgBox(Y & X )p
=======================
تتبع مجموعة الأوامر التالية
أوجد قيمة العداد و قيمة المتغير Y و عدد مرات التكرار
Dim X , Y as Integer
For X = 0 to 10 Step 3
Y = X * 2
MsgBox(y )p
Next X
MsgBox(Y & X )p
=======================
تتبع مجموعة الأوامر التالية
أوجد قيمة العداد و قيمة المتغير Y و عدد مرات التكرار
Dim X , Y as Integer
For X = 0 to 10 Step -3
Y = X * 2
MsgBox(y )p
Next X
MsgBox(Y & X )p
====================================
تتبع مجموعة الأوامر التالية
أوجد قيمة العداد و قيمة المتغير Y و عدد مرات التكرار
Dim X , Y as Integer
For X = 2 to 15 Step 6
Y = X * 3
MsgBox(y )p
Next X
MsgBox(Y & X )p
====================================

مع أطيب التمنيات
عاطف مهدى حسان

[زياد_عاطف]

مراجعة 3على For Next و Do While

قم بإعادة كتابة الأوامر التالية بإستخدام Do While مع ذكر الغرض من كل برنامج
(1)
Dim X as Integer
For X = 5 to 23 Step 7
MsgBox(X)p
Next

=======================
(2)
Dim X , Y as Integer
For X = 3 to 16 Step 4
Y = Y+X
Next X
MsgBox(Y )p
=======================

[gamal h]

شكرااااااااااا