نماذج امتحانات للصف الأول الاعدادى مادة الحاسب الآلى

السؤال الأول : اختر الإجابة الصحيحة مما يلي :
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- الجملة التالية يتم تنفيذها فقط في حالة أن يكون الشرط يساوى :
IF ( Condition )
MsgBox("n is divisible by d")
End IF
أ) ( 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