السؤال الأول : اختر الإجابة الصحيحة مما يلي :

1- الأمر IF…Then…Else هو أمر اختيار ...........................
أ) فردى
ب) مزدوج
ج) ثلاثي
د) لاشيء مما سبق

2- يطلق على الأمر IF…Then أمر .................... لأنه يقوم بتحديد أو تجاهل عمل واحد .
أ) Single – Selection
ب) Double – Selection
ج) Multiple – Selection
د) Repletion

3- استخدام المعامل ........... يؤدى إلى خطأ العملية إذا كان ما على يساره اقل مما على يمينه
أ) =
ب) >
ج) ≥
د) لاشيء مما سبق

4- جملة الأمر IF…Then…Else تنتهي بكلمات ...................
أ) End IF
ب) End Else
ج) EndIF
د) EndElse




5- الجملة التالية يتم تنفيذها فقط في حالة أن يكون الشرط يساوى :
أ) ( n mod d ) < >0
ب) ( n \ d ) = 0
ج) ( n mod d ) = 0
د) ( n \ d ) < > 0

6- الخاصية ................. تقوم بإعطاء قيمة لملصق الـ CheckBox
أ) Label
ب) Text
ج) Checked
د) Name

7- عدد Check Boxes الممكن اختيارها في المرة الواحدة هو ..............
أ) واحد
ب) اثنان
ج) ثلاثة
د) أي عدد ممكن تحديده

8- الشرط ( a And Also b ) يكون صحيحاً إذا كان :
أ) a خطأ و b أيضاً خطأ
ب) a خطأ و b صحيحاً
ج) a صحيحاً و b خطأ
د) a صحيحاً و b أيضاً صحيحاً

9- الشرط ( a Or b ) يكون خطأ إذا كان :
أ) a خطأ أو b خطأ
ب) a خطأ و b صحيحاً
ج) a صحيحاً و b خطأ
د) جميع ما سبق

10- الشرط ( m Or n ) يكون صحيحاً إذا كان :
أ) m صحيحاً و n أيضاً صحيحاً
ب) m خطأ و n صحيحاً
ج) m صحيحاً و n خطأ
د) الجملتان (ب) و (ج) صحيحتان

السؤال الثاني : بفرض أن المستخدم أدخل القيمة ( 73.5 ) في مربع للكتابة اسمه txtScore حدد تأثير هذه العملية على الكود الآتي :
1 Dim Score As Decimal
2 Score = Decimal . Parse ( txtScore . Text )
3 IF Score >= 90 Then
4 lblDisplay . Text = "Excellent"
5 Else IF Score >= 75 Then
6 lblDisplay . Text = "Very Good"
7 Else IF Score >= 60 Then
8 lblDisplay . Text = " Good"
9 Else IF Score >= 50 Then
10 lblDisplay . Text = " Pass"
11 Else
12 lblDisplay . Text = " Fail"
13 End IF
الإجابة :
يقوم هذه الكود بطباعة كلمة Good داخل المبين lblDisplay
السؤال الثالث : بفرض أن lblAmPm هي أداة ملصق ( Label Control ) فما الخطأ الموجود في الكود التالي :
1 Dim Hour As Integer
2 Hour = 13
3 If Hour ≤ 11
4 lblAmBm.Text = "Am"
5 Else
6 lblAmBm.Text = "Pm"
7 Elseif Hour > 23 Then
8 lblAmBm.Text = "hour can not be more than 23"
9 End IF


الإجابة
1 Dim Hour As Integer
2 Hour = 13
3 If Hour > 23 Then
4 lblAmBm.Text = "hour can not be more than 23"
5 Else If Hour <= 11 Then
6 lblAmBm.Text = "Am"
7 Else
8 lblAmBm.Text = "Pm"
9 End IF

انا فعلا باضم صوتى لصوت زملائى انا دلوقتى باخد مجموعة فيه فى المدرسة بس الحمد لله المجموعة اتلغت لان بعد اصدقائنا عملوا شغب وانا نزلت من هنا بعض المذكرات وفرحت لما وجدت هنا باللغة الانجليزية

بس انا مستغرب من حاجة فيه ناس بتقولى لو حبيت المادة هاتجيبفيها الدرجة النهائية وهو جايب 10/10 فى التيرم الاول بسم الله ما شاء الله

عايز اعرف احنا كمان نجيب كده ازاى

بسم الله الرحمن الرحيم
والصلاة والسلام على اشرف المرسلين سيدنا محمد سيد الخلق اجمعين
اما بعد ....
من الاساس لا توجد مشكلة بمادة الحاسب الاّلي ( ليه ان شاء الله ؟؟؟؟ ) معظمكم قد يوجه هذا السؤال لنفسه
لان المادة اتطورت وضعت بشكل جديد ثلث حيث يسهل على الطالب والمعلم والقارئ الفهم انا طالب فى الصف الثالث الاعدادي خلصنا الامتحانات ...............
ونصيحة من اخ لا مذكرة ولا برشامة بتنفع اقري من الكتاب ولخص النقط المهمة فى كراسة الامتحان بيجي من بين السطور

وده ايميلي mona2002330***********

السلام عليكم
انا اخوكم مصطفى الشهاوى من الاسكندرية
انا طالب بالصف الثالث الاعدادى بس مدرةس لغات
ارجو ان ترسلو لى اى مذكرة كمبيوتر لغات لانى مش فاهم اى حاجة
تليفون / 0189927259
المنزل/ 03-5016032

that is not good حد خلص اي مادة

صباح الفل علي الحاسب الالي دة مادة زبالة بس هما هيجبو ورقة عربي والثنيا انجليزي حل ال عربي و بعدين الانجليزي

tyb kol wa7d byktb enno sa3b e e7na 3arfeen kda
tyb 3awzen 7d y7l el moshkla b2a