مراجعات التيرم الثانى
الصف الثالث / أسئلة منوعة
مارس 2015
عاطف مهدى حسان
===============================================
http://s11.postimg.org/9qc7srrzz/1_2_1.jpg (http://www.megafileupload.com/en/file/617337/Atef-Mahdy-rar.html)

http://s11.postimg.org/ojqvdizr3/1_2_2.jpg (http://postimg.org/image/ojqvdizr3/)
===============================================

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

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

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

مراجعة 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
=======================

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