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

بوابة الثانوية العامة المصرية (https://www.thanwya.com/vb/index.php)

- حاسب آلى 3ع ترم2 (https://www.thanwya.com/vb/forumdisplay.php?f=1965)

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

مراجعات التيرم الثانى
الصف الثالث / أسئلة منوعة
مارس 2015
عاطف مهدى حسان
===============================================
http://s11.postimg.org/9qc7srrzz/1_2_1.jpg

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

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

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

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

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

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