[سيف سالم]

المشاركة الأصلية كتبت بواسطة 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) ثابت حرفي يستخدم لإضافة رمز مفتاح الادخال وسطر جديد .


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

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

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

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

لماذا اغفلت النقاط اللي في ورقة الاجابة
اللون الفسفوري