امتحان المنوفية 2013
ملحوظة : الاجابة باللون الأخضر
( 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) ثابت حرفي يستخدم لإضافة رمز مفتاح الادخال وسطر جديد .
====================================
مع أطيب التمنيات بالتوفيق والنجاح
أ/ محمد الأخرس
====================================