تجميع امتحانات الحاسب 2013 للترم الثاني

[altokhey]

امتحان المنوفية 2013

ملحوظة : الاجابة باللون الأخضر

س1 اختر الكلمة المناسبة مما بين القوسين وضعها في المكان المناسب

( and – "try/catch" – rem – end while –counter –loop –or –"for ..next" )

1- المعامل المنطقي ( Or ) يعطي ناتج نهائي ( true ) إذا كان أحد الشروط ( True) بينما المعمل المنطقي ( And) يعطي ناتج نهائي (true) إذا كان كافة الشروط ( True )


2- توفر لغة Visul basic .net إمكانية معالجة الأخطاء المحتمل وقوعها من خلال جملة Try / Catch


3- كلمة ( Rem ) تساعد على فهم الأكواد المكتوبة في نافذة وما يأتي بعدها لا يعتبر كود ويهمل تنفيذه


4- يطلق على المتغير الذي يتحكم في عدد مرات التكرار اسم Counter


5- تنتهي جملة do while…. بكلمة Loop


================================================== ========

س2 أ- أكمل البرنامج التالي
أ - لحساب مساحة دائرة (area) نصف قطرها M بحيث يعطي رسالة " غير مسموح عند ادخال عدد سالب في مربع النص textbox1 الذي تم تخصيص قيمته للمتغير M :

Dim M, area As Single

Const Pi As Single =22 / 7

M = Me.textBox1.text

If M >= 0 Then

Area = Pi * M^2

MsgBox ( " area of Circle = " & area )

Else

MsgBox ( " غير مسموح")

End If

ب- استخرج من الكود التالي :

Function calc ( ByVal fn As single , ByVal sn As single ) As Decimal

Dim Total As Single

Total = fn + sn

Return total

End Function

اسم الإجراء

وسائط هذا الاجراء

القيمة الراجعة

نوع البيان الخاص بـ

الدالة
وسيط الدالة
القيمة الراجعة
Calc
Fn , Sn

Total
Decimal
Single
Single

==================================================

س3 صحح الكلمة التي تحتها خط فيما يلي :-
1- ناتج تنفيذ العملية الحسابية 2^2 + (10 – 2 * 5 ) / 2 هو 9 الحل ( 4 )


2- الأخطاء الاملائية والنحوية الحل ( المنطقية ) تؤدي الى نتائج غير سليمة عند استخدام تعبيرات بناؤها غير سليم في جمل التخصيص .


3- تستخدم الخاصية Enabled الحل ( Interval) لأداة المؤقت timer لتحديد الفترة الزمنية بالملي ثانية.


4- افضل حلقة تكرارية تستخدم عند معرفة عدد مرات التكرار مسبقا Select …. Case . الحل For ... Next


5- ناتج الدالة IsNumeric دائما يكون No. الحل True Or False


6- & الحل ( VbCrlf) ثابت حرفي يستخدم لإضافة رمز مفتاح الادخال وسطر جديد .


====================================

مع أطيب التمنيات بالتوفيق والنجاح

أ/ محمد الأخرس

====================================