Computer 3rd-preparatory-second-term-khawagah-6

‫حسن‬ ‫كامل‬ ‫سعيد‬ / ‫إعداد‬
‫اإلعدادى‬ ‫الثالث‬ ‫الصف‬
1
‫للكمبيوتر‬ ‫األمــري‬
‫الفصل‬:‫األول‬‫البيانات‬Data
‫الكمبيوتر‬ ‫ذاكرة‬ ‫فى‬ ‫تخزينها‬ ‫يتم‬ ‫برنامج‬ ‫اى‬ ‫فى‬ ‫معها‬ ‫التعامل‬ ‫يتم‬ ‫التى‬ ‫البيانات‬ *‫المؤقتة‬RAM
‫تسمى‬ ‫والخلية‬ ‫المتساوية‬ ‫الخاليا‬ ‫ماليين‬ ‫من‬ ‫الكمبيوتر‬ ‫ذاكرة‬ ‫تتكون‬ *)‫(بايت‬Byte.
‫الذاكرة‬ ‫فى‬ ‫تخزين‬ ‫طريقة‬ ‫له‬ ‫بيان‬ ‫نوع‬ ‫كل‬ *RAM‫مس‬ ‫له‬ ‫بيان‬ ‫كل‬ ‫ألن‬‫تبعاا‬ ‫تختلف‬ ‫معينة‬ ‫تخزينية‬ ‫احة‬
‫البيان‬ ‫لنوع‬‫عليه‬ ‫ستجرى‬ ‫التى‬ ‫والمنطقية‬ ‫الحسابية‬ ‫المعالجة‬ ‫وعمليات‬.
:‫البيانات‬ ‫أنواع‬
*‫اة‬‫ا‬ ‫ل‬ ‫اوفر‬‫ا‬‫ت‬V.B.Net‫اتخدل‬‫ا‬‫مس‬ ‫ان‬‫ا‬‫م‬ ‫اات‬‫ا‬‫البيان‬ ‫ازين‬‫ا‬‫تخ‬ ‫اى‬‫ا‬‫ف‬ ‫اتخدل‬‫ا‬‫تس‬ ‫اى‬‫ا‬‫الت‬ ‫اات‬‫ا‬‫البيان‬ ‫اواع‬‫ا‬‫عن‬ ‫ماان‬ ‫اد‬‫ا‬‫العدي‬
. ‫البرنامج‬ ‫وتعليمات‬ ‫عوامر‬ ‫تنفيذ‬ ‫من‬ ‫عو‬ ‫البرنامج‬
‫البيانات‬‫الرقم‬:‫ية‬
‫حسابي‬ ‫عمليات‬ ‫عليها‬ ‫يجرى‬ ‫عن‬ ‫يمكن‬ ‫التى‬ ‫األرقال‬ ‫هى‬‫ة‬.
‫البيانات‬:‫الحرفية‬
*‫ام‬‫ا‬‫ورق‬ ‫اون‬‫ا‬‫التليف‬ ‫ام‬‫ا‬‫رق‬ ‫ال‬‫ا‬ ‫م‬ ‫اال‬‫ا‬‫عرق‬ ‫ات‬‫ا‬‫كان‬ ‫او‬‫ا‬‫ول‬ ‫اى‬‫ا‬‫حت‬ ‫اابية‬‫ا‬‫حس‬ ‫اات‬‫ا‬‫عملي‬ ‫اا‬‫ا‬‫عليه‬ ‫ارى‬‫ا‬‫يج‬ ‫اى‬‫ا‬‫الت‬ ‫اات‬‫ا‬‫البيان‬ ‫اى‬‫ا‬‫ه‬
.‫الجلوس‬ ‫ورقم‬ ‫المسلسل‬ ‫ورقم‬ ‫البطاقة‬
‫الحرفية‬ ‫البيانات‬ :
ً
‫أوال‬
‫النوع‬‫الحجم‬‫البيانا‬ ‫وطبيعة‬ ‫المدى‬‫المخزنة‬ ‫ت‬‫الدقة‬
Chare2‫بايت‬‫إلى‬ ‫يحتاج‬ ‫حرف‬ ‫وكل‬ ‫فقط‬ ‫واحد‬ ‫حرف‬ ‫لتخزين‬2‫بايت‬-
String‫ير‬ ‫مت‬)‫التليفون‬ ‫(رقم‬ ‫حسابية‬ ‫عمليات‬ ‫فى‬ ‫تدخل‬ ‫عرقال‬ ‫عو‬ ‫حروف‬-
ً
‫ثانيا‬‫الرقمية‬ ‫البيانات‬ :
1.‫صحيحة‬ ‫اعداد‬ ‫بها‬ ‫يخزن‬ ‫التى‬ ‫البيانات‬ )
‫النوع‬‫الحجم‬‫المدى‬‫المخز‬ ‫البيانات‬ ‫وطبيعة‬‫نة‬‫الدقة‬
Byte1‫بايت‬‫إلى‬ ‫صفر‬ ‫من‬222-
Short2‫بايت‬‫الصحيحة‬ ‫لألرقال‬‫موجبة‬ ‫عو‬ ‫سالبة‬2‫خانات‬
Integer4‫بايت‬‫موجبة‬ ‫عو‬ ‫سالبة‬ ‫الصحيحة‬ ‫لألرقال‬11‫خانات‬
Long8‫بايت‬‫موجبة‬ ‫عو‬ ‫سالبة‬ ‫الصحيحة‬ ‫لألرقال‬11‫خانة‬
2. ‫عشرية‬ ‫أعداد‬ ‫بها‬ ‫يخزن‬ ‫التى‬ ‫البيانات‬ )
‫النوع‬‫الحجم‬‫المدى‬‫الدقة‬
Single4‫بايت‬‫موجبة‬ ‫عو‬ ‫سالبة‬ ‫العشرية‬ ‫لألرقال‬7‫خانات‬
Double8‫بايت‬‫لألرقال‬‫العشرية‬‫موجبة‬ ‫عو‬ ‫سالبة‬12‫خانة‬
Decimal11‫بايت‬‫لألرقال‬‫العشرية‬‫موجبة‬ ‫عو‬ ‫سالبة‬21‫خانة‬

2
‫المتنوعة‬ ‫البيانات‬ : ‫ثالثا‬
‫النوع‬‫الحجم‬‫المدى‬‫الدقة‬
Boolean2‫بايت‬‫قيمتها‬ ‫التى‬ ‫البيانات‬True or False-
Object4‫بايت‬‫(رقمى‬ ‫واألنواع‬ ‫القيم‬ ‫جميع‬-)‫حرفى‬-
Date8‫بايت‬‫من‬1/1/1111‫إلى‬11/12/1111-
: ‫التالية‬ ‫العوامل‬ ‫على‬ ‫البيانات‬ ‫أنواع‬ ‫تتوقف‬
1-‫البايت‬ ‫عدد‬Bytes:.‫نوعه‬ ‫حسب‬ ‫ير‬ ‫مت‬ ‫كل‬ ‫يحتاجها‬ ‫التى‬ ‫الذاكرة‬ ‫حجم‬ ‫وهو‬
2-‫ا‬‫لمدى‬Range:‫نوعه‬ ‫حسب‬ ‫ير‬ ‫مت‬ ‫كل‬ ‫فى‬ ‫تخزينها‬ ‫المتاح‬ ‫القيم‬ ‫حدود‬ ‫وهو‬.
1-‫الدقة‬ ‫درجة‬:‫الخانات‬ ‫عدد‬ ‫وهى‬‫ير‬ ‫مت‬ ‫لكل‬‫فقط‬ ‫الرقمية‬ ‫بالبيانات‬ ‫خاصة‬ ‫وهى‬.
:‫اآلتى‬ ‫الحظ‬
.‫نوع‬ ‫من‬ ‫ر‬ ‫عك‬ ‫له‬ ‫البيانات‬ ‫عنواع‬ ‫من‬ ‫تصنيف‬ ‫كل‬ *
‫النوع‬ ‫ال‬ ‫فم‬ ،‫الكمبيوتر‬ ‫ذاكرة‬ ‫فى‬ ‫تخزين‬ ‫حيز‬ ‫ل‬ ‫يش‬ ‫نوع‬ ‫كل‬ *Integer‫قادرها‬ ‫مسااحة‬ ‫ل‬ ‫يشا‬4‫بايات‬
.‫الذاكرة‬ ‫حجم‬ ‫من‬
‫مادى‬ ‫عليهاا‬ ‫يطلاع‬ ‫القايم‬ ‫من‬ ‫عقصى‬ ‫وحد‬ ‫عدنى‬ ‫حد‬ ‫له‬ ‫عيضا‬ ‫نوع‬ ‫كل‬ *Range‫البياان‬ ‫ناوع‬ ‫ال‬ ‫فما‬Byte
‫له‬ ‫األقصى‬ ‫والحد‬ ‫صفر‬ ‫له‬ ‫األدنى‬ ‫الحد‬222.
‫والمتغيرات‬ ‫الثوابت‬Constants & Variables
‫الثوابـت‬ :
ً
‫أوال‬Constants
‫اا‬‫ا‬‫عم‬ ‫ان‬‫ا‬‫ع‬ ‫عباارة‬ *‫اوتر‬‫ا‬‫الكمبي‬ ‫ارة‬‫ا‬‫ذاك‬ ‫اى‬‫ا‬‫ف‬ ‫ة‬ ‫او‬‫ا‬‫محج‬ ‫كن‬RAM‫اوع‬‫ا‬‫ون‬ ‫ام‬‫ا‬‫عس‬ ‫اا‬‫ا‬‫له‬ ‫ادد‬‫ا‬‫يتح‬ ‫اا‬‫ا‬‫عنه‬ ‫االن‬‫ا‬‫االع‬ ‫اد‬‫ا‬‫عن‬
.‫البرنامج‬ ‫يل‬ ‫تش‬ ‫عثناء‬ ‫ير‬ ‫تت‬ ‫البرنامج‬ ‫سير‬ ‫عثناء‬ ‫ثابتة‬ ‫قيمة‬ ‫وتأخذ‬ ،‫بيان‬
‫ارعة‬‫ا‬‫وس‬ ،‫اية‬‫ا‬ ‫األر‬ ‫اة‬‫ا‬‫الجاذبي‬ ‫اة‬‫ا‬‫عجل‬ ‫ال‬‫ا‬ ‫م‬ ‫ااء‬‫ا‬‫الفيزي‬ ‫اى‬‫ا‬‫ف‬ ‫ات‬‫ا‬‫واب‬ ‫ال‬ ‫اف‬‫ا‬‫بع‬ ‫عو‬ ،‫ط‬ ‫اة‬‫ا‬‫قيم‬ ‫ات‬‫ا‬‫واب‬ ‫ال‬ ‫اة‬‫ا‬‫ل‬ ‫عم‬ ‫ان‬‫ا‬‫م‬ *
‫وجميعها‬ ،‫الصوت‬ ‫وسرعة‬ ،‫الضوء‬.‫ير‬ ‫تت‬ ‫ثابتة‬ ‫قيم‬
:‫والمتغيرات‬ ‫الثوابت‬ ‫تسمية‬ ‫شروط‬
1.) _ ( ‫عالمة‬ ‫عو‬ ‫االنجليزية‬ ‫ة‬ ‫بالل‬ ‫حروف‬ ‫من‬ ‫بحرف‬ ‫ير‬ ‫المت‬ ‫عو‬ ‫بات‬ ‫ال‬ ‫اسم‬ ‫يبدع‬ ‫عن‬ ‫يجب‬ )
2‫خاصاة‬ ‫عالماة‬ ‫عو‬ ‫رماز‬ ‫عى‬ ‫علاى‬ ‫ير‬ ‫المت‬ ‫عو‬ ‫ابت‬ ‫ال‬ ‫عسم‬ ‫يحتوى‬ ‫عن‬ )‫المساافة‬ ‫ال‬ ‫م‬-‫النقطاة‬-‫عالماة‬
‫ستفهال‬ ‫ا‬-‫التعجب‬ ‫عالمة‬-‫ال‬‫شرطة‬-.‫الخاصة‬ ‫الرمو‬ ‫من‬ ‫وغيرها‬ .. ‫الطرح‬ ‫عو‬ ‫الجمع‬ ‫عالمة‬
1‫ل‬ ‫م‬ ‫ة‬ ‫المحجو‬ ‫الكلمات‬ ‫من‬ ‫ير‬ ‫المت‬ ‫عو‬ ‫ابت‬ ‫ال‬ ‫اسم‬ ‫يكون‬ ‫عن‬ )(Dim, As, Single, print)
4.) _ ( ‫وعالمة‬ ‫وعرقال‬ ‫حروف‬ ‫من‬ ‫ير‬ ‫المت‬ ‫عو‬ ‫بت‬ ‫ال‬ ‫اسم‬ ‫يتكون‬ ‫عن‬ ‫يمكن‬ )
2‫ل‬ ‫م‬ ‫محتواه‬ ‫عن‬ ‫ير‬ ‫المت‬ ‫اسم‬ ‫يعبر‬ ‫عن‬ ‫يفضل‬ )Price،‫السعر‬ ‫لتخزين‬Quantity.‫الكمية‬ ‫لتخزين‬
1.‫فيه‬ ‫تخزن‬ ‫سوف‬ ‫التى‬ ‫البيانات‬ ‫لطبيعة‬ ‫مناسب‬ ‫بيان‬ ‫نوع‬ ‫اختيار‬ ‫يجب‬ )

1
:‫الثوابت‬ ‫عن‬ ‫اإلعالن‬
.‫ثابتة‬ ‫قيم‬ ‫تحمل‬ ‫التى‬ ‫للخاليا‬ ‫عسماء‬ ‫إعطاء‬ ‫عملية‬ ‫هى‬ *
‫بكلمة‬ ‫يبدع‬ ‫وابت‬ ‫ال‬ ‫عن‬ ‫عالن‬ ‫ا‬ *Const‫كلماة‬ ‫ثام‬ ‫ابات‬ ‫ال‬ ‫اسام‬ ‫ثم‬As‫ع‬ ‫ثام‬ ‫البياان‬ ‫ناوع‬ ‫ثام‬‫ثام‬ ‫الماة‬
.‫ابت‬ ‫ال‬ ‫قيمة‬
‫البيان‬ ‫نوع‬ ‫بتدائية‬ ‫ا‬ ‫القيمة‬AS‫ابت‬ ‫ال‬ ‫اسم‬Const
‫الثوابت‬ ‫عن‬ ‫لإلعالن‬ ‫أمثلة‬
Const C_Name As String ="‫العربية‬ ‫مصر‬ ‫"جمهورية‬
‫باسم‬ ‫ثابت‬ ‫عن‬ ‫عالن‬ ‫ا‬C_Name‫ونوعه‬ ‫الذاكرة‬ ‫فى‬‫حرفى‬String‫النصية‬ ‫القيمة‬ ‫تخصيص‬ ‫وتم‬
‫العربية‬ ‫مصر‬ ‫"جمهورية‬"
Const Pi As Single = 3.14
‫باسم‬ ‫ثابت‬ ‫عن‬ ‫عالن‬ ‫ا‬Pi‫الذاكرة‬ ‫فى‬‫ونوعه‬Single‫وقيمته‬1114
Const B_Date As Date = #31/12/2003#
‫باسم‬ ‫ثابت‬ ‫عن‬ ‫عالن‬ ‫ا‬B_Date‫النوع‬ ‫من‬ ‫الذاكرة‬ ‫فى‬Date‫وقيمته‬11/12/2111
Const Quantity As Integer = 300
‫باسم‬ ‫ثابت‬ ‫عن‬ ‫عالن‬ ‫ا‬Quantity‫فى‬‫ونوعه‬ ‫الذاكرة‬Integer‫وقيمته‬111
‫التنصيص‬ ‫عالمتى‬ ‫تستخدل‬ *) " " (‫هى‬ ‫كما‬ ‫تطبع‬ ‫لكى‬ ‫نصية‬ ‫قيمة‬ ‫كتابة‬ ‫حالة‬ ‫فى‬.
‫عالمتى‬ ‫تستخدمى‬ *(#)#‫وقت‬ ‫قيمة‬ ‫عو‬ ‫تاريخ‬ ‫قيمة‬ ‫كتابة‬ ‫حالة‬ ‫فى‬.
( ‫رقم‬ ‫تدريب‬1)
‫ة‬ ‫بل‬ ‫برنامج‬ ‫بإعداد‬ ‫قم‬VB.Net‫ويح‬ ،‫دائارة‬ ‫قطار‬ ‫لنصف‬ ‫رقمية‬ ‫قيمة‬ ‫يستقبل‬‫ومحيطهاا‬ ‫مسااحتها‬ ‫ساب‬
‫األمر‬ ‫ر‬ ‫على‬ ‫ط‬ ‫الض‬ ‫عند‬Button‫نع‬ ‫ط‬ ‫الدائرة‬ ‫مساحة‬ ‫بان‬ ‫علما‬2‫الدائرة‬ ‫ومحيط‬2‫نع‬ ‫ط‬.
‫القطر‬ ‫نصف‬ *R‫ثابتة‬ ‫ط‬ ‫وقيمة‬ ، ‫ير‬ ‫مت‬Pi‫وقيمته‬22/7

4
‫األولى‬ ‫الطريقة‬‫ير‬ ‫المت‬ ‫عن‬ ‫عالن‬ ‫ا‬ ‫يتم‬ ‫عن‬R‫ابت‬ ‫وال‬Pi.‫إجراء‬ ‫كل‬ ‫مستوى‬ ‫على‬
Public Class Form1
Private Sub Button1_Click
Dim R As single
Const Pi As Single = 22/7
R= TextBox1.Text
Label2.Text= Pi * R ^ 2
End Sub
Dim R As single
R= TextBox1.Text
Label2.Text= Pi * R * 2
End Sub
End Class
‫انية‬ ‫ال‬ ‫الطريقة‬‫ير‬ ‫المت‬ ‫عن‬ ‫عالن‬ ‫ا‬ ‫يتم‬ ‫عن‬R‫ابت‬ ‫وال‬Pi.‫التصنيف‬ ‫مستوى‬ ‫واحدة‬ ‫مرة‬
Public Class Form1
Dim R As single
R= TextBox1.Text
Label2.Text= Pi * R ^ 2
End Sub
R= TextBox1.Text
Label2.Text= Pi * R * 2
End Sub
End Class
:‫والثوابت‬ ‫المتغيرات‬ ‫نطاق‬ ‫تحديد‬
.‫عنه‬ ‫عالن‬ ‫ا‬ ‫بمكان‬ ‫يتحدد‬ ‫ابت‬ ‫ال‬ ‫عو‬ ‫ير‬ ‫المت‬ ‫استعمال‬ ‫نطاق‬ *
.‫البرنامج‬ ‫داخل‬ ‫فيها‬ ‫باستعماله‬ ‫المسموح‬ ‫األماكن‬ ‫ابت‬ ‫ال‬ ‫عو‬ ‫ير‬ ‫المت‬ ‫نطاق‬ ‫يحدد‬ *
‫ياار‬ ‫المت‬ ‫عاان‬ ‫عااالن‬ ‫ا‬ ‫عنااد‬ *‫عاان‬ ‫عااالن‬ ‫ا‬ ‫إعااادة‬ ‫ماان‬ ‫بااد‬ ‫تحكاام‬ ‫عداة‬ ‫ألى‬ ‫جااراء‬ ‫ا‬ ‫داخاال‬ ‫اباات‬ ‫ال‬ ‫عو‬
.‫آخر‬ ‫اجراء‬ ‫عى‬ ‫فى‬ ‫ير‬ ‫والمت‬ ‫ابت‬ ‫ال‬
‫اان‬‫ا‬‫ع‬ ‫ااالن‬‫ا‬‫ع‬ ‫ا‬ ‫ااب‬‫ا‬‫يج‬ ‫ااراء‬‫ا‬‫إج‬ ‫اال‬‫ا‬‫ك‬ ‫ااى‬‫ا‬‫ف‬ ‫اانهم‬‫ا‬‫ع‬ ‫ااالن‬‫ا‬‫ع‬ ‫ل‬ ‫ااة‬‫ا‬‫الحاج‬ ‫دون‬ ‫اات‬‫ا‬‫واب‬ ‫وال‬ ‫اارات‬‫ا‬‫ي‬ ‫المت‬ ‫ااتخدال‬‫ا‬‫س‬ *
‫التصنيف‬ ‫مستوى‬ ‫على‬ ‫يرات‬ ‫والمت‬ ‫وابت‬ ‫ال‬Class.

2
‫المتغيرات‬(Variables)
‫عم‬ ‫عن‬ ‫عبارة‬ *‫ماا‬ ‫وعاادة‬ ،‫وناوع‬ ‫اسام‬ ‫لهاا‬ ‫يتحادد‬ ‫عنهاا‬ ‫االعاالن‬ ‫عناد‬ ‫الكمبيوتر‬ ‫ذاكرة‬ ‫فى‬ ‫ة‬ ‫محجو‬ ‫اكن‬
‫ساير‬ ‫عثنااء‬ ‫قيمتاه‬ ‫يار‬ ‫تت‬ ‫ثام‬ ‫ابتدائياة‬ ‫قيماة‬ ‫يار‬ ‫المت‬ ‫يأخاذ‬ ‫عن‬ ‫ويمكان‬ ،‫البرناامج‬ ‫ساير‬ ‫عثناء‬ ‫قيمتها‬ ‫ير‬ ‫تت‬
.‫ير‬ ‫تت‬ ‫عن‬ ‫تمكن‬ ‫بيانات‬ ‫وجميعها‬ ،‫موظف‬ ‫عنوان‬ ،‫ريبة‬ ‫قيمة‬ ،‫منتج‬ ‫عو‬ ‫سلعة‬ ‫سعر‬ ‫ل‬ ‫م‬ ،‫البرنامج‬
‫نقول‬ *‫باالعالن‬‫ة‬ ‫المحجو‬ ‫الكلمة‬ ‫باستخدال‬ ‫ير‬ ‫المت‬ ‫عن‬Dim
‫اإل‬‫عالن‬:‫المتغيرات‬ ‫عن‬
‫للخاليا‬ ‫عسماء‬ ‫إعطاء‬ ‫عملية‬ ‫هى‬ *‫البيانات‬ ‫عو‬‫يرة‬ ‫مت‬ ‫قيما‬ ‫تحمل‬ ‫التى‬.
‫بكلمة‬ ‫يبدع‬ ‫يرات‬ ‫المت‬ ‫اعالن‬ *Dim‫كلمة‬ ‫ثم‬ ‫ير‬ ‫المت‬ ‫اسم‬ ‫ثم‬As‫البيان‬ ‫نوع‬ ‫ثم‬
‫البيان‬ ‫نوع‬ ‫بتدائية‬ ‫ا‬ ‫القيمة‬As‫ير‬ ‫المت‬ ‫اسم‬Dim
‫فإن‬ ‫حرفى‬ ‫البيان‬ ‫نوع‬ ‫كان‬ ‫إذا‬ ‫بتدائية‬ ‫ا‬ ‫القيمة‬ ‫اهمال‬ ‫حالة‬ ‫فى‬ *‫قيمة‬‫حالة‬ ‫وفى‬ ‫فارغة‬ ‫مسافة‬ ‫ير‬ ‫المت‬
‫المت‬ ‫كان‬ ‫إذا‬‫رقمى‬ ‫ير‬‫قيمة‬ ‫فإن‬‫صفر‬ ‫ير‬ ‫المت‬.
‫عن‬ ‫عالن‬ ‫ا‬ ‫يمكن‬ *‫ع‬‫كلمة‬ ‫باستخدال‬ ‫ير‬ ‫مت‬ ‫من‬ ‫ر‬ ‫ك‬Dim‫واحدة‬.
‫المتغيرات‬ ‫عن‬ ‫لإلعالن‬ ‫أمثلة‬
-‫مت‬ ‫عن‬ ‫عالن‬ ‫ل‬‫باسم‬ ‫ير‬F_Name‫نوع‬‫حرفى‬String
Dim F_Name As String
-‫باسم‬ ‫ير‬ ‫مت‬ ‫عن‬ ‫عالن‬ ‫ل‬Total_Price‫نوع‬‫عشرى‬ ‫رقمى‬ ‫ه‬Single
Dim Total_Price As Single
-‫باسم‬ ‫ير‬ ‫مت‬ ‫عن‬ ‫عالن‬ ‫ل‬Today‫من‬‫تاريخ‬ ‫نوعه‬Date
Dim Today As Date = #25/1/2001#
-‫مت‬ ‫من‬ ‫ر‬ ‫اك‬ ‫عن‬ ‫عالن‬ ‫ا‬ ‫يمكن‬‫كلمة‬ ‫ير‬Dim‫ل‬ ‫م‬ ‫واحد‬
Dim X, Y, Z As integer
Dim X As Single, Y As Integer, Z As Boolean
( ‫رقم‬ ‫تدريب‬2)
‫نافذة‬ ‫بإعداد‬ ‫قم‬Form: ‫كالتالى‬ ‫المستخدل‬ ‫مدخالت‬ ‫تستقبل‬ ‫خاللها‬ ‫من‬ ‫والتى‬

1
‫البرنا‬ ‫مستخدل‬ ‫من‬ ‫إدخالها‬ ‫المتوقع‬ ‫القيم‬ ‫ونوع‬ ‫التحكم‬ ‫عدوات‬ ‫عناوين‬ ‫باستخدال‬‫يرات‬ ‫المت‬ ‫وعسماء‬ ‫مج‬
‫التحكم‬ ‫أدوات‬ ‫عناوين‬‫البيان‬ ‫نوع‬Data Type‫المتغيرات‬ ‫أسماء‬Variables
‫الطالب‬ ‫اسم‬‫نص‬StringU_Name
‫الميالد‬ ‫تاريخ‬‫تاريخ‬DateU_B_D
‫النوع‬‫منطقى‬BooleanU_Gender
‫األسرة‬ ‫عفراد‬ ‫عدد‬‫صحيح‬ ‫رقم‬IntegerU_C_F
‫اد‬‫ا‬‫الح‬ ‫اراء‬‫ا‬‫إج‬ ‫اافة‬‫ا‬ ‫إ‬ ‫اتم‬‫ا‬‫ي‬Procedure‫م‬ ‫عو‬‫اد‬‫ا‬‫الح‬ ‫االج‬‫ا‬‫ع‬Event Handler‫اجيل‬‫ا‬‫تس‬ ‫ازر‬‫ا‬‫ب‬ ‫ااب‬‫ا‬‫الخ‬
‫ط‬ ‫بالض‬Click: ‫كالتالى‬ ‫يرات‬ ‫المت‬ ‫عن‬ ‫باالعالن‬ ‫قم‬ ‫ثم‬
Private Sub Botton1_Click
Dim U_Name As String
Dim U_B_D As Date
Dim U_Gender As Boolean
Dim U_C_F As Integer
End Sub
:‫التخصيص‬ ‫جملة‬Assignment
*‫يقصد‬‫طارفين‬ ‫عان‬ ‫عباارة‬ ‫التخصايص‬ ‫وجملاة‬ ،‫يار‬ ‫مت‬ ‫عو‬ ‫ابات‬ ‫ل‬ ‫قيماة‬ ‫تعياين‬ ‫عو‬ ‫ع‬ ‫و‬ ‫هو‬ ‫بالتخصيص‬
‫القيماة‬ ‫فياه‬ ‫تخازن‬ ‫عو‬ ‫يساتقبل‬ ‫الاذى‬ ‫ابات‬ ‫ال‬ ‫عو‬ ‫يار‬ ‫المت‬ ‫اسام‬ ‫ال‬ ‫يم‬ ‫األيسار‬ ‫والطرف‬ ،) ( ‫عالمة‬ ‫بينهما‬
.‫األيمن‬ ‫بالطرف‬
‫االيمن‬ ‫الطرف‬‫قيمة‬ (
) ‫المتغير‬
‫التخصيص‬ ‫عالمة‬‫االيسر‬ ‫الطرف‬‫(اسم‬
)‫المتغير‬
1-‫قيمة‬‫مجردة‬
2-‫ير‬ ‫مت‬‫آخر‬
1-‫حسابى‬ ‫تعبير‬
4-‫قيمة‬‫خاصية‬
‫ير‬ ‫المت‬ ‫اسم‬‫ابت‬ ‫ال‬ ‫عو‬
‫عو‬
‫الخاصية‬ ‫اسم‬
:‫التخصيص‬ ‫أمر‬ ‫على‬ ‫أمثلة‬
‫القيمة‬‫التخصيص‬ ‫امر‬
1-‫مجردة‬ ‫قيمة‬X= 25
2-‫آخر‬ ‫ير‬ ‫مت‬ ‫قيمة‬
X=25
Y = X
1-‫حسابى‬ ‫تعبير‬ ‫من‬ ‫قيمة‬X= 23+3*2
4-‫خاصية‬ ‫قيمة‬
X=TextBox1.text
TextBox1.Text="Egypt"

7
‫المتغيرات‬ ‫قيم‬ ‫تخصيص‬Variables
‫التخصيص‬ ‫جملة‬‫اسماء‬
‫المتغيرات‬
‫الخاصية‬‫التحكم‬ ‫أداة‬
U_Name=TextBox1.TextU_NameTextTextBox1
U_B_D=TextBox2.TextU_B_DTextTextBox2
U_Gender=FalseU_GenderCheckedRadioButton1
U_C_F=TextBox3.TextU_C_FTextTextBox3
‫التخصيص‬ ‫جمل‬:
Private Sub Botton1_Click
Dim U_Name As String
Dim U_B_D As Date
Dim U_Gender As Boolean
Dim U_C_F As Integer
U_Name=TextBox1.Text
U_B_D=TextBox2.Text
If RadioButton1.Checked= True then
U_Gender= True
End If
If RadioButton1.Checked= False then
U_Gender= False
End If
U_C_F=TextBox3.Text
End Sub :‫مالحظات‬
1-‫بـ‬ ‫يرات‬ ‫المت‬ ‫بين‬ ‫الفصل‬ ‫يتم‬‫ابت‬ ‫ال‬ ‫استخدال‬&vbCrLf&
2-‫الربط‬ ‫معامل‬( & )‫النصية‬ ‫السالسل‬ ‫بين‬ ‫للربط‬ ‫يستخدل‬.
1-‫ابت‬ ‫ال‬vbCrLf‫ا‬ ‫ال‬ ‫يستخدل‬‫ر‬ ‫فة‬‫جديد‬ ‫وسطر‬ ‫دخال‬ ‫ا‬ ‫مفتاح‬ ‫مز‬.
4-‫عالمة‬‫السفلية‬ ‫الشرطة‬‫عل‬ ‫الكود‬ ‫سطر‬ ‫لكتابة‬ ‫تستخدل‬ )_(‫سطر‬ ‫من‬ ‫ر‬ ‫عك‬ ‫ى‬.
2-‫ة‬ ‫المحجو‬ ‫الكلمة‬Me‫النموذج‬ ‫نافذة‬ ‫إلى‬ ‫تشير‬Form‫الحالية‬.
1-‫لكتابة‬‫المالحظات‬‫السطر‬ ‫نبدع‬‫بكلمة‬REM( ‫عالمة‬ ‫عو‬‘)‫التعليقات‬ ‫سطر‬ ‫ويسمى‬.
‫كلمة‬ ‫بعد‬ ‫يكتب‬ ‫ما‬ ‫كل‬ *REM( ‫عالمة‬ ‫عو‬‘‫كود‬ ‫يعتبر‬ )‫ويتم‬.‫الكود‬ ‫ترجمة‬ ‫عند‬ ‫إهماله‬
:‫الحسابية‬ ‫العمليات‬ ‫تنفيذ‬ ‫أولويات‬
1-‫داخل‬ ‫العمليات‬ ‫تنفيذ‬.‫الخارج‬ ‫إلى‬ ‫الداخل‬ ‫من‬ ‫األقواس‬
.‫األسس‬ ‫عمليات‬ ‫تنفيذ‬ -2
.‫اليمين‬ ‫إلى‬ ‫اليسار‬ ‫من‬ ‫والقسمة‬ ‫الضرب‬ ‫عمليات‬ ‫تنفيذ‬ -1
.‫اليمين‬ ‫إلى‬ ‫اليسار‬ ‫من‬ ‫والطرح‬ ‫الجمع‬ ‫عمليات‬ ‫تنفيذ‬ -4

8
‫عو‬ ‫الداخلية‬ ‫لألقواس‬ ‫األولوية‬ ‫فإن‬ ‫األقواس‬ ‫تداخلت‬ ‫إذا‬ *
.‫لليمين‬ ‫اليسار‬ ‫من‬ ‫ولوية‬ ‫ا‬ ‫يكون‬ ‫الرتبة‬ ‫فى‬ ‫حسابية‬ ‫عملية‬ ‫تساوت‬ ‫إذا‬ *
‫ال‬ ‫م‬:‫التالية‬ ‫الحسابية‬ ‫العملية‬ ‫ناتج‬ ‫ما‬5 + 3 * 2
‫الحل‬:‫رب‬ ‫يتم‬2*1‫لتكون‬ ‫او‬1‫جمع‬ ‫يتم‬ ‫ثم‬1+2‫ال‬ ‫ليكون‬‫ناتج‬11
‫ال‬ ‫م‬:‫التالية‬ ‫الحسابية‬ ‫العملية‬ ‫ناتج‬ ‫ما‬(5+3)* 2
‫الحل‬:‫قواس‬ ‫ا‬ ‫بداخل‬ ‫ما‬ ‫تنفيذ‬ ‫يتم‬2+1‫رب‬ ‫يتم‬ ‫ثم‬8*2‫الناتج‬ ‫ليكون‬11
‫حسابية‬ ‫تعبيرات‬ ‫انشاء‬ ‫عند‬ ‫الحسابية‬ ‫العمليات‬ ‫عولويات‬ ‫تنفيذ‬ ‫مراعاة‬ ‫يجب‬ *
‫األخ‬ ‫تقع‬ ‫الحسابية‬ ‫للعمليات‬ ‫ولويات‬ ‫ا‬ ‫مراعاة‬ ‫عدل‬ ‫حالة‬ ‫فى‬ *.‫خطأ‬ ‫رسالة‬ ‫ظهور‬ ‫دون‬ ‫المنطقية‬ ‫طاء‬
‫األخطاء‬Errors
‫تتسابب‬ ‫قاد‬ ‫التاى‬ ‫األخطااء‬ ‫تتجناب‬ ‫حتاى‬ ‫وذلاح‬ ،‫البرمجاة‬ ‫ة‬ ‫ل‬ ‫بقواعد‬ ‫لتزال‬ ‫ا‬ ‫من‬ ‫بد‬ ‫األكواد‬ ‫كتابة‬ ‫عند‬ *
‫ظهور‬ ‫فى‬‫رسائل‬‫وقاد‬ ،‫خطاأ‬ ‫نتاائج‬ ‫علاى‬ ‫الحصاول‬ ‫او‬ ‫األوامار‬ ‫تنفيذ‬ ‫عدل‬ ‫عو‬ ‫الكود‬ ‫كتابة‬ ‫عثناء‬ ‫خطأ‬
‫وهنا‬ ،‫البرنامج‬ ‫يل‬ ‫تش‬ ‫يتم‬‫ك‬1.‫األخطاء‬ ‫من‬ ‫عنواع‬
‫أوال‬‫األخطاء‬ :‫لغوية‬Syntax Errors
‫يظهار‬ ‫حيا‬ ‫كتشااف‬ ‫ا‬ ‫ساهل‬ ‫األخطااء‬ ‫مان‬ ‫الناوع‬ ‫وهاذا‬ ‫اة‬ ‫الل‬ ‫ألوامار‬ ‫العاماة‬ ‫الصاياغة‬ ‫فى‬ ‫اخطاء‬ ‫هى‬ *
‫الكود‬ ‫كتابة‬ ‫عثناء‬ ‫مباشرة‬ ‫عمامح‬.
‫امالئى‬ ‫(خطأ‬ ‫سليم‬ ‫غير‬ ‫بشكل‬ ‫الكود‬ ‫كتابة‬ ‫عند‬ ‫تحد‬ *(
Din X As single
*)‫نحوى‬ ‫(خطأ‬ ‫قيمة‬ ‫له‬ ‫تخصص‬ ‫ولم‬ ‫ابت‬ ‫ال‬ ‫عن‬ ‫عالن‬ ‫ا‬ ‫عند‬
Const X As Single…….
‫المنطقية‬ ‫األخطاء‬ ‫ثانيا‬Logic Errors
*‫تعبيارات‬ ‫صاياغة‬ ‫بسابب‬ ‫وذلاح‬ ‫البرناامج‬ ‫يل‬ ‫تشا‬ ‫بعاد‬ ‫خطاأ‬ ‫نتاائج‬ ‫علاى‬ ‫نحصل‬ ‫عندما‬ ‫تظهر‬ ‫عخطاء‬ ‫هى‬
‫خطأ‬ ‫نتائج‬ ‫على‬ ‫الحصول‬ ‫إلى‬ ‫فيؤدى‬ ‫خطأ‬ ‫بصورة‬ ‫منطقية‬ ‫عو‬ ‫حسابية‬.
Dim R As single
Const X As Single = 22/7
R = TextBox1.Text
TextBox1.Text = X + R ^ 2
‫التشغيل‬ ‫عند‬ ‫اخطاء‬ :‫ثالثا‬Runtime Errors
1-‫قيمة‬ ‫تخصيص‬ ‫عند‬ ‫تحد‬‫المستخدل‬ ‫البيان‬ ‫نوع‬ ‫مدى‬ ‫من‬ ‫عكبر‬.
Dim X As Byte
X = 300
‫يساتطيع‬ ‫و‬ ‫الخاصاية‬ ‫عو‬ ‫ابات‬ ‫ال‬ ‫عو‬ ‫يار‬ ‫المت‬ ‫بياان‬ ‫ناوع‬ ‫عان‬ ‫يختلف‬ ‫قيمة‬ ‫نوع‬ ‫تخصيص‬ ‫عند‬ ‫وتحد‬ -2
.‫تحويلها‬ ‫المترجم‬
”
Dim Y = Single
Y = “‫عشر‬ ‫خمسة‬

1
‫األول‬ ‫الفصل‬ ‫على‬ ‫أسئلة‬‫البيانات‬ :Data
:‫األول‬ ‫السؤال‬( ‫عالمة‬ ‫ضع‬( ‫عالمة‬ ‫أو‬ )X: ‫التالية‬ ‫العبارات‬ ‫أمام‬ )-
1-‫ة‬ ‫ل‬ ‫تتميز‬V.B.Net.‫البيانات‬ ‫من‬ ‫مختلفة‬ ‫عنواع‬ ‫مع‬ ‫بالتعامل‬
2-‫على‬ ‫يؤخذ‬‫ة‬ ‫ل‬V.B.Net.‫البيانات‬ ‫من‬ ‫مختلفة‬ ‫انواع‬ ‫مع‬ ‫التعامل‬
1-‫ة‬ ‫بل‬ ‫برنامج‬ ‫فى‬ ‫إدخالها‬ ‫يتم‬ ‫التى‬ ‫البيانات‬ ‫جميع‬V.B.Net.‫الكمبيوتر‬ ‫ذاكرة‬ ‫فى‬ ‫مؤقتا‬ ‫تخزينها‬ ‫يتم‬
4-.‫التخزينية‬ ‫المساحة‬ ‫نفس‬ ‫ل‬ ‫تش‬ ‫الذاكرة‬ ‫فى‬ ‫حفظها‬ ‫يتم‬ ‫التى‬ ‫البيانات‬ ‫عنواع‬ ‫جميع‬
2-‫ترشي‬ ‫يحسن‬ ‫الذى‬ ‫الجيد‬ ‫المبرمج‬.‫الكمبيوتر‬ ‫ذاكرة‬ ‫فى‬ ‫التخزينية‬ ‫المساحة‬ ‫د‬
1-.‫الصحيحة‬ ‫الرقمية‬ ‫البيانات‬ ‫من‬ ‫الطالب‬ ‫درجات‬ ‫مجموع‬ ‫قيمة‬ ‫يصنف‬
7-.‫المتنوعة‬ ‫الرقمية‬ ‫البيانات‬ ‫من‬ ‫الطالب‬ ‫اسم‬ ‫قيمة‬ ‫يصنف‬
8-.‫المنطقية‬ ‫المتنوعة‬ ‫البيانات‬ ‫من‬ )‫ى‬ ‫(عن‬ ‫عل‬ )‫(ذكر‬ ‫الطالب‬ ‫نوع‬ ‫يصنف‬
1-‫تصنيفها‬ ‫يمكن‬ ‫الطالب‬ ‫صورة‬.‫الحرفية‬ ‫البيانات‬ ‫من‬
11-.‫صحيحة‬ ‫ير‬ ‫ال‬ ‫الرقمية‬ ‫البيانات‬ ‫من‬ ‫تصنيفها‬ ‫يمكن‬ ‫الموظف‬ ‫مرتب‬ ‫قيمة‬
11-.‫البيان‬ ‫نوع‬ ‫حسب‬ ‫معين‬ ‫ومدى‬ ‫تخزينية‬ ‫مساحة‬ ‫ل‬ ‫يش‬ ‫الكمبيوتر‬ ‫ذاكرة‬ ‫فى‬ ‫يخزن‬ ‫بيان‬ ‫كل‬
12-‫ل‬ ‫واألقصى‬ ‫األدنى‬ ‫والحد‬ ‫الكمبيوتر‬ ‫ذاكرة‬ ‫فى‬ ‫له‬ ‫يش‬ ‫الذى‬ ‫التخزين‬ ‫حيز‬ ‫يحدد‬ ‫البيان‬ ‫نوع‬.‫قيمته‬
11-‫فى‬ ‫يرات‬ ‫بالمت‬ ‫يقصد‬V.B.Net.‫ونوع‬ ‫اسم‬ ‫لها‬ ‫الكمبيوتر‬ ‫بذاكرة‬ ‫ن‬ ‫مخا‬ ‫بأنها‬
14-‫ة‬ ‫ل‬ ‫تشترط‬V.B.Net.‫إدخالها‬ ‫يتم‬ ‫التى‬ ‫للبيانات‬ ‫ومدى‬ ‫ونوع‬ ‫اسم‬ ‫ير‬ ‫مت‬ ‫لكل‬ ‫يكون‬ ‫عن‬
12-‫ة‬ ‫ل‬ ‫فى‬ ‫يرات‬ ‫المت‬ ‫عن‬ ‫عالن‬ ‫ا‬V.B.Net.‫الكمبيوتر‬ ‫ذاكرة‬ ‫استخدال‬ ‫ترشيد‬ ‫فى‬ ‫يساعد‬
11-‫االعالن‬‫ة‬ ‫ل‬ ‫ألن‬ ،‫شكلية‬ ‫مسألة‬ ‫يرات‬ ‫المت‬ ‫عن‬V.B.Net‫نوعها‬ ‫وتحدد‬ ‫يرات‬ ‫المت‬ ‫على‬ ‫تتعرف‬
.‫تلقائيا‬
17-‫التالية‬ ‫الجملة‬Dim F_Name As String‫باسم‬ ‫ير‬ ‫مت‬ ‫عن‬ ‫عالن‬ ‫ل‬String‫ونوعه‬
F_Name
18-‫التالية‬ ‫الجملة‬Dim F_Name As String‫باسم‬ ‫ير‬ ‫مت‬ ‫عن‬ ‫عالن‬ ‫ل‬F_Name‫ونوعه‬
String
11-‫ج‬.‫ونوعه‬ ‫ير‬ ‫المت‬ ‫اسم‬ ‫فيها‬ ‫يتحدد‬ ‫يرات‬ ‫المت‬ ‫عن‬ ‫االعالن‬ ‫ملة‬
21-.‫ابت‬ ‫ال‬ ‫وقيمة‬ ‫ونوعه‬ ‫ير‬ ‫المت‬ ‫اسم‬ ‫فيها‬ ‫يتحدد‬ ‫يرات‬ ‫المت‬ ‫عن‬ ‫عالن‬ ‫ا‬ ‫جملة‬
21-55City.‫برقم‬ ‫يبدع‬ ‫ألنه‬ ‫خطأ‬ ‫ير‬ ‫مت‬ ‫اسم‬ ‫يعتبر‬
22-55City.‫صحيح‬ ‫ير‬ ‫مت‬ ‫ايم‬ ‫يعتبر‬
21-Name‫محجو‬ ‫كلمة‬ ‫ألنه‬ ‫خطأ‬ ‫ير‬ ‫مت‬ ‫اسم‬ ‫يعتبر‬.‫ة‬
24-Name.‫حروف‬ ‫من‬ ‫يتكون‬ ‫ألنه‬ ‫صحيح‬ ‫ير‬ ‫مت‬ ‫اسم‬ ‫يعتبر‬
22-‫امر‬ ‫يستخدل‬Dim.‫يرات‬ ‫المت‬ ‫عن‬ ‫عالن‬ ‫ا‬ ‫فى‬
21-‫األمر‬ ‫يستخدل‬Dim.‫وابت‬ ‫ال‬ ‫عن‬ ‫عالن‬ ‫ل‬
.‫يرات‬ ‫المت‬ ‫عن‬ ‫االعالن‬ ‫فى‬ Const ‫األمر‬ ‫يستخدل‬ -27
.‫وابت‬ ‫ال‬ ‫عن‬ ‫عالن‬ ‫ا‬ ‫فى‬ Const ‫األمر‬ ‫يستخدل‬ -28
‫عثناء‬ ‫ير‬ ‫تت‬ ‫وقيمة‬ ‫اسم‬ ‫لها‬ ‫الكمبيوتر‬ ‫ذاكرة‬ ‫فى‬ ‫ن‬ ‫مخا‬ ‫عن‬ ‫عبارة‬ V.B.Net ‫ة‬ ‫ل‬ ‫فى‬ ‫وابت‬ ‫ال‬ -21
.‫البرنامج‬ ‫سير‬

11
11-‫ة‬ ‫ل‬ ‫فى‬ ‫وابت‬ ‫ال‬V.B.Net‫عثناء‬ ‫ير‬ ‫تت‬ ‫وقيمة‬ ‫اسم‬ ‫لها‬ ‫الكمبيوتر‬ ‫ذاكرة‬ ‫فى‬ ‫ن‬ ‫مخا‬ ‫عن‬ ‫عبارة‬
.‫البرنامج‬ ‫سير‬
11-‫وى‬ ‫ل‬ ‫خطأ‬ ‫يعتبر‬ ‫معادلة‬ ‫عى‬ ‫حساب‬ ‫نتيجة‬ ‫فى‬ ‫الخطأ‬Syntax Error.
12-‫منطقى‬ ‫خطأ‬ ‫يعتبر‬ ‫معادلة‬ ‫عى‬ ‫حساب‬ ‫نتيجة‬ ‫فى‬ ‫الخطأ‬Logical Error.
11-‫وى‬ ‫ل‬ ‫خطأ‬ ‫عليه‬ ‫يطلع‬ ‫البرنامج‬ ‫تنفيذ‬ ‫عو‬ ‫يل‬ ‫تش‬ ‫عثناء‬ ‫يظهر‬ ‫الذى‬ ‫الخطأ‬Syntax Error.
14-‫يل‬ ‫التش‬ ‫عثناء‬ ‫خطأ‬ ‫عليه‬ ‫يطلع‬ ‫البرنامج‬ ‫يل‬ ‫تش‬ ‫عثناء‬ ‫يظهر‬ ‫الذى‬ ‫الخطأ‬Run Time Error.
12-‫لل‬ ‫النهائية‬ ‫القيمة‬‫ير‬ ‫مت‬X‫التالية‬ ‫المعادلة‬ ‫تنفيذ‬ ‫بعد‬X= 3 + 2 * 4‫هى‬11.
11-‫ير‬ ‫للمت‬ ‫النهائية‬ ‫القيمة‬X‫التالية‬ ‫المعادلة‬ ‫تنفيذ‬ ‫بعد‬X = 3 + 2 * 4‫هى‬21.
: ‫يلى‬ ‫مما‬ ‫الصحيحة‬ ‫االجابة‬ ‫اختر‬ :‫الثانى‬ ‫السؤال‬
1-‫كبيانات‬ ‫تصنيفها‬ ‫يمكن‬ ‫المكتبية‬ ‫األدوات‬ ‫عسعار‬ ‫قيمة‬
‫صحيحة‬ ‫رقمية‬ )‫ع‬‫ب‬‫صحيحة‬ ‫غير‬ ‫رقمية‬ )‫متنوعة‬ )‫ج‬
2-‫كبيانات‬ ‫تصنيفها‬ ‫يمكن‬ ‫الدراسية‬ ‫المواد‬ ‫عسماء‬ ‫قيمة‬
‫متنوعة‬ )‫ع‬‫صحيحة‬ ‫غير‬ ‫رقمية‬ )‫ب‬‫حرفية‬ )‫ج‬
1-‫يحدد‬ ‫الكمبيوتر‬ ‫ذاكرة‬ ‫فى‬ ‫مؤقتا‬ ‫المخزن‬ ‫البيان‬ ‫نوع‬
‫قيمته‬ ‫ومدى‬ ‫تخزينى‬ ‫حيز‬ )‫ع‬‫تخزينى‬ ‫وحيز‬ ‫اسم‬ )‫ب‬‫وقيمته‬ ‫تخزينى‬ ‫حيز‬ )‫ج‬
4-‫الص‬‫المرتب‬ ‫ير‬ ‫مت‬ ‫عن‬ ‫عالن‬ ‫ل‬ ‫الصحيحة‬ ‫ى‬ ‫ي‬Salary: ‫هى‬
)‫ع‬Dim Salary As Integer)‫ب‬Dim Salary As Byte
)‫ج‬Dim Salary As Decimal
2-‫العنوان‬ ‫ير‬ ‫مت‬ ‫عن‬ ‫عالن‬ ‫ل‬ ‫الصحيحة‬ ‫ة‬ ‫الصي‬City‫هى‬
)‫ع‬Dim City As String)‫ب‬Dim City As Byte
)‫ج‬Dim City As Decimal
1-‫سم‬ ‫ا‬ ‫ير‬ ‫مت‬ ‫عن‬ ‫عالن‬ ‫ل‬ ‫الصحيحة‬ ‫ة‬ ‫الصي‬F_Name‫هى‬
)‫ع‬Dim F_Name As Integer)‫ب‬Dim F_Name As Char
)‫ج‬Dim F_Name As Decimal
7-‫النوع‬ ‫من‬ ‫ير‬ ‫مت‬ ‫عن‬ ‫عالن‬ ‫ل‬ ‫الصحيحة‬ ‫ة‬ ‫الصي‬Gender‫هى‬
)‫ع‬Dim Gender As Decimal)‫ب‬Dim Gender As Integer
)‫ج‬Dim Gender As Boolean
8-‫باسم‬ ‫ير‬ ‫مت‬ ‫عن‬ ‫عالن‬ ‫ل‬ ‫الصحيحة‬ ‫ة‬ ‫الصي‬F_Name‫هى‬
)‫ع‬Dim F_Name As Integer)‫ب‬Dim F_Name As Char
)‫ج‬Din F_Name As Char

11
1-‫ة‬ ‫بل‬ ‫برنامج‬ ‫يل‬ ‫تش‬ ‫بعد‬ ‫يظهر‬ ‫الذى‬ ‫الخطأ‬V.B.Net‫يسمى‬
)‫ع‬Syntax Error)‫ب‬Logical Error)‫ج‬Runtime Error
11-‫ة‬ ‫بل‬ ‫كود‬ ‫كتابة‬ ‫عثناء‬ ‫يظهر‬ ‫الذى‬ ‫الخطأ‬V.B.Net‫يسمى‬
11-‫ة‬ ‫بل‬ ‫كود‬ ‫يل‬ ‫تش‬ ‫ناتج‬ ‫فى‬ ‫الخطأ‬V.B.Net‫يسمى‬
12-‫ير‬ ‫للمت‬ ‫النهائى‬ ‫الناتج‬X‫للمعادلة‬X = 3 + 2 * 4‫هو‬
)‫ع‬11)‫ب‬24)‫ج‬21
11-‫ير‬ ‫للمت‬ ‫النهائى‬ ‫الناتج‬Y‫للمعادلة‬Y = 16 - 12 / 4 + 2‫هو‬
)‫ع‬1)‫ب‬24)‫ج‬12
14-‫ير‬ ‫مت‬ ‫عن‬ ‫االعالن‬ ‫جملة‬Dim X As String‫عن‬ ‫االعالن‬ ‫تعنى‬
‫اسمه‬ ‫ير‬ ‫مت‬ )‫ع‬X‫حرفى‬ ‫ونوعه‬String‫اسمه‬ ‫ير‬ ‫مت‬ )‫ب‬String‫ونوعه‬X
‫ونوعه‬ ‫اسم‬ ‫له‬ ‫ليس‬ ‫مجهول‬ ‫ير‬ ‫مت‬ )‫ج‬String
12-‫اسمه‬ ‫صحيح‬ ‫غير‬ ‫رقمى‬ ‫ير‬ ‫مت‬ ‫عن‬ ‫الصحيحة‬ ‫االعالن‬ ‫جملة‬Y‫هى‬
)‫ع‬Dim Y As Decimal)‫ب‬Y As Decimal)‫ج‬Dim Y = Decimal
11-‫الطالب‬ ‫اسم‬ ‫ير‬ ‫لمت‬ ‫الصحيح‬ ‫سم‬ ‫ا‬ ‫اختر‬
)‫ع‬St_Name)‫ب‬Name)‫ج‬Name**
17-‫الموظف‬ ‫عنوان‬ ‫ير‬ ‫لمت‬ ‫الصحيح‬ ‫سم‬ ‫ا‬ ‫اختر‬
)‫ع‬5Cairo)‫ب‬E_Address)‫ج‬(Address)
18-‫ماعدا‬ ‫صحيحة‬ ‫التالية‬ ‫يرات‬ ‫المت‬ ‫اسماء‬
)‫ع‬St_Text)‫ب‬Text)‫ج‬_St_Text
11-‫الكود‬ ‫نستخدل‬ )‫(ط‬ ‫ى‬ ‫الريا‬ ‫ابت‬ ‫ال‬ ‫عن‬ ‫االعالن‬ ‫عند‬
)‫ع‬Dim Pi As Single)‫ب‬Dim Pi As Single = 3.14
)‫ج‬Const Pi As Single =3.14
21-‫الكود‬ ‫نستخدل‬ ‫ية‬ ‫األر‬ ‫الجاذبية‬ ‫عجلة‬ ‫ثابت‬ ‫عن‬ ‫االعالن‬ ‫عند‬
)‫ع‬Dim G As Single)‫ب‬Const G As Single =9.81
)‫ج‬Dim G As Single= 9.81
21-‫األسرة‬ ‫عفراد‬ ‫عدد‬ ‫ير‬ ‫مت‬ ‫عن‬ ‫االعالن‬C_Family‫ابتدائية‬ ‫بقيمة‬2‫هو‬
)‫ع‬Dim C_Family As Single = 2)‫ب‬Const C_Family As Integer = 2
)‫ج‬Dim C_Family As Integer = 2
22-‫الخطأ‬ ‫هذا‬ ‫يعتبر‬ ‫برنامج‬ ‫فى‬ ‫مستطيل‬ ‫مساحة‬ ‫حساب‬ ‫نتيجة‬ ‫فى‬ ‫خطأ‬ ‫وجد‬ ‫إذا‬
21-‫عن‬ ‫تظهر‬ ‫التى‬ ‫الخطأ‬ ‫رسالة‬‫الكود‬ ‫كتابة‬ ‫د‬Dimension X AS Byte‫خطأ‬ ‫تصنيفها‬ ‫يمكن‬

12
24-‫للمعادلة‬ ‫النهائى‬ ‫الناتج‬Y = 12 - 2 + 4 / 2‫هو‬
)‫ع‬12)‫ب‬7)‫ج‬1
22-‫للمعادلة‬ ‫النهائى‬ ‫الناتج‬Y = 12 - (2 + 4) / 2‫هو‬
)‫ع‬12‫ب‬)7)‫ج‬1
‫السؤال‬‫الثالث‬( ‫عالمة‬ ‫ضع‬ :( ‫عالمة‬ ‫أو‬ )X: ‫التالية‬ ‫العبارات‬ ‫أمام‬ )-
1-.‫البرنامج‬ ‫كود‬ ‫كتابة‬ ‫عند‬ ‫البرمجة‬ ‫ة‬ ‫ل‬ ‫بقواعد‬ ‫لتزال‬ ‫ا‬ ‫الضرورى‬ ‫من‬ ‫ليس‬
2-.‫البرنامج‬ ‫داخل‬ ‫فيها‬ ‫باستعماله‬ ‫المسموح‬ ‫األماكن‬ ‫ابت‬ ‫ال‬ ‫عو‬ ‫ير‬ ‫المت‬ ‫نطاق‬ ‫يحدد‬
1-‫التط‬ ‫بيئة‬ ‫تسمح‬‫وير‬IDE.‫الكود‬ ‫نافذة‬ ‫فى‬ ‫والنحوية‬ ‫مالئية‬ ‫ا‬ ‫األخطاء‬ ‫بوجود‬
4-.‫القسمة‬ ‫عو‬ ‫الضرب‬ ‫عملية‬ ‫تسبع‬ ‫الطرح‬ ‫عو‬ ‫الجمع‬ ‫عملية‬ ،‫الحسابية‬ ‫العمليات‬ ‫تنفيذ‬ ‫اولويات‬ ‫من‬
2-‫تساوى‬ ‫التى‬ ‫ية‬ ‫الريا‬ )‫(ط‬ ‫قيمة‬1114.‫وابت‬ ‫ال‬ ‫لقيم‬ ‫ال‬ ‫م‬ ‫هى‬
1-‫فاإن‬ ‫الحسابى‬ ‫التعبير‬ ‫فى‬ ‫وتعددت‬ ‫األقواس‬ ‫تداخلت‬ ‫إذا‬‫اليماين‬ ‫إلاى‬ ‫اليساار‬ ‫مان‬ ‫يكاون‬ ‫تنفياذها‬ ‫ترتياب‬
.‫الخارج‬ ‫إلى‬ ‫الداخل‬ ‫ومن‬
7-‫عو‬ ‫يار‬ ‫المت‬ ‫بياان‬ ‫ناوع‬ ‫عان‬ ‫يختلاف‬ ‫قيماة‬ ‫ناوع‬ ‫تخصايص‬ ‫عناد‬ ‫تحاد‬ ‫التاى‬ ‫هاى‬ ‫يل‬ ‫التش‬ ‫عند‬ ‫األخطاء‬
.‫الخاصية‬ ‫عو‬ ‫ابت‬ ‫ال‬
8-.‫والقسمة‬ ‫الضرب‬ ‫عمليات‬ ‫تسبع‬ ‫والطرح‬ ‫الجمع‬ ‫عمليات‬ ‫عن‬ ‫الحسابية‬ ‫العمليات‬ ‫عولويات‬ ‫قواعد‬ ‫من‬
1-‫التالية‬ ‫العملية‬ ‫تنفيذ‬ ‫نتيجة‬(10 + S * 4)‫كانت‬ ‫إذا‬S = 2‫هى‬28
11-.‫فقط‬ ‫عسماءها‬ ‫لمعرفة‬ ‫يرات‬ ‫المت‬ ‫عسماء‬ ‫عن‬ ‫باالعالن‬ ‫نقول‬
11-‫منطقى‬ ‫خطأ‬ ‫يتضمن‬ ‫التالى‬ ‫الكود‬Const Pi As Single.
12-‫ة‬ ‫الصي‬ ‫تنفيذ‬ ‫بعد‬2 + 3 * ( 4 + 1 )‫الناتج‬ ‫يكون‬22.
11-‫القيمة‬ ‫تخزين‬ ‫عند‬(5.2)‫نوع‬ ‫من‬ ‫ير‬ ‫مت‬ ‫فى‬Integer‫سانجد‬ ‫يار‬ ‫المت‬ ‫محتوياات‬ ‫عارم‬ ‫عناد‬ ‫فإنه‬
‫هى‬ ‫تخزينها‬ ‫تم‬ ‫التى‬ ‫القيمة‬ ‫عن‬(5).
14-‫فااى‬ ‫التنفيااذ‬ ‫عنااد‬ ‫األس‬ ‫رفااع‬ ‫عمليااة‬ ‫تساابع‬ ‫القساامة‬ ‫عمليااة‬ ‫عن‬ ‫الحسااابية‬ ‫العمليااات‬ ‫عولويااات‬ ‫ماان‬
‫الفيجوال‬‫بيزيح‬.‫نت‬ ‫دوت‬
12-‫األقل‬ ‫المستوى‬ ‫من‬ ‫ية‬ ‫الريا‬ ‫التعبيرات‬ ‫احتساب‬ ‫يتم‬.‫األسبقية‬ ‫فى‬ ‫األعلى‬ ‫المستوى‬ ‫إلى‬ ‫فى‬
11-.‫البرنامج‬ ‫يل‬ ‫تش‬ ‫عثناء‬ ‫قيمتها‬ ‫ير‬ ‫تت‬ ‫قيم‬ ‫هى‬ ‫وابت‬ ‫ال‬
‫السؤال‬‫الرابع‬: ‫يلى‬ ‫مما‬ ‫الصحيحة‬ ‫االجابة‬ ‫اختر‬ :
1-‫من‬‫ع‬‫والقسمة‬ ‫الضرب‬ ‫عمليتى‬ ‫تسبع‬ ‫التى‬ ‫العملية‬ ،‫الحسابية‬ ‫العمليات‬ ‫تنفيذ‬ ‫ولويات‬
‫األسس‬ )‫ع‬‫األقواس‬ )‫ب‬‫وا‬ ‫الجمع‬ )‫جـ‬‫لطرح‬‫سبع‬ ‫ما‬ ‫كل‬ )‫د‬
2-‫مستوى‬ ‫على‬ ‫ستخدامهم‬ ‫يرات‬ ‫المت‬ ‫عو‬ ‫وابت‬ ‫ال‬ ‫عن‬ ‫عالن‬ ‫ا‬ ‫يمكن‬
‫االجراء‬ )‫ع‬procedure‫التصنيف‬ )‫ب‬Class‫الحد‬ )‫جـ‬Event‫ب‬ ، ‫ع‬ ‫من‬ ‫كل‬ )‫د‬
1-‫التالية‬ ‫العملية‬ ‫ناتج‬ ‫حدد‬2 + 2 * 4
)‫ع‬11)‫ب‬11)‫جـ‬11)‫د‬71

11
4-‫األ‬ ‫من‬‫قد‬ ‫التى‬ ‫خطاء‬‫البرناامج‬ ‫كاود‬ ‫كتابة‬ ‫عند‬ ‫تحد‬‫تحاد‬ ‫اة‬ ‫الل‬ ‫ألوامار‬ ‫العاماة‬ ‫ة‬ ‫الصاي‬ ‫فاى‬ ‫عخطااء‬
.‫سليم‬ ‫غير‬ ‫بشكل‬ ‫الكود‬ ‫كتابة‬ ‫عند‬
‫عخطاء‬ )‫ع‬‫وية‬ ‫ل‬‫منطقية‬ ‫عخطاء‬ )‫ب‬‫جـ‬‫يل‬ ‫التش‬ ‫عثناء‬ ‫عخطاء‬ )‫د‬‫سبع‬ ‫ما‬ ‫كل‬ )
2-: ‫يلى‬ ‫فيما‬ ‫التخصيص‬ ‫جملة‬ ‫حدد‬
)‫ع‬A+4=22)‫ب‬C=9)‫جـ‬135=14*3/2)‫د‬A+422*A+4
‫السؤال‬‫الخامس‬: ‫القوسين‬ ‫بين‬ ‫مما‬ ‫الصحيحة‬ ‫اإلجابة‬ ‫اكمل‬ :
- Const‫وابت‬ ‫وال‬ ‫يرات‬ ‫المت‬-^-‫يل‬ ‫التش‬ ‫عثناء‬--Byte-/-REM-Boolean
1-‫اال‬‫ة‬ ‫المحجو‬ ‫بالكلمة‬ ‫ابت‬ ‫ال‬ ‫عن‬ ‫عالن‬..................
2-‫استعمال‬ ‫نطاق‬..................‫االعالن‬ ‫بمكان‬ ‫يتحدد‬.‫عنه‬
1-‫األخطاء‬...................‫المستخدل‬ ‫البيان‬ ‫نوع‬ ‫مدى‬ ‫من‬ ‫عكبر‬ ‫قيمة‬ ‫تخصيص‬ ‫عند‬ ‫تحد‬
4-‫الصحيحة‬ ‫الرقمية‬ ‫القيمة‬ ‫لتخزين‬121‫إلى‬ ‫تحتاج‬ ‫الكمبيوتر‬ ‫ذاكرة‬ ‫فى‬......................
2-‫للقسمة‬ ‫المؤثر‬ ‫العامل‬ ‫يستخدل‬..……‫الحسابى‬ ‫والعامل‬.………‫األسس‬ ‫لرفع‬.
1-‫العالمة‬...................‫التخصيص‬ ‫لجملة‬ ‫كمعامل‬ ‫تستخدل‬
7-‫بكلمة‬ ‫تبدع‬ ‫التى‬ ‫األسطر‬...................‫البرنامج‬ ‫كود‬ ‫ترجمة‬ ‫عند‬ ‫المترجم‬ ‫يهملها‬ ‫الكود‬ ‫نافذة‬ ‫فى‬
8-‫للقسمة‬ ‫المؤثر‬ ‫المعامل‬ ‫يستخدل‬...............‫الحسابى‬ ‫والمعامل‬................‫األسس‬ ‫لرفع‬
1-‫ال‬ ‫تنفيذ‬ ‫بعد‬‫الحسابية‬ ‫ة‬ ‫صي‬5 + 2 * 6‫الناتج‬ ‫يكون‬..................
11-‫اماكن‬ ‫بط‬ ‫يمكن‬............‫الفأرة‬ ‫باستخدال‬ ‫النموذج‬ ‫على‬
11-‫الحسابية‬ ‫ة‬ ‫الصي‬ ‫تنفيذ‬ ‫ناتج‬5 + 4 * 2‫هو‬..................
12-‫من‬ ‫يكون‬ ‫تنفيذها‬ ‫ترتيب‬ ‫فإن‬ ‫األولوية‬ ‫نفس‬ ‫لها‬ ‫عملية‬ ‫من‬ ‫ر‬ ‫عك‬ ‫وجود‬ ‫حالة‬ ‫فى‬..................
11-‫فإن‬ ‫ابت‬ ‫ال‬ ‫عن‬ ‫االعالن‬ ‫بمجرد‬...................‫يل‬ ‫التش‬ ‫عثناء‬ ‫ييرها‬ ‫ت‬ ‫يمكن‬ ‫ابت‬ ‫ال‬ ‫هذا‬
14-‫نوع‬ ‫من‬ ‫ير‬ ‫مت‬ ‫فى‬ ‫تخزينه‬ ‫يتم‬ ‫الطالب‬ ‫عنوان‬..............
12-( ‫من‬ ‫صحيحة‬ ‫عددية‬ ‫قيم‬ ‫يأخذ‬ ‫الذى‬ ‫العددى‬ ‫ير‬ ‫المت‬1:222‫النوع‬ ‫من‬ ‫هو‬ )..................
11-‫القيمة‬ ‫يأخذ‬ ‫الذى‬ ‫ير‬ ‫المت‬True‫عو‬False‫النوع‬ ‫من‬..................
‫السؤال‬‫السادس‬:
: ‫الخطأ‬ ‫نوع‬ ‫حدد‬ ‫التالية‬ ‫األكواد‬ ‫فى‬ ‫الخطاء‬ ‫حدد‬ )‫ع‬-
- Din My_D As Date
- Const pi As Single
: ‫الخطأ‬ ‫نوع‬ ‫حدد‬ ‫ثم‬ ‫التالية‬ ‫التخصيص‬ ‫جمل‬ ‫فى‬ ‫الخطأ‬ ‫حدد‬ )‫ب‬-
- TextBox1.Text=R+22/7*^2
- D=R*+3^4-2
‫السؤال‬‫السابع‬:‫العمود‬ ‫من‬ ‫اختر‬B‫العمود‬ ‫من‬ ‫يناسبه‬ ‫ما‬A:-
‫العمود‬A‫العمود‬B
1‫الكسور‬ ‫بتخزين‬ ‫يسمح‬ ‫البيانات‬ ‫من‬ ‫نوع‬/

11
‫العمود‬ ‫من‬ ‫اختر‬ : ‫السابع‬ ‫السؤال‬B‫العمود‬ ‫من‬ ‫يناسبه‬ ‫ما‬-: A
A ‫العمود‬B ‫العمود‬
‫الكسور‬ ‫بتخزين‬ ‫يسمح‬ ‫البيانات‬ ‫من‬ ‫نوع‬ 1/
‫هو‬ ‫التخصيص‬ ‫معامل‬ 2*
1‫القسمة‬ ‫إيجاد‬ ‫فى‬ ‫تستخدل‬Decimal
Start Debugging ‫لعمل‬ 4
2‫الضرب‬ ‫عمليات‬ ‫لتنفيذ‬ ‫تستخدل‬5F
Integer
=

14
‫الفصل‬‫الثانى‬:‫التفرع‬Branching
‫التفرع‬:
‫ال‬ *‫ااذ‬‫ا‬‫اتخ‬ ‫او‬‫ا‬‫ه‬ ‫ادفع‬‫ا‬‫الت‬ ‫ارائط‬‫ا‬‫خ‬ ‫اى‬‫ا‬‫ف‬ ‫ارع‬‫ا‬‫تف‬‫اة‬‫ا‬‫مجموع‬ ‫عو‬ ‫اة‬‫ا‬‫معين‬ ‫اوات‬‫ا‬‫خط‬ ‫اة‬‫ا‬‫مجموع‬ ‫اذ‬‫ا‬‫لتنفي‬ ‫اار‬‫ا‬‫اختي‬ ‫عو‬ ‫ارار‬‫ا‬‫ق‬
‫على‬ ‫بناء‬ ‫عخرى‬ ‫خطوات‬‫إجابة‬.‫معين‬ ‫سؤال‬
‫مية‬ ‫(الخوار‬ ‫الحل‬ ‫خطوات‬ ‫تطبيع‬ ‫هو‬ ‫بالتفرع‬ ‫الخاب‬ ‫الكود‬ *‫ل‬ ‫ا‬ ‫مع‬ ).‫البرمجة‬ ‫ة‬ ‫ل‬ ‫بقواعد‬ ‫تزال‬
‫عن‬ ‫للتعبير‬ *‫برمجيا‬ ‫التفرع‬‫جمال‬ ‫نستخدل‬: ‫وهى‬ ‫بيزيح‬ ‫الفيجوال‬ ‫ة‬ ‫ل‬ ‫فى‬ ‫معينة‬-
1-‫جملة‬If …. Then
2-‫جملة‬If….Then ….Else
1-‫جملة‬Select….Case
: ‫الشرطية‬ ‫التعبيرات‬
.‫البرمجة‬ ‫كود‬ ‫من‬ ‫جزء‬ ‫هو‬ ‫الشرطى‬ ‫التعبير‬ *
‫قيمة‬ ‫ناتج‬ ‫له‬ ‫الشرطى‬ ‫التعبير‬ *‫صواب‬ ‫عما‬ ‫وهى‬ ‫منطقية‬True‫خطأ‬ ‫عو‬False
.‫وقيمة‬ ،‫مقارنة‬ ‫وعامل‬ ،‫ثابت‬ ‫عو‬ ‫ير‬ ‫مت‬ ‫عجزاء‬ ‫ثالثة‬ ‫من‬ ‫يتكون‬ ‫الشرطى‬ ‫التعبير‬ *
: ‫بيزيك‬ ‫الفيجوال‬ ‫فى‬ ‫المقارنة‬ ‫معامالت‬
‫المعامل‬‫المعنى‬‫المعامل‬‫المعنى‬‫المعامل‬‫المعنى‬
‫تساوى‬<‫من‬ ‫عكبر‬>‫من‬ ‫ر‬ ‫عص‬
<>‫تساوى‬<‫تس‬ ‫عو‬ ‫من‬ ‫عكبر‬‫اوى‬>‫تساوى‬ ‫عو‬ ‫من‬ ‫ر‬ ‫عص‬
1-‫جملة‬ ‫باستخدام‬ ‫التفرع‬If …Then
‫جملة‬ *If….Then)‫(فردى‬ ‫فقط‬ ‫واحد‬ ‫بديل‬ ‫عو‬ ‫واحد‬ ‫اختيار‬ ‫وجود‬ ‫حالة‬ ‫فى‬ ‫تستخدل‬ ‫البسيطة‬
*‫األمر‬ ‫استخدال‬ ‫قاعدة‬:
If ‫شرطى‬ ‫تعبير‬ ‫عو‬ ‫الشرط‬ Then
Code ‫الشرط‬ ‫تحقع‬ ‫حالة‬ ‫فى‬ ‫تنفيذها‬ ‫يتم‬ ‫التى‬ ‫األوامر‬
End If ‫الشرط‬ ‫جملة‬ ‫نهاية‬
*‫جملة‬If….Then‫من‬ ‫تتكون‬‫األمر‬If‫بعدها‬ ‫ويأتى‬‫شرطى‬ ‫تعبير‬‫ثم‬Then‫واحد‬ ‫سطر‬ ‫فى‬
‫ع‬ ‫األمر‬ ‫به‬ ‫انى‬ ‫ال‬ ‫السطر‬ *‫صحيح‬ ‫الشرط‬ ‫كان‬ ‫إذا‬ ‫تنفيذها‬ ‫المطلوب‬ ‫األوامر‬ ‫مجموعة‬ ‫و‬
‫جملة‬ ‫تنتهى‬ *If‫بـ‬End If
‫ال‬ ‫م‬‫كانت‬ ‫إلى‬ ‫ناجح‬ ‫رسالة‬ ‫الظهار‬ ‫البرمجة‬ ‫كود‬ ‫عكتب‬ :‫درجة‬
X> =50 ‫يعنى‬ 21 ‫تساوى‬ ‫عو‬ ‫من‬ ‫عكبر‬ ‫الطالب‬

12
: ‫التالى‬ ‫النموذج‬ ‫على‬ ‫يحتوى‬ ‫مشروع‬ ‫بإعداد‬ ‫قم‬ *
‫والمطلوب‬‫إذا‬ ‫النتيجة‬ ‫ر‬ ‫على‬ ‫النقر‬ ‫وعند‬ ،‫الدرجة‬ ‫إدخال‬ :
‫يساوى‬ ‫عو‬ ‫من‬ ‫عكبر‬ ‫الدرجة‬ ‫كانت‬21‫به‬ ‫رسالة‬ ‫صندوق‬ ‫يظهر‬
.)‫(ناجح‬ ‫كلمة‬
‫الحل‬:
Dim X As single
X= Me.TextBox1.Text
If X > = 50 Then
MsgBox(“‫)”ناجح‬
End If
End Sub
1-‫جراء‬ ‫ا‬ ‫بداية‬
2-‫باسم‬ ‫ير‬ ‫مت‬ ‫عن‬ ‫عالن‬ ‫ا‬X
1-‫تخصيص‬ ‫امر‬‫قيمة‬ ‫بأن‬X‫النص‬ ‫صندوق‬ ‫فى‬
4-‫الشرط‬ ‫جملة‬If
2-‫الرسالة‬ ‫عرم‬‫حالة‬ ‫فى‬True
1-‫الشرط‬ ‫جملة‬ ‫نهاية‬If
7-‫جراء‬ ‫ا‬ ‫نهاية‬
‫م‬‫لحوظة‬‫الشرط‬ ‫جملة‬ ‫كتابة‬ ‫يمكن‬ :If‫واحد‬ ‫سطر‬ ‫فى‬‫وبدون‬End If
If X > = 50 Then MsgBox("‫)"ناجح‬
2-‫جملة‬ ‫باستخدام‬ ‫التفرع‬If …Then…Else
If ‫الشرط‬ Then
Code1 )‫(صح‬ ‫الشرط‬ ‫تحقع‬ ‫حالة‬ ‫فى‬ ‫تنفيذها‬ ‫يتم‬ ‫التى‬ ‫األوامر‬
Else
Code2 ‫تحقيع‬ ‫عدل‬ ‫حالة‬ ‫فى‬ ‫تنفيذها‬ ‫يتم‬ ‫التى‬ ‫األوامر‬)‫(خطأ‬ ‫الشرط‬
End If ‫الشرط‬ ‫جملة‬ ‫نهاية‬
‫جملة‬ *If….Then...Else)‫وجى‬ ( ‫اختيارين‬ ‫عو‬ ‫بديلين‬ ‫وجود‬ ‫حالة‬ ‫فى‬ ‫تستخدل‬
‫جملة‬ *If….Then…Else‫من‬ ‫تتكون‬If‫ثم‬ ‫الشرط‬ ‫بعدها‬ ‫ثم‬Then‫واحد‬ ‫سطر‬ ‫فى‬

11
‫صحيح‬ ‫الشرط‬ ‫كان‬ ‫إذا‬ ‫تنفيذها‬ ‫المطلوب‬ ‫األوامر‬ ‫مجموعة‬ ‫او‬ ‫األمر‬ ‫به‬ ‫التالى‬ ‫السطر‬ *Code 1
‫كلمة‬ ‫ثم‬ *Else) ‫وإ‬ ( ‫ومعناها‬ ‫بمفردها‬ ‫سطر‬ ‫على‬
‫صحيح‬ ‫الشرط‬ ‫كان‬ ‫إذا‬ ‫تنفيذها‬ ‫المطلوب‬ ‫األوامر‬ ‫مجموعة‬ ‫او‬ ‫األمر‬ ‫به‬ ‫التالى‬ ‫السطر‬ *Code 2
‫جملة‬ ‫تنتهى‬ *If‫بـ‬End If
‫مالحظات‬:
1-‫الشرط‬ ‫ناتج‬ ‫كان‬ ‫إذا‬True‫كلمة‬ ‫تلى‬ ‫التى‬ ‫األوامر‬ ‫تنفيذ‬ ‫يتم‬Then‫وحتى‬Else
1-‫ك‬ ‫إذا‬‫الشرط‬ ‫ناتج‬ ‫ان‬False‫كلمة‬ ‫تلى‬ ‫التى‬ ‫األوامر‬ ‫تنفيذ‬ ‫يتم‬Else‫وحتى‬End If
‫مثال‬(1)::
‫رسالة‬ ‫الظهار‬ ‫البرمجة‬ ‫كود‬ ‫عكتب‬‫ناجح‬‫تساوى‬ ‫عو‬ ‫من‬ ‫عكبر‬ ‫الطالب‬ ‫درجة‬ ‫كانت‬ ‫إلى‬21
‫يعنى‬50=>X‫رسالة‬ ‫وإظهار‬‫راسب‬‫من‬ ‫عقل‬ ‫كانت‬ ‫إلى‬21
‫الحل‬:
Dim X As single
X= Me. TextBox1.Text
If X >= 50 Then
MsgBox(“‫)”ناجح‬
Else
MsgBox(“‫)”راسب‬
End If
End Sub
2-‫باسم‬ ‫ير‬ ‫مت‬ ‫عن‬ ‫عالن‬ ‫ا‬X
1-‫تخصيص‬ ‫امر‬
2-‫حالة‬ ‫فى‬ ‫الرسالة‬ ‫عرم‬True
1-‫كلمة‬Else
7-‫حالة‬ ‫فى‬ ‫رسالة‬ ‫عرم‬False
1-‫الشرط‬ ‫جملة‬ ‫نهاية‬
‫ملحوظة‬‫الشرط‬ ‫جملة‬ ‫كتابة‬ ‫يمكن‬ :If‫وبدون‬ ‫واحد‬ ‫سطر‬ ‫فى‬End If
If X > = 50 Then MsgBox("‫)"ناجح‬ Else MsgBox ("‫)"راسب‬

17
‫مثال‬(2)‫نموذج‬ ‫على‬ ‫يحتوى‬ ‫مشروع‬ ‫بإعداد‬ ‫قم‬ :Form‫صندوق‬ ‫خالل‬ ‫من‬ ‫قيمة‬ ‫يستقبل‬ ‫والبرنامج‬
‫ير‬ ‫المت‬ ‫فى‬ ‫تخزينها‬ ‫يتم‬ ‫ثم‬ ،‫نص‬N‫صندوق‬ ‫فى‬ "‫فردى‬ ‫"الرقم‬ ‫عو‬ "‫وجى‬ ‫"الرقم‬ ‫عبارة‬ ‫وإظهار‬
.‫رسالة‬
Dim N As single
N= Me. TextBox1.Text
If (N Mod 2) = 0 Then
MsgBox(“‫وجى‬ ‫)”الرقم‬
Else
MsgBox(“‫فردى‬ ‫)”الرقم‬
End If
End Sub
2-‫باسم‬ ‫ير‬ ‫مت‬ ‫عن‬ ‫عالن‬ ‫ا‬N
1-‫ا‬‫تخصيص‬ ‫مر‬
2-‫حالة‬ ‫فى‬ ‫الرسالة‬ ‫عرم‬True
1-‫كلمة‬Else
7-‫حالة‬ ‫فى‬ ‫رسالة‬ ‫عرم‬False
1-‫الشرط‬ ‫جملة‬ ‫نهاية‬
:‫مالحظات‬
‫الحسابى‬ ‫المعامل‬ *Mod‫ال‬ ‫م‬ ، ‫القسمة‬ ‫باقى‬ ‫اليجاد‬ ‫يستخدل‬( 10 Mode 3 )‫الناتج‬1
‫الكود‬ *If ( N Mode 2) = 0‫قيمة‬ ‫ختبار‬N‫الشرطى‬ ‫التعبير‬ ‫بواسطة‬( N Mod 2 )
‫قيمة‬ ‫كانت‬ ‫إذا‬ *N‫على‬ ‫القسمة‬ ‫تقبل‬2.‫وجى‬ ‫الرقم‬ ‫يكون‬ )‫صفر‬ ‫(الباقى‬ ‫باقى‬ ‫بدون‬
‫قيمة‬ ‫كانت‬ ‫إذا‬ *N‫على‬ ‫القسم‬ ‫تقبل‬2.‫فردى‬ ‫الرقم‬ ‫يكون‬ )‫صفر‬ ‫يساوى‬ ‫الباقى‬ ( ‫باقى‬ ‫بدون‬
‫ملحوظة‬‫الشرط‬ ‫جملة‬ ‫كتابة‬ ‫يمكن‬ :If‫وبدون‬ ‫واحد‬ ‫سطر‬ ‫فى‬End If
If ( N Mod 2) = 0 Then MsgBox("‫وجى‬ ‫)"الرقم‬ Else MsgBox ("‫فردى‬ ‫الرقم‬ )"

18
3-‫جملة‬ ‫باستخدام‬ ‫التفرع‬Select …Case
‫جملة‬ *Select .. Case‫شاروط‬ ‫وهنااك‬ ‫واحاد‬ ‫يار‬ ‫مت‬ ‫قيماة‬ ‫علاى‬ ‫معتمادا‬ ‫التفرع‬ ‫يكون‬ ‫عندما‬ ‫تستخدل‬
‫العديد‬ ‫يوفر‬ ‫الذى‬ ‫األمر‬ ،‫يرة‬ ‫ك‬.‫وح‬ ‫وو‬ ‫سهولة‬ ‫ر‬ ‫عك‬ ‫الكود‬ ‫ويجعل‬ ‫األكواد‬ ‫من‬
‫لجملة‬ ‫العامة‬ ‫الصيغة‬Select .. Case
Select Case ‫ير‬ ‫المت‬
Case Value 1 ‫ولى‬ ‫ا‬ ‫الحالة‬
Code 1
Case Value 2 ‫انية‬ ‫ال‬ ‫الحالة‬
Code 2
Case Value 3 ‫ة‬ ‫ال‬ ‫ال‬ ‫الحالة‬
Code 3
Case Else
Code ‫ال‬ ‫الكود‬‫القيم‬ ‫لكل‬ ‫مساوية‬ ‫ير‬ ‫المت‬ ‫قيمة‬ ‫تكن‬ ‫لم‬ ‫إذا‬ ‫حالة‬ ‫فى‬ ‫تنفيذه‬ ‫يتم‬ ‫ذى‬‫السابقة‬
End Select
-‫جملة‬Select Case‫وجود‬ ‫حالة‬ ‫فى‬ ‫تستخدل‬‫شروط‬)‫عديدة‬ ‫(بدائل‬ ‫عديدة‬.
-‫جملة‬Select Case‫من‬ ‫تتكون‬Select Case.‫ير‬ ‫المت‬ ‫بعدها‬ ‫ثم‬
-‫التالى‬ ‫السطر‬ ‫ثم‬Case‫يليه‬ ‫ير‬ ‫المت‬ ‫على‬ ‫تدل‬ ‫وهى‬‫الشرط‬.
-‫األولى‬ ‫للحالة‬ ‫الشرط‬ ‫صحة‬ ‫حالة‬ ‫فى‬ ‫تنفيذه‬ ‫المطلوب‬ ‫الكود‬ ‫التالى‬ ‫السطر‬ ‫ثم‬.
-‫تكرار‬ ‫يتم‬ ‫ثم‬Case‫البدائل‬ ‫عو‬ ‫ت‬ ‫احتما‬ ‫عدد‬ ‫عى‬ ‫له‬ ‫التابعة‬ ‫األوامر‬ ‫ثم‬.
-‫جملة‬Case Else‫اى‬ ‫فترا‬ ‫ا‬ ‫الشرط‬ ‫بعدها‬ ‫يأتى‬‫جمياع‬ ‫تتحقاع‬ ‫لام‬ ‫إذا‬ ‫لاه‬ ‫التالياة‬ ‫األوامار‬ ‫تنفياذ‬ ‫وياتم‬
‫ا‬ ‫عو‬ ‫الشروط‬.‫السابقة‬ ‫ت‬ ‫لحا‬
-‫جملة‬ ‫تنتهى‬ ‫ثم‬Select Case‫بجملة‬End Select
‫مثال‬(1)‫الانص‬ ‫مرباع‬ ‫خالل‬ ‫من‬ ‫الحرارة‬ ‫درجة‬ ‫إدخال‬ ‫عند‬ ‫المطلوب‬TextBox1‫الازر‬ ‫علاى‬ ‫النقار‬ ‫ثام‬
‫اى‬‫ا‬‫ف‬ ‫ارم‬‫ا‬‫يع‬ "‫اار‬‫ا‬‫"اختي‬Label2‫ااوى‬‫ا‬‫"تس‬ ‫اارة‬‫ا‬‫عب‬ ‫عو‬ "‫افر‬‫ا‬‫الص‬ ‫اوق‬‫ا‬‫"ف‬ ‫اارة‬‫ا‬‫عب‬‫ال‬‫عبااارة‬ ‫عو‬ "‫افر‬‫ا‬‫ص‬
."‫الصفر‬ ‫"تحت‬
‫الحل‬:

11
Dim Degree As Single
Degree = Me.TextBox1.Text
Select Case Degree
Case 0
Me.Label2.Text= "‫صفر‬ "
Case < 0
Me.Label2.Text = "‫الصفر‬ ‫"تحت‬
Case > 0
Me.Label2.Text = "‫الصفر‬ ‫"فوق‬
End Select
2-‫عالن‬ ‫ا‬‫باسم‬ ‫ير‬ ‫مت‬ ‫عن‬Degree
1-‫تخصيص‬ ‫امر‬
4-‫حالته‬ ‫عرم‬ ‫سيتم‬ ‫الذى‬ ‫ير‬ ‫المت‬ ‫اسم‬ ‫تحديد‬
2-‫ير‬ ‫للمت‬ ‫األولى‬ ‫الحالة‬Degree = 0
1-‫العنوان‬ ‫عداة‬ ‫فى‬ "‫صفر‬ ‫"تساوى‬ ‫طباعة‬
7-‫ير‬ ‫للمت‬ ‫انية‬ ‫ال‬ ‫الحالة‬Degree < 0
8-‫العنوان‬ ‫عداة‬ ‫فى‬ "‫الصفر‬ ‫"تحت‬ ‫طباعة‬
7-‫ير‬ ‫للمت‬ ‫ة‬ ‫ال‬ ‫ال‬ ‫الحالة‬Degree > 0
1-‫العنوان‬ ‫عداة‬ ‫فى‬ "‫الصفر‬ ‫"فوق‬ ‫طباعة‬
7-‫نهاية‬‫جملة‬Select
: ‫مالحظات‬
1-‫التحكم‬ ‫عداة‬ ‫داخل‬ ‫العناصر‬ ‫ترتيب‬ComboBox‫ترتيب‬ ‫له‬ ‫األول‬ ‫العنصر‬ ‫عن‬ ‫حي‬ ‫الصفر‬ ‫من‬ ‫يبدع‬
(Index = 0 )‫ترتيب‬ ‫فى‬ ‫له‬ ‫انى‬ ‫ال‬ ‫والعنصر‬( Index = 1 ).‫وهكذا‬
2-‫الكود‬Me.TextBox1.Focus ( ).‫النص‬ ‫صندوق‬ ‫عداة‬ ‫فى‬ ‫الكتابة‬ ‫مؤشر‬ ‫ع‬ ‫وو‬ ‫تركيز‬ ‫يعنى‬
1-‫الكود‬Me.TextBox1.Text = " ".‫النص‬ ‫صندوق‬ ‫عداة‬ ‫محتويات‬ ‫إفراغ‬ ‫يعنى‬
4-‫الكود‬MsgBox = ( )‫ر‬ ‫وبه‬ ‫رسالة‬ ‫صندوق‬ ‫إظهار‬ ‫يعنى‬Ok‫الرسالة‬ ‫ونص‬

21
‫الفصل‬ ‫على‬ ‫أسئلة‬‫الثانى‬‫التفرع‬ :Branching
‫س‬1:‫بالكو‬ ‫مستعينا‬‫األسئلة‬ ‫عن‬ ‫عجب‬ ‫التالى‬ ‫د‬
1-‫عندما‬ "‫"ناجح‬ ‫النص‬ ‫وعليها‬ ‫الرسالة‬ ‫صندوق‬ ‫إظهار‬ ‫يتم‬...........................................
2-‫قيمة‬ ‫كانت‬ ‫إذا‬X = 50‫هو‬ ‫الكود‬ ‫تنفيذ‬ ‫ناتج‬ ‫فإن‬...........................................
1-‫قيمة‬ ‫كانت‬ ‫إذا‬X = 62‫ا‬ ‫تنفيذ‬ ‫ناتج‬ ‫فإن‬‫هو‬ ‫لكود‬...........................................
‫س‬2:‫العامة‬ ‫ة‬ ‫بالصي‬ ‫مستعينا‬ ‫األسئلة‬ ‫عن‬ ‫عجب‬‫لجمل‬‫التفرع‬ ‫ة‬.. ElseIf… Then
If Conditional Expression )‫الشرطى‬ ‫(التعبير‬ Then Code1 Else Code2
1-‫ير‬ ‫المت‬ ‫قيمة‬ ‫يختبر‬ ‫شرطى‬ ‫تعبير‬ ‫عكتب‬Y‫من‬ ‫عقل‬ ‫كانت‬ ‫إذا‬( 0 )
......................................................................................
2-‫عستبدل‬Code1. ‫رسالة‬ ‫صندوق‬ ‫فى‬ "‫سالب‬ ‫"الرقم‬ ‫نص‬ ‫يظهر‬ ‫بكود‬ ‫العامة‬ ‫ة‬ ‫الصي‬ ‫فى‬
.....................................................................................
1-‫فاى‬ ‫يظهار‬‫لجملاة‬ ‫العاماة‬ ‫ة‬ ‫الصاي‬If .. Then .. Else‫تنفياذ‬ ‫ياتم‬ ‫الشارطى‬ ‫التعبيار‬ ‫تحقاع‬ ‫إذا‬ ‫عناه‬
...............................‫تنفيذ‬ ‫يتم‬ ‫الشرطى‬ ‫التعبير‬ ‫يتحقع‬ ‫لم‬ ‫وإذا‬...............................
‫س‬1:‫بالجدول‬ ‫والكود‬ ‫بالشاشة‬ ‫مستعينا‬ ‫األسئلة‬ ‫عن‬ ‫عجب‬:
1-‫الب‬ ‫من‬ ‫رم‬ ‫ال‬‫هو‬ ‫رنامج‬...............................
2-‫الحد‬ ‫وقع‬ ‫إذا‬ ‫الكود‬ ‫تنفيذ‬ ‫يتم‬...............................‫التحكم‬ ‫عداة‬ ‫على‬...............................
1-‫ير‬ ‫المت‬ ‫نوع‬X‫هو‬ ‫الكود‬ ‫فى‬...............................
4-Me‫إلى‬ ‫تشير‬ ‫الكود‬ ‫فى‬...............................
2-‫القيمة‬ ‫إدخال‬ ‫تم‬ ‫إذا‬(50)‫هو‬ ‫الكود‬ ‫تنفيذ‬ ‫ناتج‬ ‫يكون‬ ‫النص‬ ‫صندوق‬ ‫فى‬...............................
‫س‬4:‫مستعينا‬ ‫بالكود‬ ‫التالى‬ ‫الجدول‬ ‫عكمل‬‫الشرطية‬ ‫للجملة‬ ‫العامة‬ ‫ة‬ ‫بالصي‬If.. Then.. Else
If X > = 50 Then
MsgBox ("‫)"ناجح‬
End If
If Conditional Expression Then
Code1
Else
Code2
End If
"‫"مصر‬ ‫كلمة‬ ‫يحمل‬ ‫رسالة‬ ‫صندوق‬ ‫الظهار‬ ‫وذلح‬
"‫"مصر‬ ‫تساوى‬ Country ‫ير‬ ‫المت‬ ‫قيمة‬ ‫كانت‬ ‫إذا‬
"Egypt" ‫كلمة‬ ‫يحمل‬ ‫رسالة‬ ‫صندوق‬ ‫يظهر‬ ‫عو‬

21
‫ل‬‫بيان‬‫الكود‬
1‫الشرطى‬ ‫التعبير‬................................ ..............................
2‫الشرط‬ ‫تحقيع‬ ‫جواب‬True............................... ...............................
1‫ج‬‫الشرط‬ ‫تحقيع‬ ‫عدل‬ ‫واب‬False............................... ...............................
‫س‬2:‫التالى‬ ‫بالكود‬ ‫مستعينا‬ ‫التالية‬ ‫األسئلة‬ ‫عن‬ ‫عجب‬:
1-‫قيمة‬ ‫كانت‬ ‫إذا‬X = 76‫هو‬ ‫الكود‬ ‫تنفيذ‬ ‫ناتج‬ ‫فإن‬
..............................................................
2-‫قيمة‬ ‫كانت‬ ‫إذا‬X = 49‫هو‬ ‫الكود‬ ‫تنفيذ‬ ‫ناتج‬ ‫فإن‬
..............................................................
1-‫بـ‬ ‫الخاب‬ ‫الكود‬ ‫كتابة‬ ‫ععد‬Block If‫فقط‬ ‫واحد‬ ‫سطر‬ ‫على‬ ‫ليظهر‬
..............................................................
‫س‬1:‫األسئلة‬ ‫عن‬ ‫عجب‬‫الكود‬ ‫دراسة‬ ‫بعد‬ ‫التالية‬:‫التالى‬
1-‫عنوان‬ ‫مربع‬ ‫فى‬ "‫وجى‬ ‫"الرقم‬ ‫النص‬ ‫يظهر‬ ‫بحي‬ ‫الكود‬ ‫عدل‬
Label1‫عنوان‬ ‫مربع‬ ‫فى‬ "‫فردى‬ ‫"الرقم‬ ‫النص‬ ‫ويظهر‬Label2
.‫الرسالة‬ ‫صندوق‬ ‫من‬ ‫بد‬
..............................................................
2-‫ير‬ ‫المت‬ ‫نوع‬ ‫استبدل‬(N)‫ليصبح‬Integer
..............................................................
‫س‬7‫فاإذا‬ ،‫قيمتاه‬ ‫يختبار‬ ‫ثام‬ ،‫يار‬ ‫مت‬ ‫فاى‬ ‫بتخزيناه‬ ‫ويقول‬ ،‫نص‬ ‫صندوق‬ ‫فى‬ ‫رقم‬ ‫عى‬ ‫يستقبل‬ ‫التالى‬ ‫الكود‬ :
.‫بذلح‬ ‫رسالة‬ ‫مربع‬ ‫يظهر‬ ‫فردى‬ ‫العدد‬ ‫كان‬ ‫وإذا‬ ،‫بذلح‬ ‫رسالة‬ ‫مربع‬ ‫يظهر‬ ‫وجى‬ ‫العدد‬ ‫كان‬
-‫المطلوب‬.‫صحيحا‬ ‫تنفيذه‬ ‫ناتج‬ ‫ليكون‬ ‫وتصويبها‬ ‫الثة‬ ‫ال‬ ‫األخطاء‬ ‫اكتشاف‬ ‫بعد‬ ‫الكود‬ ‫كتابة‬ ‫ععد‬
Dim X As Integer
N=Me.TextBox1.Text
If N Mod 2 = 0
MsgBox ("‫زوجى‬ ‫)"الرقم‬
Else
MsgBox("‫فردى‬ ‫)"الرقم‬
‫س‬7:‫التالى‬ ‫الكود‬ ‫دراسة‬ ‫بعد‬ ‫التالية‬ ‫األسئلة‬ ‫عن‬ ‫عجب‬:
1-‫الكود‬ ‫من‬ ‫رم‬ ‫ال‬..........................................
2-‫عن‬ ‫علمت‬ ‫إذا‬Degree = ( -3 )‫صندوق‬ ‫يظهر‬
Dim X As Single
X=Me.TextBox1.Text
If X >= 50 Then
MsgBox ("‫)"ناجح‬
Else
MsgBox("‫)"راسب‬
End If
Dim N As Long
N=Me.TextBox1.Text
If N Mod 2 = 0 Then
MsgBox ( "‫زوجى‬ ‫الرقم‬" )
Else
MsgBox( "‫فردى‬ ‫الرقم‬" )
End If
Select Case Degree
Case 0
Me.Label2.Text= "‫صفر‬ "
Case < 0
Me.Label2.Text = "‫الصفر‬ ‫"تحت‬
Case > 0
Me.Label2.Text = "‫الصفر‬ ‫فوق‬"
:..........................................
......................
..........................................
‫النص‬ ‫به‬ ‫الرسالة‬
‫الحد‬ ‫يقع‬ ‫عندما‬ ‫الكود‬ ‫تنفيذ‬ ‫يتم‬ -1
‫التحكم‬ ‫عداة‬ ‫على‬
‫هو‬ Degree ‫ير‬ ‫المت‬ ‫نوع‬ -4.............................

‫اإلعدادى‬ ‫الثالث‬ ‫الصف‬ ‫للكمبيوتر‬ ‫األمــري‬
‫س‬8( ‫عالمة‬ ‫ضع‬ :( ‫وعالمة‬ ‫الصحيحة‬ ‫العبارة‬ ‫أمام‬ )X: ‫الخاطئة‬ ‫العبارة‬ ‫أمام‬ )
1-‫جملة‬Select .. Case‫تعبيار‬ ‫مان‬ ‫ار‬ ‫عك‬ ‫اختباار‬ ‫نتيجاة‬ ‫علاى‬ ‫بنااء‬ ‫القارار‬ ‫اتخااذ‬ ‫حالاة‬ ‫فاى‬ ‫تستخدل‬
.‫شرطى‬
2-‫جملة‬If … Then‫ت‬ ‫البسيطة‬.‫فقط‬ ‫واحد‬ ‫اختيار‬ ‫وجود‬ ‫حالة‬ ‫فى‬ ‫ستخدل‬
1-‫الخاصية‬SelectedIndex‫عداة‬ ‫فى‬ ‫المحدد‬ ‫العنصر‬ ‫رقم‬ ‫لمعرفة‬ ‫تستخدل‬ListBox.
4-‫اار‬‫ا‬‫األم‬ ‫ااى‬‫ا‬‫تل‬ ‫ااى‬‫ا‬‫الت‬ )‫ااود‬‫ا‬‫(الك‬ ‫اار‬‫ا‬‫األوام‬ ‫ااة‬‫ا‬‫مجموع‬ ‫ااذ‬‫ا‬‫تنفي‬ ‫ااتم‬‫ا‬‫ي‬Else‫ااة‬‫ا‬‫جمل‬ ‫ااى‬‫ا‬‫ف‬ ‫اارط‬‫ا‬‫الش‬ ‫ااواب‬‫ا‬‫ج‬ ‫ااان‬‫ا‬‫ك‬ ‫إذا‬
If..Then..Else‫صواب‬True.
2-‫عبارة‬ ‫استخدال‬Case ..Else‫إجبار‬‫جملة‬ ‫فى‬ ‫ى‬Select .. Case
1-‫ل‬ ‫م‬ ‫المقارنة‬ ‫معامالت‬ ‫تستخدل‬>‫عو‬<.‫الشرطية‬ ‫التعبيرات‬ ‫تكوين‬ ‫فى‬
7-‫استخدال‬ ‫يفضل‬Select ..Case.‫واحد‬ ‫ير‬ ‫مت‬ ‫قيمة‬ ‫على‬ ‫معتمدا‬ )‫القرار‬ ‫(اتخاذ‬ ‫التفرع‬ ‫يكون‬ ‫عندما‬
‫س‬9:‫أ‬)‫التالى‬ ‫بالكود‬ ‫المقصود‬ ‫ما‬‫؟‬
1- M.TextBox1.Text ="‫"مصر‬
2- MsgBox(" ‫و‬ ‫الصفر‬ ‫بين‬ ‫عدد‬ ‫عدخل‬222 ")
3- Me.TextBox1.Text = " "
)‫ب‬‫التالى‬ ‫لعمل‬ ‫الالزم‬ ‫الكود‬ ‫أكتب‬:
1-‫األداة‬ ‫محتوى‬ ‫تخصيص‬TextBox1‫ير‬ ‫المت‬ ‫فى‬ ‫وتخزينها‬Degree
2-‫العنوان‬ ‫عداة‬ ‫فى‬ "‫والتفوق‬ ‫النجاح‬ ‫طريع‬ ‫بجد‬ ‫"المذاكرة‬ ‫عبارة‬ ‫عرم‬Label2
‫س‬11‫من‬ ‫كل‬ ‫فى‬ ‫ونوعها‬ ‫قيمة‬ ‫كل‬ ‫حدد‬ :: ‫التالية‬ ‫الشرطية‬ ‫التعبيرات‬
‫الشرطى‬ ‫التعبير‬ ‫القيمة‬ ‫نوع‬
1 A = 5 ^ 2 + 2 .......................................................................
2 A = TextBox1.Text .......................................................................
3 B =A .......................................................................
‫س‬11:‫ـالى‬‫ـ‬‫الت‬ ‫ـود‬‫ـ‬‫الك‬ ‫ـل‬‫ـ‬‫أكم‬:‫العناوان‬ ‫عداة‬ ‫اى‬‫ا‬‫ف‬ )‫(نااجح‬ ‫االة‬‫ا‬‫رس‬ ‫اار‬‫ا‬‫الظه‬Label4‫اة‬‫ا‬‫الدرج‬ ‫ات‬‫ا‬‫كان‬ ‫إذا‬
‫ااة‬‫ا‬‫المدخل‬Degree‫اانص‬‫ا‬‫ال‬ ‫ااندوق‬‫ا‬‫ص‬ ‫ااى‬‫ا‬‫ف‬TextBox1‫اااوى‬‫ا‬‫تس‬ ‫عو‬ ‫اان‬‫ا‬‫م‬ ‫اار‬‫ا‬‫عكب‬50‫ااالة‬‫ا‬‫رس‬ ‫ااار‬‫ا‬‫وإظه‬
‫عقل‬ ‫المدخلة‬ ‫الدرجة‬ ‫كانت‬ ‫إذا‬ )‫(راسب‬‫من‬50
................. Degree ................. Then
22
Me.Lable14 . ................. = "................."
Else
Me.Label4. .................= "................."

21
: ‫الثالث‬ ‫الفصل‬‫التكرارية‬ ‫الحلقات‬‫واإلجراءات‬Procedures&sLoop
‫التكرارية‬ ‫الحلقة‬
*‫مرات‬ ‫عدة‬ ‫محدد‬ ‫كود‬ ‫تنفيذ‬ ‫تكرار‬ ‫هى‬.
‫جملة‬ ‫خالل‬ ‫من‬ ‫التكرار‬ ‫تنفيذ‬ ‫يتم‬ *For … Next‫وجملة‬Do While … Loop
1-‫استخدام‬‫جملة‬For … Next
-‫تستخدل‬‫ل‬‫عد‬ ‫معين‬ ‫كود‬ ‫تكرار‬‫د‬‫المرات‬ ‫من‬ ‫محدد‬(‫التكرار‬ ‫مرات‬ ‫عدد‬) ‫مسبقا‬ ‫معروف‬.
‫لجملة‬ ‫العامة‬ ‫الصيغة‬For … Next
For Variable Counter = Start Value To End Value [Step] Add Value
Code ‫تنفيذها‬ ‫تكرار‬ ‫المطلوب‬ ‫وامر‬ ‫ا‬
Next [Variables] ‫اختيارى‬ ‫التكرار‬ ‫نهاية‬
Variable‫الذى‬ ‫ير‬ ‫المت‬ ‫اسم‬ :.)‫عشرى‬ ‫عو‬ ‫(صحيح‬ ‫رقمى‬ ‫نوعه‬ ‫يكون‬ ‫عن‬ ‫ويجب‬ ،‫العداد‬ ‫ل‬ ‫يم‬
Start Value.‫رقمية‬ ‫قيمة‬ ‫وهى‬ ‫التكرار‬ ‫بداية‬ ‫عو‬ ‫العداد‬ ‫بداية‬ ‫قيمة‬ :
End Value.‫عيضا‬ ‫رقمية‬ ‫قيمة‬ ‫وهى‬ ‫التكرار‬ ‫نهاية‬ ‫عو‬ ‫العداد‬ ‫نهاية‬ ‫قيمة‬ :
Add Value‫يص‬ ‫حتى‬ ‫العداد‬ ‫بها‬ ‫يزيد‬ ‫التى‬ ‫القيمة‬ ‫عو‬ ‫العداد‬ ‫يادة‬ ‫قيمة‬ :.‫النهاية‬ ‫قيمة‬ ‫إلى‬ ‫ل‬
Code‫التكرارية‬ ‫الحلقة‬ ‫بداية‬ ‫بين‬ ‫ويكون‬ ‫تكراره‬ ‫المراد‬ ‫عكر‬ ‫عو‬ ‫عمر‬ ‫عن‬ ‫عبارة‬ :For‫ونهايتها‬Next.
-‫موجاب‬ ‫الزياادة‬ ‫قيماة‬ ‫كانات‬ ‫إذا‬1‫كتاباة‬ ‫عان‬ ‫ناء‬ ‫سات‬ ‫ا‬ ‫يمكان‬ ‫فإناه‬Step Add Value‫عن‬ ‫باعتباار‬
‫موجب‬ ‫العداد‬ ‫لزيادة‬ ‫ية‬ ‫فترا‬ ‫ا‬ ‫القيمة‬1.
-‫كتا‬‫بجوار‬ ‫العداد‬ ‫ير‬ ‫مت‬ ‫اسم‬ ‫بة‬Next.‫اختيارية‬
-‫كلمة‬For‫التكرار‬ ‫جملة‬ ‫بداية‬ ‫تحدد‬.
-‫كلمة‬ ‫تلى‬For‫رقمى‬ ‫ير‬ ‫مت‬‫عشرى‬ ‫عو‬ ‫صحيح‬‫كعداد‬ ‫ويعمل‬Counter‫التكرار‬ ‫مرات‬ ‫عدد‬ ‫به‬ ‫ليخزن‬
-‫البداية‬ ‫قيمة‬ ‫ثم‬ ‫يساوى‬ ‫ثم‬Start Value‫إلى‬ ‫ثم‬To‫النهاية‬ ‫قيمة‬ ‫ثم‬End Value
-‫يرات‬ ‫المت‬Start Value , End Value‫رقمية‬ ‫يرات‬ ‫مت‬‫عشرية‬ ‫عو‬ ‫صحيحة‬‫المبرمج‬ ‫يحددها‬.
-‫النهاية‬ ‫لقيمة‬ ‫الوصول‬ ‫حتى‬ ‫البداية‬ ‫قيمة‬ ‫من‬ ‫التكرارية‬ ‫الحلقة‬ ‫داخل‬ ‫الكود‬ ‫تكرار‬ ‫يتم‬.
-‫كلمة‬Next‫التكرار‬ ‫نهاية‬ ‫جملة‬ ‫هى‬ ‫عو‬ ‫التكرار‬ ‫نهاية‬ ‫تحدد‬
-‫كلمة‬[Step].‫اختياريه‬ ‫عنها‬ ‫على‬ ‫لتدل‬ ‫قوسين‬ ‫بين‬ ‫عت‬ ‫و‬
-‫عيضا‬ ‫اختيارية‬ ‫عنها‬ ‫على‬ ‫لتدل‬ ‫قوسين‬ ‫بين‬ Next ‫بعد‬ [Variable] ‫ير‬ ‫المت‬ ‫اسم‬ ‫ع‬ ‫و‬.
21 ‫حتى‬ 11 ‫من‬ ‫عداد‬ ‫ا‬ ‫التكرار‬ ‫كود‬ :‫ال‬ ‫م‬
Dim I As Integer
For I = 10 To 20

24
( ‫تدريب‬1):‫مان‬ ‫األعاداد‬ ‫عليهاا‬ ‫رساالة‬ ‫صاندوق‬ ‫يظهار‬ ‫بحيا‬ ‫التالياة‬ ‫النماوذج‬ ‫نافاذة‬ ‫صامم‬1:1‫عناد‬
" ‫ر‬ ‫على‬ ‫ط‬ ‫الض‬‫من‬ ‫األعداد‬ ‫عرم‬1‫إلى‬1: ‫التالى‬ ‫الشكل‬ ‫فى‬ ‫كما‬ "
‫البرمجة‬ ‫كود‬ ‫التدفع‬ ‫خريطة‬
Dim M As Integer
For M = 1 To 3
MsgBox (M)
Next ‫التكرار‬ ‫جملة‬ ‫نهاية‬
End Sub
‫الحل‬ ‫خطوات‬ ‫سير‬ ‫ح‬ ‫يو‬ ‫التالى‬ ‫الجدول‬ *
‫الكود‬ ‫تفسير‬‫المت‬ ‫قيمة‬‫ير‬(M)‫الناتج‬
Dim M As Integer
‫العداد‬ ‫ير‬ ‫مت‬ ‫عن‬ ‫عالن‬ ‫ا‬
1
-
For M = 1 To 3
‫العداد‬ ‫بداية‬M‫من‬1:1
‫بتدائية‬ ‫ا‬ ‫القيمة‬1
MsgBox (M)
‫قيمة‬ ‫طباعة‬ ‫التكرار‬ ‫جملة‬M
1
1
Next
‫جملة‬ ‫إلى‬ ‫البرنامج‬ ‫يعود‬For‫العاداد‬ ‫تخطى‬ ‫ويختبر‬
M‫ع‬ ‫العاداد‬ ‫قيماة‬ ‫كانات‬ ‫فإذا‬ ‫النهاية‬ ‫لقيمة‬‫عو‬ ‫مان‬ ‫قال‬
‫الزيادة‬ ‫بقيمة‬ ‫العداد‬ ‫يزيد‬ ‫النهاية‬ ‫قيمة‬ ‫تساوى‬.
‫قيمة‬ ‫يادة‬M‫الزيادة‬ ‫بقيمة‬M=1+1
‫والناتج‬ ‫النهاية‬ ‫بقيمة‬ ‫ومقارنته‬False
-
MsgBox(M)
‫قيمة‬ ‫طباعة‬ ‫لتكرار‬ ‫التكرار‬ ‫جملة‬M‫الجديدة‬
2
2
Next‫قيمة‬ ‫يادة‬M‫تكون‬ ‫حي‬M=2+1-
‫السابقة‬ ‫الخطوة‬ ‫نفس‬‫والناتج‬ ‫النهاية‬ ‫بقيمة‬ ‫ومقارنته‬False
MsgBox(M)
‫الجديدة‬ M ‫قيمة‬ ‫طباعة‬ ‫التكرار‬ ‫جملة‬
1
1
Next
‫السابع‬ ‫االجراء‬ ‫نفس‬
M=3+1 ‫تكون‬ ‫حي‬ M ‫قيمة‬ ‫يادة‬
True ‫والناتج‬ ‫النهاية‬ ‫بقيمة‬ ‫ومقارنته‬
-

22
( ‫تدريب‬2):‫نص‬ ‫صندوق‬ ‫افة‬ ‫بإ‬ ‫السابع‬ ‫التدريب‬ ‫عدل‬TextBox1‫مان‬ ‫األعاداد‬ ‫عرم‬ ‫يتم‬ ‫لكى‬1:
1‫ب‬ ‫بداخله‬‫فى‬ ‫ها‬ ‫عر‬ ‫من‬ ‫د‬MsgBox‫من‬ ‫األعداد‬ ‫"عرم‬ ‫الزر‬ ‫على‬ ‫بالنقر‬ ‫وذلح‬1‫إلى‬1."
Dim M As Integer
Me. TextBox1.Text = " "
Me.TextBox1.MultiLine = True
For M = 1 To 3
Me. TextBox1.Text = Me.TextBox1.Text & M & vbCrLf
Next M
End Sub
: ‫ملحوظة‬: ‫التالى‬ ‫اتباع‬ ‫تم‬ ‫النص‬ ‫مربع‬ ‫فى‬ ‫بعضها‬ ‫بجوار‬ ‫ها‬ ‫عر‬ ‫وتجنب‬ ‫المخرجات‬ ‫شكل‬ ‫لتحسين‬
1-.‫ببعف‬ ‫حرفيتين‬ ‫سلسلتين‬ ‫لربط‬ )&( ‫الربط‬ ‫معامل‬ ‫استخدال‬ ‫يتم‬
2-‫الكود‬ ‫استخدال‬ ‫تم‬Me.TextBox1.Text =" ".‫النص‬ ‫صندوق‬ ‫محتويات‬ ‫لمسح‬
1-‫الخاصية‬ ‫يير‬ ‫ت‬ ‫تم‬MultiLine‫لألداة‬TextBox1‫لتكون‬True.‫األسطر‬ ‫بتعدد‬ ‫لتسمح‬
4-‫ابت‬ ‫ال‬ ‫استخدال‬ ‫تم‬vbCrLf.‫جديد‬ ‫وسطر‬ ‫دخال‬ ‫ا‬ ‫مفتاح‬ ‫رمز‬ ‫افة‬ ‫ال‬
-‫الحرفى‬ ‫ابت‬ ‫ال‬vbCrLf‫لجملة‬ ‫اختصار‬Visual Basic Carriage Return Line Feed
( ‫تدريب‬3):‫العدد‬ ‫رب‬ ‫جدول‬ ‫لعرم‬ ‫برنامج‬ ‫بتصميم‬ ‫قم‬ ‫السابع‬ ‫بالكود‬ ‫مستعينا‬1‫صند‬ ‫فى‬‫نص‬ ‫وق‬

21
Dim M , Product As Integer
Dim Str As String
For M = 1 To 12
Str = 3 & "× " & M & " = "
Product = 3 * M
Me. TextBox1.Text = Me.TextBox1.Text & Str & Product & vbCrLf
Next M
End Sub
1-‫باسام‬ ‫يار‬ ‫مت‬ ‫تعريف‬ ‫تم‬Product‫الضارب‬ ‫حاصال‬ ‫باه‬ ‫ليخازن‬ ‫الصاحيح‬ ‫الرقماى‬ ‫الناوع‬ ‫مان‬M * 3
‫ير‬ ‫المت‬ ‫لقيمة‬ ‫يير‬ ‫ت‬ ‫كل‬ ‫مع‬ ‫وذلح‬M
2-‫باسام‬ ‫ير‬ ‫مت‬ ‫تعريف‬ ‫تم‬Str‫الضارب‬ ‫حاصال‬ ‫جملاة‬ ‫شاكل‬ ‫باه‬ ‫ليخازن‬ ‫الحرفاى‬ ‫الناوع‬ ‫مان‬( 3 x 1 =)
‫ير‬ ‫المت‬ ‫لقيمة‬ ‫يير‬ ‫ت‬ ‫كل‬ ‫ومع‬M‫ير‬ ‫المت‬ ‫فى‬ ‫الجديدة‬ ‫القيمة‬ ‫تخزن‬Str.
‫يرات‬ ‫المت‬ ‫عسماء‬ ‫عن‬ ‫االعالن‬ ‫بدون‬ ‫السابع‬ ‫الكود‬ ‫كتابة‬ ‫يمكن‬ *Str , Product: ‫كالتالى‬ ‫ويكون‬
Dim M As Integer
For M = 1 To 12
Me.TextBox1.Text =Me.TextBox1.Text &3&"×"& M & "="& 3*M & vbCrLf
Next M
End Sub
( ‫تدريب‬4):‫مان‬ ‫إدخالاه‬ ‫يتم‬ ‫عدد‬ ‫بأى‬ ‫الخاب‬ ‫الضرب‬ ‫جدول‬ ‫لعرم‬ ‫السابع‬ ‫التدريب‬ ‫فى‬ ‫البرنامج‬ ‫عدل‬
‫نص‬ ‫مربع‬ ‫خالل‬TextBox‫الشكل‬ ‫فى‬ ‫كما‬: ‫التالى‬

27
Dim M , Product , Num As Integer
Dim Str As String
Num = Me.TextBox2.Text
For M = 1 To 12
Str = Num & "× " & M & " = "
Product = Num * M
Me. TextBox1.Text = Me.TextBox1.Text & Str & Product & vbCrLf
Next M
End Sub
-‫باسم‬ ‫نص‬ ‫صندوق‬ ‫افة‬ ‫إ‬ ‫تم‬TextBox2.‫به‬ ‫الجديد‬ ‫الجدول‬ ‫رقم‬ ‫إدخال‬ ‫لتم‬
-‫رقمى‬ ‫ير‬ ‫مت‬ ‫تعريف‬ ‫تم‬‫باسم‬Num‫من‬ ‫قيمته‬ ‫ويأخذ‬ ‫الجديد‬ ‫الجدول‬ ‫رقم‬ ‫به‬ ‫ليخزن‬TextBox2
:‫التكرارية‬ ‫الحلقات‬ ‫فى‬ ‫الزيادة‬ ‫ومقدار‬ ‫والنهاية‬ ‫البداية‬ ‫فى‬ ‫التحكم‬
،‫موجباة‬ ‫قيماة‬ ‫العاداد‬ ‫ياادة‬ ‫كانات‬ ‫لذا‬ ‫النهاية‬ ‫قيمة‬ ‫من‬ ‫ر‬ ‫عص‬ ‫دائما‬ ‫البداية‬ ‫قيمة‬ ‫كانت‬ ‫السابقة‬ ‫لة‬ ‫األم‬ ‫فى‬
‫ف‬ ‫ا‬ ‫الزيادة‬ ‫قيمة‬ ‫كانت‬ ‫عنها‬ ‫كما‬‫بعاد‬ ‫عخارى‬ ‫ياادة‬ ‫قايم‬ ‫تحدياد‬ ‫يمكنناا‬ ‫ولكان‬ )‫واحد‬ ‫(موجب‬ ‫ية‬ ‫ترا‬Step
‫لذلح‬ ‫مختلفة‬ ‫ت‬ ‫حا‬ ‫ح‬ ‫يو‬ ‫التالى‬ ‫والجدول‬ ‫سالبة‬ ‫عو‬ ‫موجبة‬ ‫عشرية‬ ‫عو‬ ‫صحيحة‬ ‫رقمية‬ ‫قيمة‬ ‫تكون‬ ‫فقد‬
‫ال‬ ‫الم‬‫الك‬‫ــــــــــــــــــ‬‫ود‬
‫الفردياااة‬ ‫األعاااداد‬ ‫لعااارم‬
‫من‬1‫إلى‬11
For I = 1 to 10 step 2
Me.TextBox1.Text = Me.TextBox1.Text & I & vbCrlf
Next
‫اة‬‫ا‬‫الزوجي‬ ‫اداد‬‫ا‬‫األع‬ ‫ارم‬‫ا‬‫لع‬
‫من‬2‫إلى‬11
Next
‫تقبل‬ ‫التى‬ ‫األعداد‬ ‫لعرم‬
‫ااى‬‫ا‬‫عل‬ ‫اامة‬‫ا‬‫القس‬1‫اان‬‫ا‬‫م‬1
‫إلى‬21
Next
‫اة‬‫ا‬‫الزوجي‬ ‫اداد‬‫ا‬‫األع‬ ‫ارم‬‫ا‬‫لع‬
‫مااان‬ ‫لياااا‬ ‫تنا‬ ‫مرتباااة‬11
‫إلى‬1
For I = 10 to 1 step -2
Next
‫مان‬ ‫األعاداد‬ ‫لعرم‬112For I = 1.5 to 0.5 step -0.05
1112 ‫بتناقص‬ 112 ‫إلى‬
‫مرة‬ ‫كل‬ ‫فى‬
Next
1 ‫ااان‬‫ا‬‫م‬ ‫اااداد‬‫ا‬‫األع‬ ‫لعااارم‬
‫ااااادة‬‫ا‬‫ي‬ ‫اااادل‬‫ا‬‫بمع‬ B ‫ااااى‬‫ا‬‫إل‬
C ‫قيمته‬
For I = 1 to B step C
Next

28
2-‫جملة‬ ‫استخدام‬Do While ….. Loop
‫مسبقا‬ ‫نهايته‬ ‫معروف‬ ‫ير‬ ‫ال‬ ‫المرات‬ ‫من‬ ‫لعدد‬ ‫معين‬ ‫كود‬ ‫تكرار‬ ‫فى‬ ‫تستخدل‬ *‫معين‬ ‫شرط‬ ‫على‬ ‫بناء‬ ‫وإنما‬
.‫قاطع‬ ‫بشكل‬ ‫التكرار‬ ‫مرات‬ ‫عدد‬ ‫معرفة‬ ‫عدل‬ ‫حالة‬ ‫فى‬ ‫مفيدة‬ ‫فهى‬ ‫لذلح‬
.‫معين‬ ‫شرط‬ ‫على‬ ‫بناء‬ ‫معرف‬ ‫غير‬ ‫مرات‬ ‫عدد‬ ‫محدد‬ ‫كود‬ ‫تنفيذ‬ ‫لتكرار‬ ‫تستخدل‬ *
*.‫صحيحا‬ ‫التكرار‬ ‫تنفيذ‬ ‫شرط‬ ‫عن‬ ‫طالما‬ ‫معروف‬ ‫غير‬ ‫مرات‬ ‫عدد‬ ‫محدد‬ ‫كود‬ ‫تنفيذ‬ ‫لتكرار‬ ‫تستخدل‬
:‫ال‬ ‫م‬‫كت‬ ‫تكرار‬‫الانص‬ ‫مرباع‬ ‫فاى‬ ‫الطاالب‬ ‫عساماء‬ ‫اباة‬TextBox‫اسام‬ ‫كتاباة‬ ‫عناد‬ ‫التكارار‬ ‫مان‬ ‫والخاروج‬
‫معينة‬ ‫كلمة‬ ‫عو‬ ‫معين‬End.‫ال‬ ‫م‬
‫التكرار‬ ‫جملة‬ ‫فى‬ ‫األوامر‬ ‫تكرار‬ ‫يستمر‬ *Do While ..Loop‫صاحيحا‬ ‫التكارار‬ ‫شارط‬ ‫قيمة‬ ‫كان‬ ‫طالما‬
Trueَ‫ا‬‫خاطئ‬ ‫التكرار‬ ‫شرط‬ ‫قيمة‬ ‫تصبح‬ ‫عندما‬ ‫األوامر‬ ‫تكرار‬ ‫ويتوقف‬False.
‫لجملة‬ ‫العامة‬ ‫ة‬ ‫الصي‬.. LoopDo .. While
Do While Conditional Expression (‫شرطى‬ ‫)تعبير‬ → ‫التكرار‬ ‫شرط‬
Code → ‫تنفيذها‬ ‫تكرار‬ ‫المطلوب‬ ‫األوامر‬
Loop ‫نهاية‬‫جملة‬‫التكرار‬→
( ‫تدريب‬5: )‫سات‬ ‫وذلاح‬ ‫النماوذج‬ ‫نافاذة‬ ‫فاى‬ ‫اح‬ ‫مو‬ ‫هاو‬ ‫كماا‬ ‫المشاروع‬ ‫نافذة‬ ‫صمم‬،‫موجاب‬ ‫عادد‬ ‫قبال‬
‫مان‬ ‫تصااعديا‬ ‫مرتباة‬ ‫الفردياة‬ ‫األعاداد‬ ‫تظهار‬ "‫فردياة‬ ‫"ععاداد‬ ‫ر‬ ‫على‬ ‫ط‬ ‫وبالض‬1‫تام‬ ‫الاذى‬ ‫الارقم‬ ‫حتاى‬
‫مان‬ ‫تصااعديا‬ ‫مرتباة‬ ‫الزوجياة‬ ‫األعاداد‬ ‫تظهر‬ "‫وجية‬ ‫"ععداد‬ ‫ر‬ ‫على‬ ‫ط‬ ‫وبالض‬ ،‫إدخاله‬1‫الارقم‬ ‫حتاى‬
.‫القائمة‬ ‫صندوق‬ ‫فى‬ ‫إدخاله‬ ‫تم‬ ‫الذى‬
‫جملة‬ ‫باستخدال‬For …. Next‫جملة‬ ‫باستخدال‬Do While …Loop
Dim N , I As Integer
N = Me.TextBox1.Text
Me.TextBox1.Items.Clear ( )
Me.TextBox1.Items.Clear ( )
For I = 1 To N Step 2
Me. ListBox1.Items.Add ( I )
Next
I = 1
Do While I < = N
Me. ListBox1.Items.Add ( I )
I = I + 2
Next

21
1-‫عداة‬ ‫محتويات‬ ‫حذف‬ ‫تم‬ListBox1:‫بالكود‬-ListBox1.Items.Clear ( )
2-‫قيمة‬ ‫افة‬ ‫إ‬ ‫تم‬( I )‫عداة‬ ‫إلى‬ListBox1‫بالكود‬ListBox1.Items.Add ( I )
1-‫الزوجي‬ ‫باألعداد‬ ‫الخاب‬ ‫الكود‬ ‫كتابة‬ ‫يمكن‬‫قيمة‬ ‫تعديل‬ ‫مع‬ ‫الطريقة‬ ‫بنفس‬ ‫ة‬I = 2
( ‫تدريب‬6: )‫فاى‬ ‫الفردياة‬ ‫األعاداد‬ ‫مجماوع‬ ‫فيعارم‬ ،‫موجاب‬ ‫عادد‬ ‫يساتقبل‬ ‫بحيا‬ ‫البرناامج‬ ‫نافاذة‬ ‫صمم‬
‫األداة‬Label3‫األداة‬ ‫فاى‬ "‫الفردياة‬ ‫األعاداد‬ ‫مجماوع‬ " ‫ر‬ ‫علاى‬ ‫ط‬ ‫الض‬ ‫عند‬ ‫إدخاله‬ ‫تم‬ ‫الذى‬ ‫الرقم‬ ‫حتى‬
Label3‫األداة‬ ‫فى‬ ‫الزوجية‬ ‫األعداد‬ ‫مجموع‬ ‫ويعرم‬Label3‫ط‬ ‫الضا‬ ‫عناد‬ ‫إدخاله‬ ‫تم‬ ‫الذى‬ ‫الرقم‬ ‫حتى‬
‫األداة‬ ‫فى‬ "‫الزوجية‬ ‫األعداد‬ ‫"مجموع‬ ‫ر‬ ‫على‬Label3.‫الشكل‬ ‫فى‬ ‫كما‬
‫جملة‬ ‫باستخدال‬For …. Next‫جملة‬ ‫باستخدال‬Do While …Loop
Dim N , I , Sum As Integer
For I = 1 To N Step 2
Sum = Sum + I
Next
Me. Lebel3.Text= Sum
I = 1
Do While I < = N
I = I + 2
Next
Me. Lebel3.Text= Sum

11
‫اإلجراءات‬Procedures
‫االج‬‫راء‬roceduresP:
‫والتعليمات‬ ‫األوامر‬ ‫من‬ ‫مجموعة‬ ‫هو‬ *Code‫معي‬ ‫اسم‬ ‫وله‬‫هاذه‬ ‫تنفياذ‬ ‫ياتم‬ ‫سام‬ ‫ا‬ ‫هاذا‬ ‫استدعاء‬ ‫عند‬ ،‫ن‬
.‫والتعليمات‬ ‫األوامر‬
‫األوامار‬ ‫هاذه‬ ‫تنفياذ‬ ‫لياتم‬ ،‫سام‬ ‫ا‬ ‫بهاذا‬ ‫استدعاؤه‬ ‫يمكن‬ ،‫ما‬ ‫اسم‬ ‫تحت‬ ‫والتعليمات‬ ‫األوامر‬ ‫من‬ ‫مجموعة‬ *
‫النشاء‬ ‫ونلجأ‬ ،‫والتعليمات‬Sub‫مان‬ ‫ار‬ ‫عك‬ ‫فاى‬ ‫اساتخدامها‬ ‫يتكارر‬ ‫األوامر‬ ‫من‬ ‫مجموعة‬ ‫لدينا‬ ‫كان‬ ‫إذا‬
‫التصني‬ ‫داخل‬ ‫ع‬ ‫مو‬.‫ف‬
*‫نموذج‬ ‫افة‬ ‫إ‬ ‫عند‬Form‫تصانيف‬ ‫ينشاأ‬ ‫جدياد‬Class‫باسام‬ ‫جدياد‬Form1‫ياتم‬ ‫التصانيف‬ ‫هاذا‬ ‫فاى‬
‫اادا‬‫ا‬‫ح‬ ‫ا‬ ‫ااراءات‬‫ا‬‫اج‬ ‫اان‬‫ا‬‫ع‬ ‫ااالن‬‫ا‬‫ع‬ ‫ا‬Event Procedures‫اارات‬‫ا‬‫ي‬ ‫والمت‬Variables‫اات‬‫ا‬‫واب‬ ‫وال‬
Constants‫والجمل‬Block‫ع‬‫ع‬ ‫جراء‬ ‫ا‬ ‫نطاق‬ ‫لى‬‫و‬‫على‬.‫التصنيف‬ ‫نطاق‬
‫االجراء‬ ‫عن‬ ‫االعالن‬:
1-‫عن‬ ‫االعالن‬ ‫يتم‬.‫المرات‬ ‫من‬ ‫عدد‬ ‫عى‬ ‫ويستدعى‬ ،‫واحدة‬ ‫مرة‬ ‫االجراء‬
2-.‫مرة‬ ‫من‬ ‫ر‬ ‫عك‬ ‫الكود‬ ‫نفس‬ ‫كتابة‬ ‫تكرار‬ ‫لعدل‬ ‫االجراء‬ ‫عن‬ ‫االعالن‬ ‫يتم‬
1-.‫التصنيف‬ ‫داخل‬ ‫ع‬ ‫مو‬ ‫عى‬ ‫فى‬ ‫باسمه‬ ‫االجراء‬ ‫استدعاء‬ ‫يمكن‬
‫بيزيك‬ ‫الفيجوال‬ ‫لغة‬ ‫فى‬ ‫االجراءات‬ ‫أنواع‬
1-‫جراء‬ ‫ا‬Sub‫بقيمة‬ ‫يعود‬ ‫اجراء‬ ‫وهو‬.
2-‫ج‬ ‫ا‬‫راء‬Function‫بقيمة‬ ‫يعود‬ ‫اجراء‬ ‫وهو‬.
‫االجراء‬ ‫عن‬ ‫االعالن‬ : ‫أوال‬Sub
-‫جراء‬ ‫ا‬ ‫عن‬ ‫عالن‬ ‫ا‬ ‫يتم‬Sub: ‫التالية‬ ‫ت‬ ‫الحا‬ ‫فى‬
1-‫التصنيف‬ ‫داخل‬ ‫مكان‬ ‫من‬ ‫ر‬ ‫عك‬ ‫فى‬ ‫كتابته‬ ‫تكرار‬ ‫سيتم‬ ‫معين‬ ‫كود‬ ‫وجود‬Class.
2-‫وتعديله‬ ‫وفهمه‬ ‫قراءته‬ ‫وسهولة‬ ‫الكود‬ ‫كتابة‬ ‫لتنظيم‬.
‫لإلع‬ ‫العامة‬ ‫الصيغة‬‫االجراء‬ ‫عن‬ ‫الن‬Sub
Sub Name ‫االجراء‬ ‫اسم‬ (Parameters) ‫الوسائط‬
Code ‫وامر‬ ‫ا‬‫والتعليمات‬‫تنفيذها‬ ‫المطلوب‬
End Sub ‫جراء‬ ‫ا‬ ‫نهاية‬
1-‫بكلمة‬ ‫جراء‬ ‫ا‬ ‫يبدع‬Sub
2-‫ثم‬Name‫خالله‬ ‫من‬ ‫يستدعى‬ ‫سوف‬ ‫الذى‬ ‫جراء‬ ‫ا‬ ‫اسم‬.
.‫االجراء‬ ‫استدعاء‬ ‫عند‬ ‫الكود‬ ‫فى‬ ‫استخدامها‬ ‫سيتم‬ ‫التى‬ ‫القيم‬ ‫وهى‬ Parameters ‫الوسائط‬ -1
.‫دوال‬ ‫عو‬ ‫ثوابت‬ ‫عو‬ ‫يرات‬ ‫مت‬ ‫عو‬ ‫مجردة‬ ‫قيم‬ ‫تكون‬ ‫عن‬ ‫يمكن‬ Parameters ‫الوسائط‬ -4
.‫جراء‬ ‫ا‬ ‫داخل‬ ‫تخزينها‬ ‫سيتم‬ ‫التى‬ ‫والتعليمات‬ ‫وامر‬ ‫ا‬ ‫مجموعة‬ ‫هى‬ Code ‫الـ‬ -4
.‫جراء‬ ‫ا‬ ‫نهاية‬ ‫جملة‬ ‫هى‬ End Sub -2
.‫الوسائط‬ ‫يير‬ ‫ت‬ ‫يمكن‬ ‫مرة‬ ‫كل‬ ‫وفى‬ ‫المرات‬ ‫من‬ ‫عدد‬ ‫عى‬ ‫جراء‬ ‫ا‬ ‫استدعاء‬ ‫يمكن‬ -1

11
‫تدريب‬:‫االجراء‬ ‫عن‬ ‫االعالن‬Sub‫باسم‬ShowOddOrEven‫الفردية‬ ‫األرقال‬ ‫لعرم‬ ‫واستدعاءه‬
‫على‬ ‫ط‬ ‫الض‬ ‫عند‬Button1‫الفردية‬ ‫األرقال‬ ‫وعرم‬‫على‬ ‫ط‬ ‫الض‬ ‫عند‬Button2.
1-‫باسم‬ ‫االجراء‬ ‫عن‬ ‫االعالن‬ShowOddOrEven‫الوسائط‬ ‫عن‬ ‫واالعالن‬Parameter
2-‫الـ‬ ‫يير‬ ‫ت‬ ‫مع‬ ‫االجراء‬ ‫استدعاء‬Argument‫الفردية‬ ‫لألرقال‬1‫الزوجية‬ ‫واألرقال‬2
: ‫بالكامل‬ ‫البرنامج‬
Public Class Form1
Dim Total As Integer
Sub ShowOddOrEven (ByVal Start As Integer)
Dim I As Integer
Label1.Text = " "
For I = Start To 10 Step 2
Label1.Text= Label1.Text & " " & I
Next
End Sub
End Class
ShowOddOrEven ( 1 )
End Sub
ShowOddOrEven ( 2 )
End Sub

12
ً
‫ثانيا‬‫الدالة‬ ‫عن‬ ‫االعالن‬ :Function
‫األوامر‬ ‫من‬ ‫مجموعة‬ ‫هى‬ *‫والتعليمات‬Code‫عان‬ ‫معبارا‬ ‫دالاة‬ ‫اسام‬ ‫يكاون‬ ‫عن‬ ‫يفضال‬ ،‫معاين‬ ‫اسم‬ ‫تحت‬
.‫بقيمة‬ ‫وتعود‬ ‫وسائط‬ ‫عو‬ ‫مدخالت‬ ‫على‬ ‫تطبيقها‬ ‫ويتم‬ ،‫وظيفتها‬
*‫الدالة‬ ‫عن‬ ‫عالن‬ ‫ا‬ ‫يتم‬Function‫حال‬ ‫فى‬‫إ‬ ‫نريد‬ ‫قيمة‬ ‫منه‬ ‫سينتج‬ ‫كود‬ ‫وجود‬ ‫ة‬‫عو‬ ‫للمساتخدل‬ ‫خراجهاا‬
‫البرنامج‬ ‫فى‬ ‫ستخدامها‬‫مساحة‬ ،‫الدائرة‬ ‫محيط‬ ‫ال‬ ‫م‬.‫األجر‬ ‫صافى‬ ،‫المستحقة‬ ‫الضريبة‬ ،‫المربع‬
‫الدالة‬ ‫عن‬ ‫لإلعالن‬ ‫العامة‬ ‫الصيغة‬Function
Function Name (Parameters ‫)الوسائط‬ As ‫البيان‬ ‫نوع‬
Code ‫تنفيذها‬ ‫المطلوب‬ ‫وامر‬ ‫ا‬
Return Value ‫الراجعة‬ ‫القيمة‬
End Function ‫الدالة‬ ‫نهاية‬
1-‫بكلمة‬ ‫الدالة‬ ‫تبدع‬Function
2-‫ثم‬Name‫خالله‬ ‫من‬ ‫تستدعى‬ ‫سوف‬ ‫الذى‬ ‫الدالة‬ ‫اسم‬.
1-‫ثم‬Parameters‫الكود‬ ‫فى‬ ‫تستخدل‬ ‫سوف‬ ‫التى‬ ‫وسائط‬ ‫وهى‬.
4-‫البيان‬ ‫نوع‬Data Type‫الدالة‬ ‫من‬ ‫الراجعة‬ ‫القيمة‬ ‫بيان‬ ‫نوع‬ ‫تحديد‬ ‫وهو‬.
2-‫الـ‬Code‫والتعليمات‬ ‫األوامر‬ ‫هى‬‫الدالة‬ ‫استدعاء‬ ‫عند‬ ‫ستنفذ‬ ‫التى‬.
1-‫قيم‬ ‫استرجاع‬‫باستخدال‬ ‫الدالة‬ ‫ة‬Return
7-‫القيمة‬Value‫إلى‬ ‫تشير‬‫القيمة‬ ‫يحمل‬ ‫الذى‬ ‫ير‬ ‫المت‬ ‫اسم‬‫الدالة‬ ‫من‬ ‫الراجعة‬.
8-‫الدالة‬ ‫نهاية‬ ‫سطر‬End Function
‫لها‬ ‫قيم‬ ‫تخصيص‬ ‫يمكن‬ ‫الدوال‬ *.
‫قيمة‬ ‫فينتج‬ ‫استدعاؤها‬ ‫يتم‬ ‫الدوال‬ *‫تخزن‬‫القيمة‬ ‫هذه‬ ‫استخدال‬ ‫يمكن‬ ‫ثم‬ ‫ومن‬ ‫بها‬.
‫تسم‬ ‫يفضل‬ ‫الدوال‬ *‫الدالة‬ ‫وظيفة‬ ‫على‬ ‫تدل‬ ‫بأسماء‬ ‫يتها‬.
:‫تدريب‬‫نافذة‬ ‫على‬ ‫يحتوى‬ ‫مشروع‬ ‫بإعداد‬ ‫قم‬Form.‫رقمين‬ ‫مجموع‬ ‫لحساب‬ ‫التالية‬
1-‫التحكم‬ ‫عدوات‬ ‫باستخدال‬ ‫التالية‬ ‫الواجهة‬ ‫بتصميم‬ ‫قم‬

11
2-‫على‬ ‫ط‬ ‫بالض‬ ‫الكود‬ ‫نافذة‬ ‫افتح‬F7: ‫التالى‬ ‫الكود‬ ‫واكتب‬ ‫المفاتيح‬ ‫لوحة‬ ‫من‬
Public Class Form1
Function Sum (ByVal First As Single, ByVal Second As Single) As Single
Dim Total As Single
Total = First + Second
Return Total
End Class
-‫الدالة‬ ‫عن‬ ‫عالن‬ ‫ا‬ ‫تم‬Sum‫النوع‬ ‫من‬Single‫قيمتين‬ ‫تستقبل‬ ‫بحي‬First,Second.
-‫اال‬ ‫ام‬‫ا‬‫وت‬‫ار‬‫ا‬‫ي‬ ‫مت‬ ‫ان‬‫ا‬‫ع‬ ‫االن‬‫ا‬‫ع‬Total‫ان‬‫ا‬‫م‬‫اوع‬‫ا‬‫الن‬Single‫اين‬‫ا‬‫القيمت‬ ‫اع‬‫ا‬‫جم‬ ‫ااتج‬‫ا‬‫ن‬ ‫اه‬‫ا‬‫ل‬ ‫اص‬‫ا‬‫وخص‬First ,
Second‫القيمة‬ ‫الرجاع‬Total‫باستخدال‬Return.
1-‫الحد‬ ‫إجراء‬ ‫إنشاء‬ ‫يتم‬Button1_Click: ‫التالى‬ ‫الكود‬ ‫وكتابة‬
Dim X As Single = TextBox1.Text
Dim Y As Single = TextBox2.Text
Label4.Text= Sum ( X , Y)
End Sub
*‫ارين‬‫ا‬‫ي‬ ‫المت‬ ‫ان‬‫ا‬‫ع‬ ‫االن‬‫ا‬‫ع‬ ‫ا‬ ‫ام‬‫ا‬‫ت‬X, Y‫انص‬‫ا‬‫ال‬ ‫اناديع‬‫ا‬‫ص‬ ‫اى‬‫ا‬‫ف‬ ‫اا‬‫ا‬‫منهم‬ ‫ال‬‫ا‬‫لك‬ ‫اتخدل‬‫ا‬‫المس‬ ‫ادخالت‬‫ا‬‫م‬ ‫ايص‬‫ا‬‫وتخص‬
TextBox‫اة‬‫ا‬‫الدال‬ ‫اة‬‫ا‬‫قيم‬ ‫ايص‬‫ا‬‫تخص‬ ‫ام‬‫ا‬‫ت‬ ‫اع‬‫ا‬‫الجم‬ ‫ااتج‬‫ا‬‫ن‬ ‫ارم‬‫ا‬‫ولع‬Sum‫اية‬‫ا‬‫للخاص‬Text‫اأداة‬‫ا‬‫ب‬ ‫اة‬‫ا‬‫الخاص‬
‫التحكم‬Label4‫القيمتين‬ ‫استقبال‬ ‫بعد‬X,Y.
‫الح‬‫ظ‬‫اآلتى‬:
‫يرات‬ ‫المت‬ *Variables‫اثنااء‬ ‫عو‬ ‫التصاميم‬ ‫اع‬ ‫و‬ ‫فاى‬ ‫عنهاا‬ ‫عاالن‬ ‫ا‬ ‫اثنااء‬ ‫لهاا‬ ‫قيماة‬ ‫تخصايص‬ ‫يمكن‬
.‫بها‬ ‫المخزنة‬ ‫القيم‬ ‫واستخدال‬ ‫البرنامج‬ ‫يل‬ ‫تش‬
‫واباات‬ ‫ال‬ *Constants‫ااط‬‫ا‬‫فق‬ ‫ااميم‬‫ا‬‫التص‬ ‫ااط‬‫ا‬‫نم‬ ‫ااى‬‫ا‬‫ف‬ ‫ااا‬‫ا‬‫عنه‬ ‫ااالن‬‫ا‬‫ع‬ ‫ا‬ ‫اااء‬‫ا‬‫اثن‬ ‫لهااا‬ ‫ااة‬‫ا‬‫قيم‬ ‫اايص‬‫ا‬‫تخص‬ ‫اان‬‫ا‬‫يمك‬
.‫بها‬ ‫المخزنة‬ ‫القيم‬ ‫واستخدامها‬
‫الدوال‬ *Function‫ل‬ ‫قيم‬ ‫تخصيص‬ ‫يمكن‬‫بهاا‬ ‫تخازن‬ ‫قيماة‬ ‫فيناتج‬ ‫باسامها‬ ‫الدالاة‬ ‫تساتدعى‬ ‫ولكان‬ ‫هاا‬
*
*
*.
.‫دالة‬ ‫عو‬ ‫ثابت‬ ‫عو‬ ‫ير‬ ‫مت‬ ‫عو‬ ‫مجردة‬ ‫قيمة‬ ‫يكون‬ ‫عن‬ ‫يمكن‬ Procedures ‫االجراءات‬ ‫وسيط‬
.‫نتائجها‬ ‫على‬ ‫للحصول‬ ‫التخصيص‬ ‫معادلة‬ ‫من‬ ‫األيمن‬ ‫الطرف‬ ‫فى‬ ‫تستخدل‬ Function ‫الدوال‬ ‫جميع‬
‫نهائيا‬ ‫تخصيص‬ ‫جملة‬ ‫فى‬ ‫تستخدل‬ Sub ‫االجراءات‬
.Sub ‫النوع‬ ‫من‬ ‫إجراء‬ ‫هو‬ Event Procedure ‫الحد‬ ‫إجراء‬ *

14
‫الفصل‬ ‫على‬ ‫أسئلة‬‫واإلجراءات‬ ‫التكرار‬ ‫الثالث‬Loops & Procedures
‫س‬1: ‫التالى‬ ‫بالكود‬ ‫مستعينا‬ ‫األسئلة‬ ‫عن‬ ‫عجب‬ :
1-‫على‬ ‫ط‬ ‫الض‬ ‫يتم‬ ‫عندما‬ ‫الكود‬ ‫تنفيذ‬ ‫يتم‬..............................‫التحكم‬ ‫عداة‬ ‫على‬....................
2-‫األمر‬ ‫استخدال‬ ‫تم‬Dim‫ير‬ ‫(مت‬ ‫عن‬ ‫عالن‬ ‫ل‬-‫نوع‬ ‫من‬ )‫ثابت‬........................................
1-‫هو‬ ‫التكرارية‬ ‫الحلقة‬ ‫فى‬ ‫المستخدل‬ ‫ير‬ ‫المت‬ ‫اسم‬........................................
4-‫ال‬ ‫بداية‬ ‫قيمة‬‫التكرارية‬ ‫حلقة‬................‫النهاية‬ ‫وقيمة‬.................‫الزيادة‬ ‫وقيمة‬.................
2-‫ير‬ ‫المت‬ ‫قيمة‬ ‫تصل‬ ‫عندما‬ ‫التكرارية‬ ‫الحلقة‬ ‫تنفيذ‬ ‫يتوقف‬M‫إلى‬........................................
1-‫هو‬ ‫تكراره‬ ‫يتم‬ ‫الذى‬ ‫الكود‬......................................................................................
‫س‬2: ‫التالى‬ ‫بالكود‬ ‫مستعينا‬ ‫األسئلة‬ ‫عن‬ ‫عجب‬ :
1-‫الكود‬ ‫من‬ ‫رم‬ ‫ال‬.................................................................................................
2-‫يقع‬ ‫عندما‬ ‫الكود‬ ‫تنفيذ‬ ‫يتم‬‫الحد‬..................................‫التحكم‬ ‫عداة‬ ‫على‬........................
1-‫ير‬ ‫المت‬ ‫عن‬ ‫عالن‬ ‫ل‬(M)‫األمر‬ ‫استخدال‬ ‫تم‬..................................................................
4-‫هى‬ ‫المستخدمة‬ ‫التكرار‬ ‫جملة‬...................................................................................
2-‫هو‬ ‫تكراره‬ ‫المراد‬ ‫الكود‬..........................................................................................
1-‫الجملة‬ ‫فى‬ ‫الربط‬ ‫معامل‬ ‫استخدال‬ ‫من‬ ‫رم‬ ‫ال‬:
Me.Label1.Text=Me.Label1.Text & M
Dim M As Integer
For M = 1 to 3
MsgBox (M)
Next
End Sub
Dim M As Integer
Me.Label1.Text = " "
For M = 2 to 9 Step 2
Me.Label1.Text=Me.Label1.Text & M
Next M
………………...…………….
MsgBox("‫البرنامج‬ ‫)"انتهى‬
End Sub
....................................................................................................................... ‫هو‬
‫الحلقة‬ ‫تنفيذ‬ ‫بعد‬ (M) ‫ير‬ ‫للمت‬ ‫النهائية‬ ‫القيمة‬ ‫الظهار‬ ‫مة‬ ‫الال‬ ‫الكود‬ ‫جملة‬ ‫النقط‬ ‫مكان‬ ‫عكتب‬ -7
‫رسالة‬ ‫صندوق‬ ‫مربع‬ ‫فى‬ ‫التكرارية‬.............................................................................

12
‫س‬1( ‫عالمة‬ ‫ع‬ :‫عالمة‬ ‫عو‬ ))×(:‫التالى‬ ‫بالكود‬ ‫مستعينا‬ ‫جملة‬ ‫كل‬ ‫عمال‬
1-‫هو‬ ‫الكود‬ ‫هذا‬ ‫من‬ ‫رم‬ ‫ال‬.........................................................................
2-‫الكود‬ ‫من‬ ‫رم‬ ‫ال‬Dim Str As String‫باسم‬ ‫حرفى‬ ‫ير‬ ‫مت‬ ‫عن‬ ‫عالن‬ ‫ا‬Str()
1-‫الكود‬ ‫من‬ ‫رم‬ ‫ال‬Product = 3 * N‫الرقم‬ ‫رب‬ ‫ناتج‬ ‫تخصيص‬ ‫هو‬1‫ير‬ ‫المت‬ ‫فى‬N‫ير‬ ‫للمت‬
Product()
4-‫الكود‬ ‫من‬ ‫رم‬ ‫ال‬Product = 3*N‫الرقم‬ ‫رب‬ ‫ناتج‬ ‫تخصيص‬1‫ير‬ ‫المت‬ ‫فى‬Product
‫ير‬ ‫للمت‬N()
2-:‫التالى‬ ‫الكود‬ ‫من‬ ‫رم‬ ‫ال‬
Me.TextBox1.Text = Me.TextBox1.Text & Str & Product & vbCrlf
‫النصىى‬ ‫ير‬ ‫المت‬ ‫قيمة‬ ‫ع‬ ‫و‬ ‫هو‬Str‫ير‬ ‫المت‬ ‫وناتج‬Product‫للخاصية‬ ‫كقيمة‬Text‫النص‬ ‫لصندوق‬
textBox1()
1-‫الكود‬ ‫جزء‬ ‫من‬ ‫رم‬ ‫ال‬vbCrlf‫جديد‬ ‫سطر‬ ‫إلى‬ ‫نتقال‬ ‫ا‬ ‫هو‬()
‫س‬4( ‫للعدد‬ ‫األعداد‬ ‫جدول‬ ‫لطباعة‬ ‫التالى‬ ‫الكود‬ :4( ‫من‬ )1‫إلى‬ )(12)
:‫المطلوب‬( ‫للعدد‬ ‫األعداد‬ ‫جدول‬ ‫يطبع‬ ‫بحي‬ ‫التالى‬ ‫الكود‬ ‫عدل‬7‫صندوق‬ ‫فى‬ ‫الناتج‬ ‫يكون‬ ‫بحي‬ ).‫نص‬
Dim N , Product As Integer
Dim Str As String
Me.TextBox1.Text = " "
For N = 1 to 12
Str = 3 & "x" & N & "="
Product = 4 * N
Me. TextBox.Text = Me. TextBox.Text & Str & Product & vbCrlf
Next N
End Sub
Dim N , Product As Integer
Dim Str As String
For N = 1 to 12
Str = 4 & "×" & N & "="
Product = 4 * N
Next N
End Sub

11
‫س‬2( ‫للعدد‬ ‫األعداد‬ ‫جدول‬ ‫لطباعة‬ ‫التالى‬ ‫الكود‬ :1( ‫من‬ )1( ‫إلى‬ )11)
:‫المطلوب‬‫للكود‬ ‫صحيحة‬ ‫يل‬ ‫تش‬ ‫نتيجة‬ ‫على‬ ‫نحصل‬ ‫حتى‬ ‫بالكود‬ ‫األربعة‬ ‫األخطاء‬ ‫صوب‬
No ‫الخطأ‬ ‫الكود‬ ‫التصويب‬ ‫بعد‬ ‫الكود‬
1 …..……………………………… …..………………………………
2 …..……………………………… …..………………………………
3 …..……………………………… …..………………………………
4 …..……………………………… …..………………………………
‫س‬1‫الضارب‬ ‫جادول‬ ‫لطباعاة‬ ‫الكاود‬ ‫يل‬ ‫بتشا‬ ‫الخاصاة‬ ‫النماوذج‬ ‫ونافذة‬ ‫الكود‬ ‫على‬ ‫يحتوى‬ ‫التالى‬ ‫الجدول‬ :
( ‫من‬ ‫عدد‬ ‫ألى‬1( ‫إلى‬ )12)
‫المطلوب‬.‫البرنامج‬ ‫يل‬ ‫تش‬ ‫بعد‬ ‫صحيح‬ ‫ناتج‬ ‫على‬ ‫لنحصل‬ ‫بالجدول‬ ‫للكود‬ ‫النقط‬ ‫مكان‬ ‫عكمل‬ :
Dim N , Product As String
Dim Str As String
For N = 1 to 12 Step -1
Str = 9 & "×" & N & "="
Product = 9 + N
Next Str
End Sub
Dim M , Product , Num As Integer
Dim Str As String
Num = Me.TextBox1.Text
For M = 1 to 12
…………… = Num & "×" & N & "="
Product = Num * ……………
Me. TextBox.Text = Me. TextBox.Text _
& Str & Product & vbCrlf
Next M
End Sub

17
‫س‬7‫بالكو‬ ‫مستعينا‬ ‫األسئلة‬ ‫عن‬ ‫عجب‬ :: ‫التالى‬ ‫د‬
1-‫هو‬ ‫الكود‬ ‫من‬ ‫رم‬ ‫ال‬....................................................................................
2-‫هو‬ ‫العداد‬ ‫ير‬ ‫مت‬ ‫اسم‬.....................................................................................
1-‫التكرارية‬ ‫الحلقة‬ ‫تبدع‬‫بالقيمة‬...........................................................................
4-‫القيمة‬ ‫عند‬ ‫التكرارية‬ ‫الحلقة‬ ‫تنتهى‬....................................................................
2-‫العداد‬ ‫فى‬ ‫الزيادة‬ ‫قيمة‬....................................................................................
1-‫من‬ ‫رم‬ ‫ال‬vbCrlf‫هو‬................................................................................
‫س‬8‫األعاداد‬ ‫يطباع‬ "‫فردية‬ ‫"ععداد‬ ‫ر‬ ‫على‬ ‫ط‬ ‫الض‬ ‫وعند‬ ،‫موجب‬ ‫عدد‬ ‫إدخال‬ ‫فى‬ ‫يستخدل‬ ‫التالى‬ ‫الكود‬ :
( ‫من‬ ‫الفردية‬1‫حتى‬ )‫يطباع‬ "‫وجياة‬ ‫"ععاداد‬ ‫علاى‬ ‫ط‬ ‫الضا‬ ‫تام‬ ‫وإذا‬ ،‫إدخالاه‬ ‫تام‬ ‫الاذى‬ ‫الموجب‬ ‫العدد‬
( ‫من‬ ‫الزوجية‬ ‫األعداد‬2.‫النص‬ ‫صندوق‬ ‫فى‬ ‫إدخاله‬ ‫تم‬ ‫الذى‬ ‫الموجب‬ ‫العدد‬ ‫حتى‬ )
1-‫هى‬ ‫البرنامج‬ ‫فى‬ ‫التكرار‬ ‫جملة‬...............................................................................
2-‫الكود‬ ‫من‬ ‫رم‬ ‫ال‬( I = I + 2)‫هو‬ ‫األخير‬ ‫قبل‬ ‫السطر‬ ‫فى‬.............................................
1-‫من‬ ‫رم‬ ‫ال‬Loop‫هو‬........................................................................................
4-‫من‬ ‫جزء‬ ‫كل‬ ‫طبيعة‬ ‫لتحديد‬ ‫الصحيح‬ ‫ختيار‬ ‫ا‬ ‫حدد‬: ‫التالى‬ ‫الكود‬ ‫سطر‬ ‫مكونات‬
ListBox1.Items.Clear ( )
ListBox1 ( ‫تحكم‬ ‫عداة‬-‫ير‬ ‫مت‬ ) Items ‫(ثابت‬-)‫خاصية‬ Clear ‫(وسيلة‬-)‫خاصية‬
‫س‬1‫النص‬ ‫صندوق‬ ‫فى‬ ‫الفردية‬ ‫األعداد‬ ‫مجموع‬ ‫فيظهر‬ ‫موجب‬ ‫عدد‬ ‫إدخال‬ ‫التالى‬ ‫الكود‬ ‫من‬ ‫رم‬ ‫ال‬ :
For I = 1 To B Step C
Next
ListBox1.Items.Clear ( )
I = 1
Do While I < = N
ListBox1.Items.Add ( I )
I = I + 2
Loop
I = 1
Do While
I <
= N
Sum = Sum + I
I = I + 2
Loop

18
‫س‬11‫التالى‬ ‫بالكود‬ ‫مستعينا‬ ‫عكمل‬ :
1-‫هو‬ ‫االجراء‬ ‫اسم‬...................................................................................................
2-‫عن‬ ‫االعالن‬ ‫تم‬Parameter‫باسم‬...............................‫ونوعه‬.................................
1-‫م‬ ‫تبدع‬ ‫التكرارية‬ ‫الحلقة‬‫القيمة‬ ‫ن‬................................................................................
4-‫تساوى‬ ‫التكرارية‬ ‫الحلقة‬ ‫فى‬ ‫الزيادة‬ ‫قيمة‬....................................................................
2-‫القيمة‬ ‫من‬ ‫بدء‬ ‫الكود‬ ‫لتنفيذ‬ ‫االجراء‬ ‫استدعاء‬ ‫عند‬.........................................................
‫س‬11‫التالى‬ ‫بالكود‬ ‫مستعينا‬ ‫التالى‬ ‫عكمل‬ :
1-‫هو‬ ‫الدالة‬ ‫اسم‬......................................................................................................
2-‫م‬ ‫الراجعة‬ ‫بالقيمة‬ ‫الخاب‬ ‫البيان‬ ‫نوع‬‫الدالة‬ ‫ن‬...............................................................
1-‫الوسائط‬Parameters‫الكود‬ ‫فى‬ ‫تستخدل‬ ‫سوف‬ ‫التى‬...................................................
4-‫هى‬ ‫الدالة‬ ‫من‬ ‫الراجعة‬ ‫القيمة‬...................................................................................
‫س‬12:( ‫عالمة‬ ‫ضع‬‫وعالمة‬ ‫الصحيحة‬ ‫العبارة‬ ‫أمام‬ ))×(: ‫الخطأ‬ ‫العبارة‬ ‫أمام‬
1-‫االجراء‬Procedure‫من‬ ‫محدد‬ ‫عدد‬ ‫تكرارها‬ ‫يتم‬ ‫وتعليمات‬ ‫اوامر‬ ‫من‬ ‫مجموعة‬ ‫عن‬ ‫عبارة‬
.‫المرات‬()
2-‫االجراء‬Procedure‫من‬ ‫مجموعة‬ ‫عن‬ ‫عبارة‬‫وعند‬ ،‫معين‬ ‫اسم‬ ‫تحت‬ ‫والتعليمات‬ ‫األوامر‬
.‫والتعليمات‬ ‫األوامر‬ ‫هذه‬ ‫تنفيذ‬ ‫يتم‬ ‫سم‬ ‫ا‬ ‫هذا‬ ‫استدعاء‬()
1-‫االجراءات‬ ‫استخدال‬ ‫من‬ ‫رم‬ ‫ال‬Procedures‫البرنامج‬ ‫فى‬ ‫مرات‬ ‫عدة‬ ‫معين‬ ‫كود‬ ‫كتابة‬ ‫تكرار‬ ‫هو‬()
Dim I As Integer
Label1.Text = " "
For I = Start To 10 Step 2
Label1.Text= Label1.Text & " " & I
Next
End Sub
Function XXX (ByVal As Integer, ByVal ZZZ As Integer) As Single
Code
Return RRR
End Function

11
4-‫ع‬ ‫مو‬ ‫من‬ ‫ر‬ ‫عك‬ ‫فى‬ ‫تكراره‬ ‫فى‬ ‫نرغب‬ ‫معين‬ ‫كود‬ ‫لدينا‬ ‫يكون‬ ‫عندما‬‫الدالة‬ ‫نستخدل‬ ‫التصنيف‬ ‫داخل‬
Function()
2-‫عليها‬ ‫نطلع‬ ‫بقيمة‬ ‫تعود‬ ‫تنفيذها‬ ‫وعند‬ ،‫اسم‬ ‫تحت‬ ‫عها‬ ‫و‬ ‫يتم‬ ‫التى‬ ‫والتعليمات‬ ‫األوامر‬ ‫مجموعة‬
‫إجراء‬Procedure()
1-‫تعو‬ ‫تنفيذها‬ ‫وعند‬ ،‫اسم‬ ‫تحت‬ ‫عها‬ ‫و‬ ‫يتم‬ ‫التى‬ ‫والتعليمات‬ ‫األوامر‬ ‫مجموعة‬‫دالة‬ ‫عليها‬ ‫نطلع‬ ‫بقيمة‬ ‫د‬
Function()
7-‫إجراء‬ ‫نستخدل‬ ‫التصنيف‬ ‫داخل‬ ‫ع‬ ‫مو‬ ‫من‬ ‫ر‬ ‫عك‬ ‫فى‬ ‫تكراره‬ ‫فى‬ ‫نرغب‬ ‫معين‬ ‫كود‬ ‫لدينا‬ ‫يكون‬ ‫عندما‬
Procedure()
8-‫وسائط‬ ‫نستخدل‬Parameters‫االجراء‬ ‫استدعاء‬ ‫عند‬ ‫االجراء‬ ‫خارج‬ ‫من‬ ‫قيم‬ ‫ستقبال‬()
1-‫باسم‬ ‫إجراء‬ ‫استدعاء‬ ‫عند‬Taxes (0.05)‫معامالت‬ ‫عليها‬ ‫يطلع‬ ‫القوسين‬ ‫بين‬ ‫القيمة‬ ‫فإن‬
Argument()
11-‫باسم‬ ‫إجراء‬ ‫استدعاء‬ ‫عند‬Taxes (0.05)‫فإن‬Taxes‫عليها‬ ‫يطلع‬Argument()
11-‫بـ‬ ‫يبدع‬ ‫دالة‬ ‫عن‬ ‫االعالن‬Sub‫بـ‬ ‫وينتهى‬End Sub()
12-‫بـ‬ ‫يبدع‬ ‫دالة‬ ‫عن‬ ‫االعالن‬Function‫بـ‬ ‫وينتهى‬End Function()
11-‫الدالة‬ ‫ستخدال‬ ‫نلجأ‬Function‫نحتاجها‬ ‫قيمة‬ ‫عنه‬ ‫سينتج‬ ‫كود‬ ‫لدينا‬ ‫كان‬ ‫إذا‬()
14-‫االجراء‬ ‫ستخدال‬ ‫نلجأ‬Procedure‫نحتاجها‬ ‫قيمة‬ ‫عنه‬ ‫سينتج‬ ‫كود‬ ‫لدينا‬ ‫كان‬ ‫إذا‬()
12-‫عن‬ ‫عبارة‬ ‫الدالة‬‫وسائط‬ ‫تأخذ‬ ‫عن‬ ‫يمكن‬ ‫معين‬ ‫باسم‬ ‫والتعليمات‬ ‫األوامر‬ ‫من‬ ‫مجموعة‬
Parameters‫راجعة‬ ‫بقيمة‬ ‫وتعود‬Value()
11-‫وسائط‬ ‫تأخذ‬ ‫عن‬ ‫يمكن‬ ‫معين‬ ‫باسم‬ ‫والتعليمات‬ ‫األوامر‬ ‫من‬ ‫مجموعة‬ ‫عن‬ ‫عبارة‬ ‫الدالة‬Values
‫راجعة‬ ‫بقيمة‬ ‫وتعود‬Parameters()
17-‫ل‬ ‫على‬ ‫يؤخذ‬‫ة‬V.B.Net‫يعدها‬ ‫عخرى‬ ‫وإجراءات‬ ‫دوال‬ ‫عن‬ ‫االعالن‬ ‫للمبرمج‬ ‫سمحت‬ ‫عنها‬
‫بنفسه‬ ‫المبرمج‬()
18-‫الحسابى‬ ‫المعامل‬ ‫باستعمال‬Mod‫التعبير‬ ‫فى‬(10 Mod 3)‫الناتج‬ ‫يكون‬1()
11-‫كلمة‬Me‫الحالى‬ ‫النموذج‬ ‫إلى‬ ‫وتشير‬ ‫ة‬ ‫المحجو‬ ‫الكلمات‬ ‫من‬()
21-‫الع‬‫المة‬&‫التخصيص‬ ‫لجملة‬ ‫كمعامل‬ ‫تستخدل‬()
‫س‬13: ‫يأتى‬ ‫مما‬ ‫لكل‬ ‫العلمى‬ ‫المفهوم‬ ‫أكتب‬ :
1-. ‫نتباه‬ ‫ا‬ ‫ة‬ ‫وحيا‬ ،‫النص‬ ‫صندوق‬ ‫داخل‬ ‫الفأرة‬ ‫مؤشر‬ ‫لتركيز‬ ‫تستخدل‬ ‫دالة‬
2-.‫التكرار‬ ‫مرات‬ ‫عدد‬ ‫لحساب‬ ‫يستخدل‬ ‫رقمى‬ ‫ير‬ ‫مت‬
1-‫مرات‬ ‫عدد‬ ‫معرفة‬ ‫حالة‬ ‫فى‬ ‫تستخدل‬ ‫التى‬ ‫التكرار‬ ‫جملة‬.‫مسبقا‬ ‫التكرار‬
4-.‫معين‬ ‫شرط‬ ‫يتحقع‬ ‫عن‬ ‫إلى‬ ‫ر‬ ‫عك‬ ‫عو‬ ‫مرة‬ ‫ر‬ ‫عك‬ ‫عو‬ ‫عمر‬ ‫تنفيذ‬ ‫فى‬ ‫تتحكم‬ ‫عوامر‬
2-‫عداة‬ ‫داخل‬ ‫المحدد‬ ‫العنصر‬ ‫رقم‬ ‫لمعرفة‬ ‫تستخدل‬ ‫خاصية‬ListBox.
1-.‫قيمة‬ ‫عنها‬ ‫فينتج‬ ‫تستدعى‬ ‫وتعليمات‬ ‫عوامر‬ ‫مجموعة‬ ‫عن‬ ‫عبارة‬

41
7-‫ة‬ ‫ل‬ ‫فى‬ ‫ة‬ ‫محجو‬ ‫كلمة‬V.B.Net‫سطر‬ ‫النشاء‬ ‫تستخدل‬.‫جديد‬
8-.‫آخر‬ ‫بيان‬ ‫عو‬ ‫ير‬ ‫مت‬ ‫عو‬ ‫خاصية‬ ‫قيمة‬ ‫على‬ ‫بناء‬ ‫خطأ‬ ‫عو‬ ‫صواب‬ ‫ناتجه‬ ‫يكون‬ ‫البرمجة‬ ‫كود‬ ‫من‬ ‫جزء‬
1-‫عندما‬ ‫التكرار‬ ‫ويتوقف‬ ‫المرات‬ ‫من‬ ‫مسبقا‬ ‫معروف‬ ‫غير‬ ‫عدد‬ ‫معين‬ ‫كود‬ ‫لتكرار‬ ‫تستخدل‬ ‫تكرار‬ ‫جملة‬
.‫خطأ‬ ‫الشرط‬ ‫يصبح‬
11-‫ة‬ ‫ل‬ ‫فى‬ ‫وابت‬ ‫ال‬ ‫إعالن‬ ‫فى‬ ‫تستخدل‬ ‫جملة‬V.B.Net
‫ا‬ ‫الفصل‬‫اإللكترونى‬ ‫التعدى‬ : ‫لرابع‬Cyber Bullying
‫تهام‬ ‫التاى‬ ‫وعات‬ ‫المو‬ ‫من‬ ‫ت‬ ‫تصا‬ ‫وا‬ ‫المعلومات‬ ‫وسائل‬ ‫كافة‬ ‫مع‬ ‫نترنت‬ ‫ا‬ ‫مع‬ ‫التعامل‬ ‫اخالقيات‬ ‫تعد‬ *
.‫نترنت‬ ‫ا‬ ‫مع‬ ‫التعامل‬ ‫خالل‬ ‫من‬ ‫سلبية‬ ‫وعخرى‬ ‫إيجابية‬ ‫جوانب‬ ‫وهناك‬ ‫والمجتمعات‬ ‫األفراد‬
‫نترنت‬ ‫ل‬ ‫االيجابية‬ ‫الجوانب‬ : ‫عو‬
1-‫التعل‬‫م‬2-‫قيف‬ ‫الت‬1-‫التسلية‬4-‫ال‬‫و‬ ‫تواصل‬‫ال‬‫تحاور‬
‫نترنت‬ ‫ل‬ ‫السلبية‬ ‫الجوانب‬ :‫ثانيا‬
1-‫خطأ‬ ‫معلومات‬ ‫على‬ ‫الحصول‬.
2-.‫االلكترونية‬ ‫تصال‬ ‫ا‬ ‫وسائط‬ ‫عبر‬ ‫المعتدين‬ ‫لبعف‬ ‫فريسة‬ ‫نقع‬
1-‫الخصوصية‬ ‫انتهاك‬.
4-‫الشخصية‬ ‫انتحال‬.
2-‫جتما‬ ‫ا‬ ‫التواصل‬ ‫مواقع‬ ‫على‬ ‫حاسبنا‬ ‫سرقة‬‫عى‬Face book‫االلكترونى‬ ‫البريد‬ ‫عو‬E-Mail
1-.‫القرصنة‬ ‫برامج‬ ‫عو‬ ‫التجسس‬ ‫برامج‬ ‫عو‬ ‫بالفيروسات‬ ‫االصابة‬ ‫لمخاطر‬ ‫نا‬ ‫جها‬ ‫تعرم‬
‫اإللكترونى‬ ‫التعدى‬ ‫تعريف‬
.‫لكترونية‬ ‫ا‬ ‫تصال‬ ‫ا‬ ‫وسائل‬ ‫عبر‬ ‫آلخر‬ ‫شخص‬ ‫من‬ ‫متعمد‬ ‫عدوانى‬ ‫سلوك‬ ‫عن‬ ‫عبارة‬ ‫هو‬
:‫أوال‬‫اإللكترونى‬ ‫التعدى‬ ‫أشكال‬
1-‫التحرش‬2-‫المضايقة‬1-‫االحراج‬
4-‫التخويف‬2-‫التهديد‬1-‫بتزا‬ ‫ا‬
‫االلكترونية‬ ‫الوسائط‬ :‫ثانيا‬
‫يلى‬ ‫ما‬ ‫ومنها‬ ‫يرة‬ ‫ك‬ ‫وهى‬ ‫االلكترونى‬ ‫المعتدى‬ ‫يستخدمها‬ ‫التى‬ ‫التقنيات‬ ‫عن‬ ‫عبارة‬ ‫هى‬:-
1-‫االلكترونى‬ ‫البريد‬Email
2-‫االلكترونية‬ ‫المنتديات‬Forums
1-‫الفورية‬ ‫الرسائل‬Instant Message
4-‫االلكترونية‬ ‫المدونات‬Blogger
2-‫جتماعى‬ ‫ا‬ ‫التواصل‬ ‫مواقع‬Face book

41
‫اإللكترونى‬ ‫التعدى‬ ‫أشكال‬ :
ً
‫ثالثا‬
1-‫االلكترونى‬ ‫التخفى‬Anonymity
‫اره‬‫ا‬‫عم‬ ‫اف‬‫ا‬‫كش‬ ‫ادل‬‫ا‬‫ع‬ ‫ارم‬‫ا‬ ‫ب‬ ‫اى‬‫ا‬‫االلكترون‬ ‫ادى‬‫ا‬‫المتع‬ ‫اية‬‫ا‬‫شخص‬ ‫اى‬‫ا‬‫تخف‬ ‫اتعارة‬‫ا‬‫مس‬ ‫اماء‬‫ا‬‫عس‬ ‫اتخدال‬‫ا‬‫اس‬ ‫ان‬‫ا‬‫ع‬ ‫اارة‬‫ا‬‫عب‬
‫وا‬.‫العقاب‬ ‫من‬ ‫الفالت‬
2-‫االلكترونية‬ ‫المضايقات‬Harassment
.‫ر‬ ‫عك‬ ‫او‬ ‫شخص‬ ‫د‬ ‫موجهة‬ ‫عدائية‬ ‫رسائل‬ ‫عن‬ ‫عبارة‬
1-‫االلكترونية‬ ‫المالحقة‬Cyber Stalking
‫فاى‬ ‫معاين‬ ‫شاخص‬ ‫المعتادى‬ ‫يتتباع‬ ‫حيا‬ ‫متكارر‬ ‫بشاكل‬ ‫لكان‬ ‫االلكترونياة‬ ‫المضاايقات‬ ‫عشكال‬ ‫من‬ ‫شكل‬ ‫هى‬
.‫ويالحقه‬ ‫لكترونية‬ ‫ا‬ ‫الوسائط‬ ‫كافة‬
4-‫االلكترونى‬ ‫والقذف‬ ‫السب‬Flaming
.‫االلكترونية‬ ‫تصال‬ ‫ا‬ ‫وسائط‬ ‫عحد‬ ‫خالل‬ ‫من‬ ‫ر‬ ‫عك‬ ‫عو‬ ‫شخص‬ ‫د‬ ‫ومبتذلة‬ ‫عدائية‬ ‫كلمات‬ ‫نشر‬ ‫عن‬ ‫عبارة‬
2-‫االلكترونى‬ ‫التشهير‬Outing
‫بشكل‬ ‫ر‬ ‫عك‬ ‫عو‬ ‫محدد‬ ‫شخص‬ ‫عن‬ ‫معلومات‬ ‫نشر‬ ‫عن‬ ‫عبارة‬‫مسيء‬.
1-‫االلكترونى‬ ‫ناء‬ ‫ست‬ ‫ا‬Exclusion
‫تجاهل‬ ‫عن‬ ‫عبارة‬.‫إلكترونية‬ ‫وسائط‬ ‫خالل‬ ‫من‬ ‫ر‬ ‫عك‬ ‫عو‬ ‫شخص‬
7-‫االلكترونى‬ ‫التهديد‬Cyber threats
.‫ر‬ ‫عك‬ ‫عو‬ ‫لشخص‬ ‫وعيد‬ ‫عو‬ ‫تهديد‬ ‫تحمل‬ ‫إلكترونية‬ ‫رسائل‬ ‫إرسال‬ ‫عن‬ ‫عبارة‬
‫اإللكترونى‬ ‫التعدى‬ ‫من‬ ‫نفسك‬ ‫تحمى‬ ‫كيف‬ :
ً
‫رابعا‬
1-.‫السر‬ ‫بكلمة‬ ‫عحدا‬ ‫تشارك‬
2-.‫استنتاجها‬ ‫يصعب‬ ‫مرور‬ ‫كلمة‬ ‫إعداد‬
1-‫عدل‬.‫خاصة‬ ‫بيانات‬ ‫عى‬ ‫نشر‬
4-.‫التعدى‬ ‫رسائل‬ ‫حذف‬ ‫تجنب‬
2-.‫االنترنت‬ ‫خالل‬ ‫من‬ ‫عليه‬ ‫تعرفت‬ ‫عحد‬ ‫مقابلة‬ ‫عدل‬
1-.‫ب‬ ‫غا‬ ‫وعنت‬ ‫إلكترونية‬ ‫رسائل‬ ‫إرسال‬ ‫من‬ ‫حاذر‬
7-.‫االنترنت‬ ‫استخدال‬ ‫عند‬ ‫يضايقح‬ ‫بمن‬ ‫األمر‬ ‫ولى‬ ‫إطالع‬
8-.‫عمرك‬ ‫ولى‬ ‫عو‬ ‫معلمح‬ ‫إشراف‬ ‫تحت‬ ‫يكون‬ ‫االنترنت‬ ‫من‬ ‫البرامج‬ ‫إنزال‬
‫أهمية‬ ‫توضح‬ ‫حياتية‬ ‫مواقف‬‫االلتزام‬‫لإلنترنت‬ ‫اآلمن‬ ‫االستخدام‬ ‫بقواعد‬
1-‫عن‬ ‫الممكن‬ ‫من‬ ‫هل‬ ‫إلكترونى‬ ‫بريد‬ ‫حساب‬ ‫عندى‬ ‫ليس‬ ‫لصديع‬ ‫عرسل‬ ‫عن‬ ‫عريد‬ ‫لياسين‬ ‫عمرو‬ ‫قال‬
.‫الرسالة‬ ‫هذه‬ ‫إرسال‬ ‫من‬ ‫عتمكن‬ ‫حتى‬ ‫بح‬ ‫الخاصين‬ ‫المرور‬ ‫وكلمة‬ ‫المستخدل‬ ‫اسم‬ ‫تعطينى‬
‫؟‬ ‫تفعل‬ ‫ماذا‬ ‫رعيح‬ ‫فى‬ *
‫االجابة‬.‫السر‬ ‫كلمة‬ ‫عحد‬ ‫تشارك‬ :

42
2-‫كتبت‬ ‫بأن‬ ‫المرور‬ ‫كلمة‬ ‫استنتاج‬ ‫ياسمين‬ ‫فحاولت‬ ‫به‬ ‫خاب‬ ‫إلكترونى‬ ‫بريد‬ ‫حساب‬ ‫بإنشاء‬ ‫عمرو‬ ‫قال‬
.‫الحساب‬ ‫ففتح‬ ‫ميالده‬ ‫سنة‬ ‫ثم‬ ‫اسمه‬
‫ذلح؟‬ ‫يتجنب‬ ‫وكيف‬ ‫؟‬ ‫عمرو‬ ‫فيع‬ ‫وقع‬ ‫الذى‬ ‫الخطأ‬ ‫ما‬ ‫رعيح‬ ‫فى‬ *
‫االجابة‬‫ذلح‬ ‫ولتجنب‬ ،‫استنتاجها‬ ‫يسهل‬ ‫سر‬ ‫كلمة‬ ‫اختار‬ :‫عالية‬ ‫صعوبة‬ ‫درجة‬ ‫ذات‬ ‫كلمة‬ ‫اختيار‬ ‫عليه‬
‫من‬ ‫ر‬ ‫وعك‬ ،‫خاصة‬ ‫وعالمات‬ ‫وحروف‬ ‫عرقال‬ ‫على‬ ‫تحتوى‬8.‫فترة‬ ‫كل‬ ‫ييرها‬ ‫ت‬ ‫مع‬ ،‫حروف‬
1-‫جتماعى‬ ‫ا‬ ‫التواصل‬ ‫مواقع‬ ‫عحد‬ ‫فى‬ ‫شتراك‬ ‫با‬ ‫رامى‬ ‫قال‬Face Book‫تخص‬ ‫معلومات‬ ‫بنشر‬ ‫وقال‬
‫ست‬ ‫با‬ ‫لص‬ ‫فقال‬ ،‫اليومية‬ ‫وعنشطتهم‬ ‫األسرة‬ ‫صوره‬ ‫ا‬ ‫مستعر‬ ‫اسرته‬‫المعلومات‬ ‫تلح‬ ‫من‬ ‫فادة‬
‫سرقتهم؟‬ ‫من‬ ‫وتمكن‬
‫التصرف؟‬ ‫هذا‬ ‫جراء‬ ‫لها‬ ‫يتعرم‬ ‫عن‬ ‫يمكن‬ ‫عخرى‬ ‫مخاطر‬ ‫هناك‬ ‫وهل‬ ‫يفعل؟‬ ‫عن‬ ‫يجب‬ ‫كان‬ ‫ماذا‬ ‫رعيح‬ ‫فى‬ *
‫االجابة‬‫الشخصية‬ ‫انتحال‬ ‫عو‬ ‫بتزا‬ ‫ا‬ ‫عو‬ ‫للتشهير‬ ‫التعرم‬ : ‫ل‬ ‫م‬ ‫نعم‬ ،‫خاصة‬ ‫بيانات‬ ‫عى‬ ‫نشر‬ ‫عدل‬ :
‫غير‬ ‫عشخاب‬ ‫يد‬ ‫فى‬ ‫العائلة‬ ‫صور‬ ‫وقوع‬ ‫نتيجة‬.‫مسئولة‬
4-‫على‬ ‫طالع‬ ‫ا‬ ‫منه‬ ‫المعلم‬ ‫فطلب‬ ،‫إلكترونى‬ ‫بريد‬ ‫رسالة‬ ‫فى‬ ‫سبه‬ ‫ميله‬ ‫عن‬ ‫لمعلمه‬ ‫الطالب‬ ‫عحد‬ ‫اشتكى‬
.‫االدانة‬ ‫دليل‬ ‫يعت‬ : ‫المعلم‬ ‫له‬ ‫فقال‬ ،‫الرسالة‬ ‫حذف‬ ‫قد‬ ‫عنه‬ ‫الطالب‬ ‫فأجابه‬ ،‫الرسالة‬ ‫هذه‬
‫؟‬ ‫يفعل‬ ‫عن‬ ‫يجب‬ ‫كان‬ ‫ماذا‬ ‫رعيح‬ ‫فى‬ *
‫االجابة‬.‫التعدى‬ ‫رسائل‬ ‫حذف‬ ‫تجنب‬ :
2-.‫يقابلنى‬ ‫عن‬ ‫ويود‬ ‫المحادثة‬ ‫غرف‬ ‫عحدى‬ ‫فى‬ ‫شخص‬ ‫على‬ ‫تعرفت‬ ‫لقد‬ ‫لوالده‬ ‫عمرو‬ ‫قال‬
‫؟‬ ‫والده‬ ‫رد‬ ‫كان‬ ‫ماذا‬ ‫رعيح‬ ‫فى‬ *
‫االجابة‬.‫االنترنت‬ ‫عبر‬ ‫عليهم‬ ‫تعرف‬ ‫من‬ ‫مقابلة‬ ‫عو‬ ،‫غرباء‬ ‫مقابلة‬ ‫من‬ ‫ومنعه‬ ‫بشدة‬ ‫حذره‬ :
1-‫ا‬ ‫التواصل‬ ‫مواقع‬ ‫عحد‬ ‫عبر‬ ‫وياسمين‬ ‫عمرو‬ ‫بين‬ ‫حوار‬ ‫فى‬ ‫كبيرة‬ ‫مشادة‬ ‫حدثت‬‫غرف‬ ‫عو‬ ‫جتماعى‬
.‫لياسمين‬ ‫ووعيد‬ ‫تهديد‬ ‫برسالة‬ ‫وبع‬ ‫شديدا‬ ‫غضبا‬ ‫عمرو‬ ‫ضب‬ ‫ف‬ ،‫المحادثة‬
‫عمرو؟‬ ‫تصرف‬ ‫فى‬ ‫رعيح‬ ‫ما‬ *
‫االجابة‬‫رسالة‬ ‫إرسال‬ ‫من‬ ‫"حاذر‬ ‫نترنت‬ ‫ل‬ ‫اآلمن‬ ‫ستخدال‬ ‫ا‬ ‫قواعد‬ ‫اتباع‬ ‫عليه‬ ‫وكان‬ ،‫متسرع‬ ‫تصرف‬ :
."‫ب‬ ‫غا‬ ‫وعنت‬ ‫إلكترونية‬
7-‫األ‬ ‫بعف‬ ‫عمل‬ ‫فى‬ ‫االنترنت‬ ‫عمرو‬ ‫يستخدل‬‫كلما‬ ‫انه‬ ‫ح‬ ‫و‬ ،‫مالئه‬ ‫مع‬ ‫بالتعاون‬ ‫المدرسية‬ ‫نشطة‬
‫محادثة‬ ‫برنامج‬ ‫فى‬ ‫فورية‬ ‫رسالة‬ ‫تصله‬ ‫االنترنت‬ ‫استخدل‬chat‫بتعاد‬ ‫ا‬ ‫فى‬ ‫عمرو‬ ‫ففكر‬ ،‫له‬ ‫مسيئة‬
.‫نفيه‬ ‫عن‬ ‫ودفاعا‬ ‫االساءة‬ ‫لتجنب‬ ‫االنترنت‬ ‫استخدال‬ ‫عن‬
‫؟‬ ‫عمرو‬ ‫تصرف‬ ‫فى‬ ‫رعيح‬ ‫ما‬ *
‫االجابة‬‫لط‬ ‫يلجأ‬ ‫عن‬ ‫عليه‬ ‫وكان‬ ،‫سلبى‬ ‫تصرف‬ :‫معلم‬ ‫عو‬ ‫األكبر‬ ‫عخيه‬ ‫عو‬ ‫والده‬ ‫من‬ ‫المساعدة‬ ‫لب‬
.‫بااليجابية‬ ‫االساءة‬ ‫مواجهة‬ ‫فى‬ ‫لمساعدته‬ ‫الكمبيوتر‬

41
8-‫ذلح‬ ‫فتسبب‬ ،‫االنترنت‬ ‫على‬ ‫تزورها‬ ‫التى‬ ‫المواقع‬ ‫جميع‬ ‫من‬ ‫برامج‬ ‫عى‬ ‫إنزال‬ ‫على‬ ‫ياسمين‬ ‫اعتادت‬
.‫التجسس‬ ‫وبرامج‬ ‫بالفيروسات‬ ‫الكمبيوتر‬ ‫إصابة‬ ‫فى‬
‫برام‬ ‫عى‬ ‫إنزال‬ ‫على‬ ‫توافع‬ ‫هل‬ *‫؟‬ ‫االنترنت‬ ‫من‬ ‫معروفة‬ ‫غير‬ ‫ج‬
‫االجابة‬،‫البرامج‬ ‫لهذه‬ ‫الفكرية‬ ‫الملكية‬ ‫حقوق‬ ‫ومراعاة‬ ‫ومصدرها‬ ‫البرامج‬ ‫هذه‬ ‫من‬ ‫التأكد‬ ‫ى‬ ‫ينب‬ ‫بل‬ ، :
.‫الكمبيوتر‬ ‫ومعلم‬ ‫األمر‬ ‫وولى‬ ‫الزمالء‬ ‫من‬ ‫الخبرة‬ ‫عهل‬ ‫واستشارة‬
‫اإللكترونى‬ ‫التعدى‬ : ‫الرابع‬ ‫الفصل‬ ‫على‬ ‫أسئلة‬BullyingCyber
‫س‬1( ‫عالمة‬ ‫ضع‬ :( ‫وعالمة‬ ‫الصحيحة‬ ‫العبارة‬ ‫أمام‬ )X: ‫يلى‬ ‫فيما‬ ‫الخطأ‬ ‫العبارة‬ ‫أمام‬ )-
1-‫عو‬ ‫ارش‬‫ا‬‫للتح‬ ‫االلكترونياة‬ ‫الوساائط‬ ‫باساتخدال‬ ،‫متعماد‬ ‫ادوانى‬‫ا‬‫ع‬ ‫سالوك‬ ‫عان‬ ‫عباارة‬ ‫االلكتروناى‬ ‫التعادى‬
.‫اآلخرين‬ ‫تهديد‬ ‫عو‬ ‫تخويف‬ ‫عو‬ ‫إحراج‬ ‫او‬ ‫المضايقة‬()
2-‫إل‬ ‫وسائط‬ ‫خالل‬ ‫من‬ ‫يتم‬ ‫االلكترونى‬ ‫التعدى‬.‫جتماعى‬ ‫ا‬ ‫التواصل‬ ‫مواقع‬ ‫ل‬ ‫م‬ ‫كترونية‬()
1-.‫االلكترونى‬ ‫التعدى‬ ‫صور‬ ‫من‬ ‫صورة‬ ‫يعتبر‬ ‫االلكترونى‬ ‫التخفى‬()
4-.‫االلكترونى‬ ‫التعدى‬ ‫فى‬ ‫المستخدمة‬ ‫االلكترونية‬ ‫الوسائط‬ ‫عهم‬ ‫من‬ ‫والتهديد‬ ‫التحرش‬()
2-.‫االلكترونى‬ ‫التعدى‬ ‫عشكال‬ ‫من‬ ‫بتزا‬ ‫وا‬ ‫المضايقة‬()
1-‫يمكان‬ ‫التاى‬ ‫المخااطر‬ ‫عحاد‬ ‫االلكتروناى‬ ‫برياده‬ ‫عو‬ ‫جتماعى‬ ‫ا‬ ‫التواصل‬ ‫مواقع‬ ‫فى‬ ‫شخص‬ ‫حساب‬ ‫سرقة‬
.‫االلكترونى‬ ‫التواصل‬ ‫وسائط‬ ‫عبر‬ ‫لها‬ ‫نتعرم‬ ‫عن‬()
7-‫العالقاات‬ ‫لتطاوير‬ ‫مقاابلتهم‬ ‫يفضال‬ ‫جادد‬ ‫عشخاب‬ ‫على‬ ‫التعرف‬ ‫فى‬ ‫تساعد‬ ‫جتماعى‬ ‫ا‬ ‫التواصل‬ ‫مواقع‬
.‫جتماعية‬ ‫ا‬()
8-‫باح‬ ‫الخااب‬ ‫االلكتروناى‬ ‫للبرياد‬ ‫ساهلة‬ ‫مارور‬ ‫كلمة‬ ‫تضع‬ ‫عن‬ ‫يفضل‬ ‫اآلمن‬ ‫ستخدال‬ ‫ا‬ ‫قواعد‬ ‫مع‬ ‫تمشيا‬
.‫تذكرها‬ ‫تستطيع‬ ‫حتى‬()
1-.‫االلكترونية‬ ‫التواصل‬ ‫وسائل‬ ‫كافة‬ ‫فى‬ ‫معين‬ ‫شخص‬ ‫تتبع‬ ‫يعنى‬ ‫االلكترونى‬ ‫ناء‬ ‫ست‬ ‫ا‬()
11-‫االلكت‬ ‫المالحقة‬.‫ر‬ ‫عك‬ ‫عو‬ ‫لشخص‬ ‫تهديد‬ ‫تحمل‬ ‫إلكترونية‬ ‫رسائل‬ ‫إرسال‬ ‫بها‬ ‫يقصد‬ ‫رونية‬()
‫ل‬‫الموقف‬‫اآلمن‬ ‫ستخدال‬ ‫ا‬ ‫قواعد‬ ‫وء‬ ‫فى‬ ‫رعيح‬
1‫ستنتاج‬ ‫ا‬ ‫سهلة‬ ‫مرور‬ ‫كلمة‬ ‫ع‬ ‫و‬......................................................
2
‫ورقم‬ ‫وعنوانه‬ ‫الحقيقى‬ ‫ألسمه‬ ‫شخص‬ ‫نشر‬
‫الوسائط‬ ‫عبر‬ ‫تليفونه‬‫لكترونية‬ ‫ا‬
......................................................
1‫االنترنت‬ ‫على‬ ‫لح‬ ‫تتاح‬ ‫برامج‬ ‫اى‬ ‫إنزال‬......................................................
4
‫له‬ ‫تتعرم‬ ‫قد‬ ‫تعدى‬ ‫على‬ ‫ب‬ ‫ا‬ ‫ال‬ ‫السريع‬ ‫الرد‬
‫االنترنت‬ ‫عبر‬
......................................................
2
‫فى‬ ‫بها‬ ‫تهديدك‬ ‫تم‬ ‫التى‬ ‫الرسائل‬ ‫جميع‬ ‫حذف‬
‫االلكترونى‬ ‫البريد‬ ‫عو‬ ‫جتماعى‬ ‫ا‬ ‫التواصل‬ ‫مواقع‬
......................................................
‫س‬3‫حياتيه‬ ‫مواقف‬ :
1-‫عو‬ ‫األعضااء‬ ‫اد‬‫ا‬‫عح‬ ‫راسال‬ ‫اا‬‫ا‬‫وكلم‬ ،‫جتمااعى‬ ‫ا‬ ‫ال‬‫ا‬‫التواص‬ ‫مواقاع‬ ‫اد‬‫ا‬‫عح‬ ‫فاى‬ ‫اخاب‬‫ا‬‫األش‬ ‫عحاد‬ ‫اشاترك‬‫ااول‬‫ا‬‫ح‬
.‫عليه‬ ‫الرد‬ ‫عدل‬ ‫ح‬ ‫فورية‬ ‫محادثة‬ ‫إجراء‬

44
-‫عشكال‬ ‫من‬ ‫شكل‬ ‫حد‬ ‫ما‬ ‫يعتبر‬...................................‫ويسمى‬...................................
-‫التصرف‬ ‫ذلح‬ ‫لمواجهة‬ ‫تفعل‬ ‫ماذا‬..............................................................................
2-‫عن‬ ‫والحدي‬ ‫مصر‬ ‫على‬ ‫األشخاب‬ ‫عحد‬ ‫بتهكم‬ ‫وفوجئت‬ ‫جتماعى‬ ‫ا‬ ‫التواصل‬ ‫مواقع‬ ‫عحد‬ ‫فى‬ ‫اشتركت‬
.‫ئع‬ ‫غير‬ ‫بشكل‬ ‫ها‬ ‫رمو‬
-( ‫حدد‬4‫عليه‬ ‫الرد‬ ‫خاللها‬ ‫من‬ ‫يمكن‬ ‫إيجابية‬ ‫تصرفات‬ ‫عربعة‬ )
1-..................................................2-..................................................
1-..................................................4-..................................................
‫األول‬ ‫االختبار‬
‫األقواس‬ ‫بين‬ ‫من‬ ‫الصحيحة‬ ‫اإلجابة‬ ‫اختر‬ : ‫األول‬ ‫السؤال‬
1-.........................‫تجاهل‬ ‫عن‬ ‫عبارة‬ ‫االلكترونى‬.‫إلكترونية‬ ‫وسائط‬ ‫خالل‬ ‫من‬ ‫ر‬ ‫عك‬ ‫عو‬ ‫شخص‬
‫التشهير‬ (-‫التهديد‬-‫المالحقة‬-) ‫ناء‬ ‫ست‬ ‫ا‬
2-.........................‫يتم‬ ‫سم‬ ‫ا‬ ‫هذا‬ ‫استدعاء‬ ‫عند‬ ‫ما‬ ‫اسم‬ ‫تحت‬ ‫والتعليمات‬ ‫األوامر‬ ‫من‬ ‫مجموعة‬ ‫هو‬
.‫والتعليمات‬ ‫األوامر‬ ‫هذه‬ ‫تنفيذ‬
( Else - End - Procedure - Class )
1-‫ي‬‫يلى‬ ‫الذى‬ ‫الكود‬ ‫نفذ‬Else‫جملة‬ ‫فى‬If‫الشرطى‬ ‫التعبير‬ ‫ناتج‬ ‫يكون‬ ‫عندما‬.........................
( Then - False - Next - True )
4-‫جملة‬ ‫تستخدل‬..........................‫يرات‬ ‫المت‬ ‫عن‬ ‫عالن‬ ‫ل‬
( Dim - Constant - For - False )
2-.........................‫هى‬.‫قاطع‬ ‫بشكل‬ ‫التكرار‬ ‫مرات‬ ‫عدد‬ ‫معرفة‬ ‫عدل‬ ‫حالة‬ ‫فى‬ ‫مفيدة‬
( Do While … Loop - Select .. Case - For … Next )
‫التالية‬ ‫العبارات‬ ‫فى‬ ‫خط‬ ‫تحته‬ ‫ما‬ ‫صحح‬ : ‫الثانى‬ ‫السؤال‬
1-‫الحسابية‬ ‫العملية‬ ‫تنفيذ‬ ‫ناتج‬( 3 + 6 ) * 2‫هو‬11
2-‫وابت‬ ‫ال‬‫ف‬ ‫تستدعى‬ ‫إنما‬ ‫لها‬ ‫قيم‬ ‫تخصيص‬ ‫يمكن‬‫القيمة‬ ‫هذه‬ ‫استخدال‬ ‫يمكنح‬ ‫ثم‬ ‫بها‬ ‫تخزن‬ ‫قيمة‬ ‫تنتج‬
.‫المخزنة‬
4-‫باألداة‬ ‫المحدد‬ ‫العنصر‬ ‫إلى‬ ‫تشير‬ ‫التى‬ ‫الخاصية‬ListBox‫هى‬Items.
2-‫البيان‬ ‫نوع‬Double‫بـ‬ ‫وتنتهى‬ ‫صفر‬ ‫من‬ ‫تبدع‬ ‫به‬ ‫المخزنة‬ ‫القيمة‬ ‫حدود‬222.
: ‫الثالث‬ ‫السؤال‬
1-‫الكود‬ ‫فى‬ ‫الخطأ‬ ‫نوع‬ ‫حدد‬Code‫صوبه‬ ‫ثم‬
Dim X As Sangle
2-‫التالية‬ ‫األكواد‬ ‫من‬ ‫كود‬ ‫كل‬ ‫عمال‬ ‫التى‬ ‫النتائج‬ ‫مستخدما‬ ‫كود‬ ‫كل‬ ‫تنفيذ‬ ‫ناتج‬ ‫حدد‬
‫ل‬ ‫الكــــــــــــــــــــود‬ ‫النتائج‬
1 Dim A As integer = 7
Dim B As Integer = 9
MsgBox ( A & "×" & B "=" & " " & A*B)
(A × B = 36)
( 7 × 9 = 63 )
( 7 × 9 A * B )
2 Dim X , Y As Single
X = 10
( 50 - 26 - 32 )

42
Y = 3 * X + 2
Label1.Text = Y
3 Dim R , Sum As Integer
For R = 5 To 10 Step -1
Sum = Sum + R
Next
MsgBox ( R )
( 5 - 10 - 0 )
‫االختبار‬‫الثانى‬
: ‫األول‬ ‫السؤال‬( ‫عالمة‬ ‫ضع‬‫و‬ ‫الصحيحة‬ ‫العبارة‬ ‫امام‬ )( ‫عبارة‬X‫الخطأ‬ ‫العبارة‬ ‫أمام‬ )
1-‫يلى‬ ‫الذى‬ ‫الكود‬ ‫ينفذ‬Else‫جملة‬ ‫فى‬If‫الشرطى‬ ‫التعبير‬ ‫ناتج‬ ‫يكون‬ ‫عندما‬True()
2-‫ا‬ ‫عملية‬ ‫تنفيذ‬ ‫يتم‬ ‫فإنه‬ ‫الحسابية‬ ‫العمليات‬ ‫تنفيذ‬ ‫ألولويات‬ ‫طبقا‬‫والقسمة‬ ‫الضرب‬ ‫قبل‬ ‫والطرح‬ ‫لجمع‬()
1-‫م‬ ‫عدوانى‬ ‫سلوك‬ ‫عن‬ ‫عبارة‬ ‫االلكترونى‬ ‫التعدى‬‫عو‬ ‫التهديد‬ ‫رم‬ ‫ب‬ ‫االلكترونية‬ ‫الوسائط‬ ‫يستخدل‬ ‫تعمد‬
‫التخويف‬()
4-‫رقم‬ ‫عو‬ ‫بحرف‬ ‫ير‬ ‫المت‬ ‫اسم‬ ‫يبدع‬ ‫عن‬ ‫البرنامج‬ ‫فى‬ ‫وابت‬ ‫ال‬ ‫عو‬ ‫يرات‬ ‫المت‬ ‫تسمية‬ ‫قواعد‬ ‫عحد‬()
2-‫االجراء‬ ‫عن‬ ‫يعلن‬Procedure‫المرات‬ ‫من‬ ‫عدد‬ ‫عى‬ ‫ويستدعى‬ ‫واحدة‬ ‫مرة‬()
‫الثا‬ ‫السؤال‬‫ي‬ ‫مما‬ ‫المناسبة‬ ‫الكلمة‬ ‫ضع‬ : ‫نى‬‫أ‬‫المناسب‬ ‫المكان‬ ‫فى‬ ‫تى‬
( Select - Case - Integer - Dim - Step - Sub )
1-‫تستخدل‬..........................‫للتفرع‬ ‫احتمالين‬ ‫من‬ ‫ر‬ ‫اك‬ ‫وجود‬ ‫حالة‬ ‫فى‬
2-‫كتابة‬ ‫عدل‬.....................‫جملة‬ ‫مع‬For … Next‫و‬ ‫الزيادة‬ ‫قيمة‬ ‫عن‬ ‫يعنى‬ ‫فهذا‬.‫يا‬ ‫افترا‬ ‫احد‬
1-‫عن‬ ‫عالن‬ ‫ل‬ ‫نلجأ‬.........................‫كود‬ ‫لدينا‬ ‫كان‬ ‫ما‬ ‫إذا‬ ‫حالة‬ ‫فى‬Code‫ار‬ ‫عك‬ ‫فى‬ ‫كتابته‬ ‫سيتكرر‬
‫التصنيف‬ ‫داخل‬ ‫ع‬ ‫مو‬ ‫من‬Class.
4-‫جملة‬ ‫باستخدال‬ ‫يرات‬ ‫المت‬ ‫عن‬ ‫االعالن‬ ‫يتم‬.........................
2-‫نوع‬ ‫من‬ ‫ير‬ ‫المت‬..........................‫فقط‬ ‫الصحيحة‬ ‫األعداد‬ ‫لتخزين‬ ‫يستخدل‬
‫يأتى‬ ‫ما‬ ‫اكمل‬ : ‫الثالث‬ ‫السؤال‬
1-‫الكود‬ ‫هذا‬ ‫فى‬ ‫الخطأ‬( Const X As Single )‫النوع‬ ‫من‬.........................
2-‫الحسابية‬ ‫العملية‬ ‫تنفيذ‬ ‫ناتج‬( 5 + 3 ) * 2‫هو‬.........................
1-‫جملة‬ ‫تستخدل‬.........................‫كود‬ ‫لتكرار‬Code‫مسابقا‬ ‫معاروف‬ ‫غيار‬ ‫المارات‬ ‫مان‬ ‫لعدد‬ ‫محدد‬
.‫معين‬ ‫شرط‬ ‫على‬ ‫بناء‬
‫يلى‬ ‫فيما‬ ‫المعطاة‬ ‫اإلجابات‬ ‫بين‬ ‫من‬ ‫الصحيحة‬ ‫االجابة‬ ‫أختر‬ :‫الرابع‬ ‫السؤال‬
‫ل‬ ‫الكــــــــــــــــــــود‬ ‫النتائج‬
1 Dim X As Integer , Sum As Integer
For X = 1 to 5
Sum = Sum + X
Next
Lbl_Display. Text = Sum
‫الكود‬ ‫تنفيذ‬ ‫بعد‬Code‫يتم‬ ‫ما‬ ‫فإن‬ ‫المقابل‬
‫العنوان‬ ‫عداة‬ ‫فى‬ ‫ه‬ ‫عر‬Lbl_Display‫هو‬
) ‫ع‬5
)‫ب‬10
)‫جـ‬15

41
2 Dim Y As Integer = 15
If X Mod 3 = 0 Then
Label1.Text = "True"
Else
Label1.Text = "False"
End If
‫الكود‬ ‫تنفيذ‬ ‫بعد‬Code‫ال‬‫يتم‬ ‫ما‬ ‫فإن‬ ‫مقابل‬
‫العنوان‬ ‫عداة‬ ‫فى‬ ‫ه‬ ‫عر‬Label1‫هو‬
) ‫ع‬True
)‫ب‬False
)‫جـ‬15
‫االختبار‬‫الثالث‬
: ‫األول‬ ‫السؤال‬‫األقواس‬ ‫بين‬ ‫من‬ ‫الصحيحة‬ ‫اإلجابة‬ ‫اختر‬
1-‫االجراء‬Sub‫له‬ ‫يكون‬ ‫قيد‬.........................
‫واحد‬ ‫معامل‬ (-‫معامل‬ ‫من‬ ‫ر‬ ‫عك‬-‫معامال‬ ‫عى‬ ‫يأخذ‬‫ت‬-) ‫سبع‬ ‫ما‬ ‫كل‬
2-‫جملة‬ ‫فى‬For .. Next‫للعداد‬ ‫البداية‬ ‫قيمة‬ ‫كانت‬ ‫إذا‬ ‫بالسالب‬ ‫الزيادة‬ ‫مقدار‬ ‫يكون‬.................
.‫النهاية‬ ‫قيمة‬‫من‬ ‫عكبر‬ (-‫من‬ ‫عقل‬-) ‫تساوى‬
1-‫جملة‬ ‫فى‬( If .. Then .. Else )‫الشرطى‬ ‫التعبير‬ ‫ناتج‬ ‫كان‬ ‫إذا‬False‫تلى‬ ‫التى‬ ‫الجمل‬ ‫تنفيذ‬ ‫يتم‬
.........................(End If - Else - Then)
4-.........................‫عثناء‬ ‫قيمتها‬ ‫ير‬ ‫وتت‬ ‫بيان‬ ‫نوع‬ ‫ولها‬ ‫الكمبيوتر‬ ‫بذاكرة‬ ‫ة‬ ‫محجو‬ ‫تخزينية‬ ‫عماكن‬
.‫البرنامج‬ ‫سير‬‫يرات‬ ‫المت‬ (-‫وابت‬ ‫ال‬-‫التخصيص‬ ‫عوامر‬-) ‫سبع‬ ‫مما‬ ‫شيء‬
2-‫االجراء‬ ‫عن‬ ‫االعالن‬ ‫يتم‬Sub‫الدالة‬ ‫عو‬Function.........................
‫واحدة‬ ‫مرة‬ (-‫مرة‬ ‫من‬ ‫ر‬ ‫عك‬-) ‫سبع‬ ‫ما‬ ‫كل‬
: ‫الثانى‬ ‫السؤال‬: ‫اآلتية‬ ‫العبارات‬ ‫على‬ ‫الدال‬ ‫العلمى‬ ‫المصطلح‬ ‫أكتب‬
1-.‫جديد‬ ‫سطر‬ ‫إنشاء‬ ‫فى‬ ‫استخدامه‬ ‫يتم‬ ‫حرفى‬ ‫ثابت‬
2-‫ناتجه‬ ‫البرنامج‬ ‫كود‬ ‫من‬ ‫جزء‬ ‫هو‬True‫عو‬False‫وذلح‬.‫خاصية‬ ‫عو‬ ‫ير‬ ‫مت‬ ‫قيمة‬ ‫على‬ ‫بناء‬
1-.‫قيمة‬ ‫عى‬ ‫لها‬ ‫يخصص‬ ‫و‬ ‫التخصيص‬ ‫جملة‬ ‫من‬ ‫األيمن‬ ‫الطرف‬ ‫فى‬ ‫تستخدل‬
‫اآلتية‬ ‫العبارات‬ ‫أكمل‬ : ‫الثالث‬ ‫السؤال‬
1-‫نستخدل‬..........................‫البرنامج‬ ‫فى‬ ‫وابت‬ ‫ال‬ ‫عن‬ ‫عالن‬ ‫ل‬
2-‫القيمة‬ ‫لتخزين‬True‫عو‬False‫النوع‬ ‫من‬ ‫يرات‬ ‫مت‬ ‫نستخدل‬.........................
1-‫الحسابية‬ ‫العملية‬ ‫ناتج‬( 4 8 3 ^ 2 ) / 6 - 3‫هو‬.........................
4-‫تستخدل‬..........................‫مسبقا‬ ‫معلومة‬ ‫غير‬ ‫االجراء‬ ‫خارج‬ ‫من‬ ‫قيم‬ ‫ستقبال‬ ‫كوسيلة‬
2-( ‫من‬ ‫الفردية‬ ‫األعداد‬ ‫لطباعة‬ ‫التالى‬ ‫الكود‬ ‫عكمل‬1( ‫إلى‬ )8‫باست‬ )‫خدال‬Do While
Dim X As Short
X = .........................
Do While .........................
MsgBox (X)
.........................

47
.........................
: ‫الرابع‬ ‫السؤال‬( ‫عالمة‬ ‫ضع‬( ‫وعبارة‬ ‫الصحيحة‬ ‫العبارة‬ ‫امام‬ )X‫الخطأ‬ ‫العبارة‬ ‫أمام‬ )
1-‫الو‬ ‫تستخدل‬‫سيلة‬Focus ( )‫األداة‬ ‫محتويات‬ ‫لمسح‬TextBox()
2-‫كتابة‬ ‫عدل‬ ‫عند‬Step‫جملة‬ ‫فى‬For .. Next‫صفر‬ ‫ية‬ ‫فترا‬ ‫ا‬ ‫الزيادة‬ ‫مقدار‬ ‫يكون‬()
1-‫رقم‬ ‫عو‬ ‫عبجدى‬ ‫بحرف‬ ‫ير‬ ‫المت‬ ‫اسم‬ ‫يبدع‬ ‫عن‬ ‫يمكن‬()
4-‫ناتج‬ ‫وتعطى‬ ‫خطأ‬ ‫رسائل‬ ‫عى‬ ‫لها‬ ‫يظهر‬ ‫المنطقية‬ ‫األخطاء‬()
2-‫جملة‬ ‫تستخدل‬Select .. Case) ( ‫شرطى‬ ‫تعبير‬ ‫من‬ ‫ر‬ ‫عك‬ ‫واختبار‬ ‫احتمالين‬ ‫من‬ ‫ر‬ ‫عك‬ ‫وجود‬ ‫عند‬
‫االختبار‬‫الرابع‬
: ‫األول‬ ‫السؤال‬‫األقواس‬ ‫بين‬ ‫من‬ ‫الصحيحة‬ ‫اإلجابة‬ ‫اختر‬
1-‫جملة‬ ‫كتابة‬ ‫يمكن‬If ..Then ..Else( ‫ع‬ ‫و‬ ‫يتم‬ ‫و‬ ‫واحد‬ ‫سطر‬ ‫فى‬End If - Then - If)
2-‫(التشهير‬-‫التهديد‬-.‫مسيء‬ ‫بشكل‬ ‫خاصة‬ ‫معلومات‬ ‫نشر‬ ‫هو‬ ‫االلكترونى‬ ) ‫ناء‬ ‫ست‬ ‫ا‬
1-‫بين‬ ‫ما‬ ‫الشرطى‬ ‫التعبير‬ ‫ناتج‬If‫و‬Then( ‫يكون‬ ‫عن‬ ‫بد‬True - False - True‫عو‬False)
4-‫جملة‬ ‫فى‬ ‫التكرار‬ ‫يتوقف‬For M = 10 To 1 Step -2‫ير‬ ‫المت‬ ‫قيمة‬ ‫تصبح‬ ‫عندما‬M‫من‬ ‫(عكبر‬
-‫من‬ ‫ر‬ ‫عص‬-‫النهاية‬ ‫قيمة‬ ) ‫تساوى‬
2-(Me - Const - vbCrlf ).‫االدخال‬ ‫مفتاح‬ ‫رمز‬ ‫افة‬ ‫ال‬ ‫يستخدل‬ ‫حرفى‬ ‫ثابت‬
1-‫عالمتى‬ ‫تستخدل‬( # # - @ @ - " " ).‫تاريخ‬ ‫كتابة‬ ‫عردنا‬ ‫ما‬ ‫إذا‬ ‫حالة‬ ‫فى‬
7-‫استخدال‬ ‫مع‬ ‫الممكنة‬ ‫التفرع‬ ‫اختيارات‬ ‫عند‬(If ..Then .. Else)‫هو‬( 3 - 2 - 1 ).
8-‫لب‬ ‫للت‬‫وية‬ ‫(الل‬ ‫األخطاء‬ ‫على‬-‫المنطقية‬-‫شاشة‬ ‫تساعدنا‬ )‫يل‬ ‫التش‬ ‫عند‬IDE‫يسمح‬ ‫حي‬
.‫النوع‬ ‫هذا‬ ‫من‬ ‫خطأ‬ ‫عى‬ ‫بوجود‬
‫السؤال‬‫الثانى‬:( ‫عالمة‬ ‫ضع‬( ‫وعبارة‬ ‫الصحيحة‬ ‫العبارة‬ ‫امام‬ )X‫الخطأ‬ ‫العبارة‬ ‫أمام‬ )
1-.‫االلكترونى‬ ‫المتعدى‬ ‫من‬ ‫المرسلة‬ ‫االلكترونية‬ ‫الرسائل‬ ‫من‬ ‫التخلص‬ ‫يجب‬()
2-‫الدوال‬Function.‫تخصيص‬ ‫جملة‬ ‫عى‬ ‫فى‬ ‫استخدامها‬ ‫يجو‬()
1-‫جملة‬Case Is > = 4‫ناتجها‬False‫تساوى‬ ‫ير‬ ‫المت‬ ‫قيمة‬ ‫حالة‬ ‫فى‬8.)(
4-‫جملة‬ ‫تستخدل‬Select .. Case.‫للتفرع‬ ‫احتمالين‬ ‫من‬ ‫ر‬ ‫اك‬ ‫وجود‬ ‫حالة‬ ‫فى‬()
2-‫النوع‬ ‫من‬ ‫يرات‬ ‫المت‬Double.‫فقط‬ ‫الصحيحة‬ ‫األعداد‬ ‫تخزين‬ ‫فى‬ ‫تستخدل‬()
1-‫الوسيلة‬ ‫تستخدل‬Focus‫األداة‬ ‫محتوى‬ ‫لتفريغ‬TextBox.()
7-‫األمر‬MsgBox ("3" & "x" & "3")‫به‬ ‫رسالة‬ ‫صندوق‬ ‫فى‬ ‫يعرم‬9.()
‫مناسب‬ ‫هو‬ ‫بما‬ ‫التالية‬ ‫الجمل‬ ‫أكمل‬ ) ‫أ‬ :‫الثالث‬ ‫السؤال‬
1-‫الخاصية‬.........................‫باألداة‬ ‫المحدد‬ ‫العنصر‬ ‫إلى‬ ‫تشير‬ListBox
2-‫كلمة‬ ‫بعد‬ ‫يكتب‬ ‫ما‬..........................‫البرنامج‬ ‫تنفيذ‬ ‫عند‬ ‫يهمل‬
1-‫الخاصية‬ ‫فى‬ ‫المستخدل‬ ‫البيان‬ ‫نوع‬Text‫يكون‬.........................
)‫ب‬‫التالي‬ ‫األسئلة‬ ‫إجابات‬ ‫منه‬ ‫استخرج‬ ‫ثم‬ ‫التالى‬ ‫الكود‬ ‫بدراسة‬ ‫قم‬‫ة‬:
Public Class Form1
Dim X As Integer
Label1.Text= " "

48
For X = Start to 10 Step 2
Label1.Text=Label1.Text & X
Next
End Sub
End Class
1-‫اسم‬ ‫تحت‬ ‫إجراء‬ ‫عن‬ ‫االعالن‬ ‫تم‬.........................
2-‫تم‬‫عن‬ ‫االعالن‬Parameter‫اسم‬ ‫تحت‬.........................‫بيان‬ ‫نوع‬ ‫ومن‬.........................
1-‫ير‬ ‫المت‬ ‫عن‬ ‫االعالن‬ ‫تم‬X‫كلمة‬ ‫باستخدال‬.........................
4-‫استدعاء‬ ‫عند‬ShowOddOrEven (8)‫على‬ ‫يظهر‬ ‫ما‬ ‫فإن‬Label1‫هو‬.........................
‫االختبار‬‫الخامس‬
‫السؤال‬‫األول‬:( ‫عالمة‬ ‫ضع‬( ‫وعبارة‬ ‫الصحيحة‬ ‫العبارة‬ ‫امام‬ )X‫الخطأ‬ ‫العبارة‬ ‫أمام‬ )
1-.‫حقه‬ ‫مرحلة‬ ‫فى‬ ‫عو‬ ‫االعالن‬ ‫عثناء‬ ‫يرات‬ ‫للمت‬ ‫التخصيص‬ ‫يمكن‬()
2-.‫خطأ‬ ‫عو‬ ‫صواب‬ ‫إما‬ ‫ناتجه‬ ‫يكون‬ ‫البرمجة‬ ‫كود‬ ‫من‬ ‫جزء‬ ‫هو‬ ‫الشرطى‬ ‫التعبير‬()
1-‫استخدا‬ ‫من‬ ‫رم‬ ‫ال‬‫جملة‬ ‫ل‬Do While .. Loop‫الشرط‬ ‫طالما‬ ‫كود‬ ‫تكرار‬ ‫هو‬False()
4-‫للدالة‬ ‫الراجعة‬ ‫القيمة‬(Area)‫هى‬(Single)‫إعالنها‬ ‫فى‬ ‫ح‬ ‫مو‬ ‫هو‬ ‫كما‬
Function Area (ByVal Radius As Single) As Integer()
‫اآلتية‬ ‫الجمل‬ ‫أكمل‬ : ‫الثانى‬ ‫السؤال‬
1-‫عن‬ ‫عبارة‬ ‫التخصيص‬ ‫جملة‬...................................................................................
2-‫األمر‬Focus‫النص‬ ‫بصندوق‬ ‫وسيلة‬ ‫هو‬TextBox‫وتعنى‬...........................................
1-‫االجراء‬Procedure‫هو‬......................................................................................
‫الصحيحة‬ ‫اإلجابة‬ ‫اختر‬ : ‫الثالث‬ ‫السؤال‬
1-‫التالية‬ ‫الجملة‬ ‫فى‬ ‫الخطأ‬Din X As Single‫النوع‬ ‫من‬
(Logic Error - Syntax and Logic Error - Syntax Error)
2-‫الشرط‬ ‫تحقيع‬ ‫عند‬ ‫تكرارية‬ ‫حلقة‬ ‫إنهاء‬A = 2: ‫التالى‬ ‫بالشكل‬ ‫بدايتها‬ ‫فى‬ ‫تكتب‬
(Do While (a < > 2) - Do While (a < > 2 ) Or ( a > = 2) - Do While ( a = 2)
1-‫االجراء‬ ‫وسيط‬Procedures‫عو‬ ‫ير‬ ‫مت‬ ‫عو‬ ‫مجردة‬ ‫قيمة‬ ‫يكون‬ ‫عن‬ ‫إما‬.................‫عو‬...............
: ‫اآلتية‬ ‫الحسابية‬ ‫العمليات‬ ‫ناتج‬ ‫حدد‬ : ‫الرابع‬ ‫السؤال‬
1-4 / 2 + 5 * 2 - 3
2-( 4 * 3 ^ 2 - 30 ) / ( 11 Mod 3 - 1 )
‫النص‬ ‫مربع‬ ‫فى‬ ‫مدخلة‬ ‫عمرية‬ ‫مرحلة‬ ‫لكل‬ ‫المناسب‬ ‫المسمى‬ ‫يحدد‬ ‫والذى‬ ‫التالى‬ ‫الكود‬ ‫بدراسة‬ ‫قم‬ )‫ب‬
Dim Age As Single
Age = Me. TextBox1.Text
Select Case Age
Case 14 To 18
Label2.Text= "‫مراهع‬ ‫"عنت‬

41
Case 19 To 30
Label2.Text ="‫شاب‬ ‫"انت‬
Case Else
Label2.Text= " ‫إدخال‬ ‫يرجى‬‫عمر‬‫بين‬14‫و‬11 "
End Select
-‫العنوان‬ ‫عداة‬ ‫فى‬ ‫ه‬ ‫عر‬ ‫يتم‬ ‫ما‬ ‫حدد‬Label2‫إدخال‬ ‫عند‬‫األعمار‬‫مربع‬ ‫فى‬ ‫التالية‬TextBox1
(1)‫العمر‬22(2)‫العمر‬8
-‫قيمة‬ ‫ما‬(M)‫التالية‬ ‫الحلقة‬ ‫تنفيذ‬ ‫بعد‬( For M = 3 To 1 Step -1 )

Computer 3rd-preparatory-second-term-khawagah-6

More Related Content

What's hot (11)

Similar to Computer 3rd-preparatory-second-term-khawagah-6 (20)

More from khawagah (20)

Recently uploaded (15)

Computer 3rd-preparatory-second-term-khawagah-6