تاريخ الحاسب الآلى : تاريخ الحاسب الآلى أسئلة هامة

تاريخ الحاسب الآلى : تاريخ الحاسب الآلى أسئلة هامة: https://www.facebook.com/download/preview/369038619933728 نماذج الوزارة بعض نماذج الامتحانات بالحلول النموذجية  سؤال وإجابة نموذجية  ...

تاريخ الحاسب الآلى أسئلة هامة

https://www.facebook.com/download/preview/369038619933728
نماذج الوزارة

بعض نماذج الامتحانات بالحلول النموذجية 

https://www.facebook.com/groups/371834209635981/

سؤال وإجابة نموذجية 

ضع علامة " √ " امام العبارة الصحيحة وعلامة " × " امام العبارات 

الخاطئة:-

1الاجراءات sub لا يعود بائ قيمة اما functions تعود بقيمة ( √ )

2- يمكن استخدام الكلمات single او double كأسماء لمتغيرات في

 البرنامج ( × )

3- المعامل and يعطي ناتج نهائي True اذا كان ناتج كافة الشروط

 True ( √ )

4- في الامر Do While…Loop يستمر تكرار تنفيذ الاوامر طالما 

الشرط ناتجه False ( × )

5- تستخدم ( (Select ….case) في حالة وجود اكثر من احتمالين 

للتفرع ( √ ) 

مجموعة أسئلة على الترم الثانى صح وخطأ على جميع الفصول 

ضع علامة صح أمام العبارة الصحيحة وعلامة خطأ أمام العبارة الخطأ

1- جميع المدخلات التي يتم إدخالها تكون مدخلات حرفية.                                                                                                                                                (صح)

2- المتغيرات من نوع single الحد الأقصى للدقة هو 7 خانات.                                                                                                                                            (صح)

3- عند اختيار اسم المتغير أو الثابت بمكن أن يحتوى الاسمعلي مسافات.                                                                                                                           (خطأ)

4- الصيغة N=N+1 صيغة أمر تخصيص.                                                                                                                                                                        (صح)

5- أمر   IF…..THEN هو أمراختيار مزدوج.                                                                                                                                                                   (خطأ)

6- عملية إعطاء اسم الخلايا التي تحمل قيم ثابتة يطلق عليهاإعلان ثابت.                                                                                                                        (صح)

7-  عند اختيار اسم المتغير أو الثابت يمكن أن يكون الاسم من الكلمات المحجوزة.                                                                                                               (صح) 

8-  اسم المتغير الآتي (spend .money) صحيح.                                                                                                                                                     (خطأ) 

9-  الأمر IF……THEN….ELSE هو أمر اختيار فردي.                                                                                                                                                   (خطأ )  

10-  لإلغاء كل القيم من الأداة List box يتم استخدام طريقة method ونستخدم clear                                                                                                      (صح) 

11-  الثوابت هي قيم لا تتغير أثناء تشغيل البرنامج.                                                                                                                                                 (صح)                       

12-  المتغيرات من نوع long تستخدم لتخزين الأعداد الصحيحة فقط.                                                                                                                           (صح)         

13-  يتيح برنامج vb التحويل من القيمة الحرفية إلي عددية وعكس.                                                                                                                              (صح)         

14-  عند تحويل البيانات الحرفية إلي رقمية نستخدم دالة to string.                                                                                                                              (خطأ)

15-  الأمر if ….then يستخدم إذا كان هناك بديلين.                                                                                                                                                  (خطأ)

16-  المتغيرات من نوع decimal  الحد الأقصى للدقة 29 خانة.    (صح)        

17-  يتم الإعلان عن المتغيرات باستخدام dim .                      (صح)

18-  الخاصية check  تستخدم لتحديد إذا كانيمكن التعامل مع الأداة.    (خطأ)

19-  أسم المتغير الأتي  3frist name صحيح.                                 (خطأ)

20-  يستخدم الأمر dowhile …..loop عندما يكون عدد مرات التكرارمعروفة مسبقا (خطأ)

21-  في الأمر for….next يتم التكرار إذا كان الشرط صحيحا.                          (خطأ)

22-  في الأداة check box  يتم اختيار بديل واحد فقط.                                 (صح)

23-  مع المتغير من النوع date  نستطيع جمع وطرح وجمع الساعات.              (صح)

24-  لا يوجد أولويات لتنفيذ العمليات الحسابية المهم إتمامها.                        (صح)

25-  يستدعي التاريخ والوقت بنظام يسمي current time.                           (خطأ)

26-  المتغيرات من نوع (decimal, single, double) تسمح بتخويل الأعداد التي تحتوي علي كسور ولكن بدرجات دقة متساوية.                                                                          (خطأ)

27-  أسم المتغير Ahmed  صحيح.                                                          (خطأ)

28-  يستخدم الرمز = لربط أكثر من قيمة حرفية في متغير حرفيواحد.              (خطأ)

29-  يتم تحويل أنواع البيانات إلي النوع double بواسطةالتحويل التلقائي.         (خطأ)

30-  في حالة وجود أكثر من أولوية عند تنفيذ العملياتالحسابية يتم الحساب من اليمين إلي اليسار.             

31-  لا يختلف مفهوم = في أمر تخصيص من المعاملات الرياضية.              (خطأ)

32-  يتم تغير الوقت والتاريخ للكائن لنوعية date عن طريقعمليات جمع أوطرح عادية (خطأ)

33-  يتم التحكم في الفترات الزمنية في الفترات الزمنية لنشاطtimer عن طريقالخاصية enable                                                                                                                              (خطأ)

34-   في قاعدة for…..next إذا كانتقيمة العداد أقل من القيمة في end ينتهي التكرار ويذهب البرنامج إلي أول أمر بعد next .                                                                                    (خطأ)

35-  تتم عملية المقارنة في vb بمقارنة الرمز في أقصي اليمينللمتغير الأول بالرمز المناظر للمتغير الثاني     .                                                                                                           (خطأ)   

36-  عند استخدام بعض الأوامر مثلif  الشرطية وقاعدة try/catch يتم تجاهلبعض الخطوات حيث أنهما قد يتسببان في عدم تنفيذ الأوامر بترتب معين.                                                  ((صح))

37-  علامة تعني تساوي.                                                                         (خطأ)

38-    يحب أن يعبر اسم المتغير أو الثابت عن معنيمناسب لاستعماله.                 (صح)

مجموعة أسئلة على أنواع البيانات

1- Dim x as short = 20.4
Dim y as single=10.4
فان x+y= ( 20.8 – 21 – 30.4 )

2- Dim d as string = “16”
Dim y as byte =5.6
فان d+y = ( 21.6 - 22.3 - رسالة خطأ )

3 - اذا كان 13 mod 2 +9/3 =
( 9.5 – 4 – 3.3 )

4- Dim x,y as integer
X=20
Y=y+2*x
X=x+5
فان قيمة y = ( 40 – 15 – 30 )
قيمة x= ( 20 – 15 – 10 )

5- Dim x as short = 21.5
Dim y as short
Dim z as short
Y=x-8
Z=y/4
فان قيمة المتغير y هي ( 13 – 13.5 - 7)
و قيمة z ( 3.25 – 25. – 3 )

6- Dim Arabic as single = 25.5
Dim math as single = 25.5
Dim d as decimal =Arabic+math
فان d = ( 50 – 51 – 52 )

7- Din x as single هذا الامر يعطي خطأ ( منطقي – املائي و نحوي – اثناء التشغيل )

الإجابة 

1=30'4      

  2 رساله خطا     

   3=4  

 4- X20,y40  

5- Y13,z3    

6-  51

7- املائى نحوى

اكمل مكان النقاط مستخدماً الكلمات الاتية لجعل الجملة صحية : 

( الاجراء - المتغيرات - جملة التخصيص - الدوال المعرفة - المؤقت - 

الأخطاء المنطقية )

1- المتغيرات هى اماكن فى ذاكرة الكمبيوتر يخصص لها

       قيمة يمكن لهذه القيمة ان تتغير أثناء تنفيذ البرنامج .

2- الاخطاء المنطقية تؤدى إلى نتائج غير سليمة أثناء تنفيذ

 

                                 البرنامج .

3- جملة التخصيص تعنى تخزين قيمة داخل متغير .

4- المؤقت هى أداة تستخدم لتكرار كود كل فترة زمنية 

                  محددة .

5- الدوال المعرفة هى إحدى مكونات لغة البرمجة يتم 

                         استدعاؤها مباشرة أثناء تنفيذ البرنامج .

6- الاجراء هو مجموعة من الاوامر والتعليمات تحت اسم ما

                   عند استدعاء هذا الاسم يتم تنفيذ هذه الاوامر 

محافظة الغربية

1.    الكود (for m=3 to 15 step3) سيقوم بعرض ................

(الارقام التي تقبل القسمة على 3 – الارقام الفردية – الارقام المتتالية من 3 الى 15 )

2.    التعبير الشرطي Do while y>50 ) ) يظل True طالما انقيمة Y ................

( اقل من 50 – اكبر من 50– تساوي 50 )

3.    الكلمة المحجوزة VBCRLF تستخدم في ................

( انشاء سطر جديد– تنظيم قراءة الكود – الربط بين النصوص )

4.    القيمة  الراجعة للدالة Area كما هو موضحفي اعلان الدالة

Function Area (by val radiusAs single ) As single

تكون ................ ( Integer – Single – radius )

5.    ناتج الكود (Label1.text=isnumeric(10)) هو ................ ( False – True – عشرة )

6.    يتم وضع الكود الخاص بمعالجةالخطأ بعد ................ ( Catch – try – End try )

محافظةالقاهرة                                                                      

أكمل العبارات الآتية مستخدماً الكلمات المعطاة :

And  -  OR  -  Sub   -   Do While   -   Now ( )   -   Show           

    -    Select case   -   " "                 التساوي الحسابي   -   &   -    #  # 

 

1- تستخد م علامتي  ........................ #  #  ..............     في كتابة تاريخ أو وقت .

2- المعامل   ...... And...     يتطلب أن يكون الشرطان ناتجهما  ( True )   لكي يكون الناتج النهائي  ( True )

3- علامة التخصيص (= ) لا يقصد بها  . التساوي الحسابي   ..  في جملة التخصيص

4- تستخدم جملة...... Select case   ..    في حالة وجود أكثر من احتمالين للتفرع .

5- الدالة  ....... Now ( ).......   ناتجها هو تاريخ ووقت جهاز الكمبيوتر .

6- الإجراء ........ Sub......   لا يعود بأي قيمة  

أختر الرقم المناسب للعبارات الآتية :

  ( 1 )                     Dim A,B,C as Integer  

     B = TextBox1.text

     C = TextBox2.text                      ( 2 )

     For  A = 1 To B step C

     TextBox3.Text = TextBox3.Text & A& VbcrLf               ( 3 )

      Next

( ب ) أختر ناتج  تنفيذ كل من الأكواد التالية  :

         (        ) Overflow                        Dim R as Integer = 1

           (        )  2                                      Do While  R < = 1  

         (        )  0                                          R  =  R -  2

                                                              Loop

                                                             MsgBox ( R )

 

(      ) M X N = 90                        Dim M , N as Integer         

(      ) 1 X 9 = 9                             M = 10         

(      ) 1 X 9 = M X N                    N = 9         

                                                              M = M – N

                                                              Msgbox ( M & "X" &N&"="&M*N)

         (     )  True                                   Dim A asbyte  = 20

         (     )  False                                  If A mod 3 =0 Then

         (      ) 20                                           Label1 . Text = " True "

                                                              Else

                                                             Label1.Text = " False "

                                                             End if

محافظة كفرالشيخ

اختر الاجابة الصحيحةمما بين الأقواس

1- بعد تنفيذ الصيغة الحسابية2+3*4 يكون الناتج                      ( 9- 20- 14  )

2- فى جملة Do while …..Loop يستمر تنفيذ الكود ( أوامرالتكرار) طالما الشرط

                                   ( True – Nothing- False )

3- تستخدم مجموعة أوامر Try/ Catch ..................

       ( لاكتشاف الاخطاء والتعامل معها – لتكرار أمر عدد من المرات –لتكرار أمر مرة واحدة )

4- الكلماتالآتيـة يمكن استخدامها كأسـماء لمتغـيرات عـدا الكلمـة ( Total – As – Age )

                                                                                    (النقطة رقم 4 منهج قديم فى نماذج الوزارة  )

5- اى من الصيغ التالية صحيح كأمر تخصيص

( Number = 10  -  Y+3 = Number     –    3= Number   )

بعد تنفيذ الكود التالى فى العمود ( ب ) أكملمكان النقط فى العمود ( أ )

( أ )

( ب )

   بعـد تنفيـذ هذه التعليمـات، أكمـل مكـان النقـط:

  1- قيمة المتغير  C  تسـاوي ....11....

  2-  قيمة المتغير  N تسـاوي .....11....

  3- ناتج الشرط  N > C  يسـاوي True

4- قيمة المتغير   Kتسـاوي:7 

Dim N , K , C  As Integer                     

C = 10                                    

 For  N = 1  To  10  Step  5           

 K = K + N                             

Next                                       

If  N > C Then                        

C = C + 1                           

End If                                        

الحل :                                        0

K

العداد N

عدد مرات التكرار

1

7

1

6

1

2

                                                             C               قيمة الشرط      K                        N

                                                            11                True                    7                 11

أكمل الجمل التالية بالكلمات المناسبة

                                        
                                               ( Tick – Text Box- Or – Procedure – Sub – And   )

1-    المعامل Or يعطى ناتج نهائى True اذا كان احد الشروط True

2-    يتم استقبال مدخلات مستخدم البرنامج من خلال العديد من الادوات منها Text Box

3-    Procedureمجموعة من الاوامر والتعليمات تحت اسم معين عند استدعاءهذا الاسم يتم تنفيذ هذه الأوامروالتعليمات

4- نلجأ للاعلان عن Sub فى حالة  إذا ما كان لدينا كود Code  سيتكرر كتابته في أكثر من موضع داخل التصنيف   Class

5- Tick هو الحدث الافتراضى لاداة المؤقت ويعنى مرور الفترة الزمنية المحددة فى الخاصية Interval 

  مجموعة أسئلة اكمل من عدد من المحافظات  على الفصل الأول 

1- تستخدم   فى الإعلان عن الثوابت .................... Const   (دمياط)

2- يستخدم المتغير من النوع ..........................  Data لتخزين بيانات على شكل تاريخ ووقت  (البحيرة)

3- من قواعد تسمية المتغيرات أو الثوابت فى البرنامج ، يجب أن تبدأ ب   حرف  أو  (،)    (كفر الشيخ )

اختر الاجابة الصحيحة مما بين القوسي 

1- تنتهى جملة If ..............Then......................Else  بأمر           (المنوفية)

   

                                                                                 ( End If - End Then - End Else )

  

2-  الأمر ..................... بستخدم فى حالة ما إذا كان هناك بديلين   (أ ، ب)

        

                ( If ..............Then......................Else  -     Then - If-     Boolean)     

3- إذا كانت قيمة  (  60= X  )   وقيمة (45=Y)   فان ناتج الشرط (X>=y)     يكون 

                             ( Ture   -   False   -   Null)            

أوجد ناتج كل عملية حسابية

أسئلة وإجوبة نموذجية
على العمليات الحسابية الآتية من مجموعة من المحافظات على مستوى الجمهورية
خطوات الحل كالآتى

نبدء بالأسس ثم فك الاقواس ثم القسمة

محافظة الاسماعيلية

5/(23+2) + 3 ^ 2 يصبح الحل

25/5 + 8 = 13

............................................................................................
محافظة بنى سويف

2+4+3 * 2^3

7 + 2 * 9

7 + 18 = 25
............................................................................................
محافظة قنا

(2+4 ) * 2^3

6 * 9 = 54
............................................................................................
محافظة الدقهلية

3 * 4 + 3 = 15
............................................................................................
محافظة الغربية

7 /3 * (2^3+2)

3/7 * 7 = 3

............................................................................................

محافظة أسوان

2 ^ 2 * 5 + 4 * 3
4 * 5 + 12 = 32

............................................................................................

محافظة الاسكندرية

2 ^ 2 * 5 + 4 * 3

4 * 5 + 12 = 32

............................................................................................
محافظة بورسعيد

5 + 2 * 6
5 + 12 = 17

............................................................................................
محافظة كفر الشيخ

6 * 2 + 5
12 + 5 = 17

............................................................................................
محافظة قنا

5 + 2 ^ 4
5 + 16 = 21

مسائل هامة على قاعدة For................Next
   
                                       Do While Loop

1)

dim I , Sum as integer

for i=1 to 7 step 3

sum=sum+1

next

mag box (sum)

mag box( I)

ما قيمة I & sum & no of loop ??

الحل هو 

sum=1+1=2 التكرار الثانى 

sum=2+1=3 التكرار الثالث

    sum=3       I =10
2)

حدد قيم المتغيراتz, y

dim z,y as integer 

y=0

for z=2 to 6 step 2

mag box z

y=y+z

next z

mag box y

الحل   

                             كود لطباعة مجموع الاعداد الزوجية من 2 الى 6 

                                                                       y= 2+ 4+6 = 12

                                                                                      z= 8

(3

1- X = 4.5

 2- For I = 0 To 7 Step 3

3- X = X * 2

4- Next

X =

     I =

الحل هو              I    9        X    36  

كمل البرنامج التالي مستخدما جملة For لطباعة الأعداد 

الفردية من 3 إلى 8 مستخدما جملة Meg box في طباعة 

الأعداد 

Dim N As Integer 

……………………………..…………………………………………………………..وما هي قيمة المتغير ( N ) بعد انتهاء التكرار

الإجابة هى 

For N = 3 to 8 Step 2

(msg box9 (N

Next

قيمة N بعد انتهاء التكرار 9

4)  حول من Do while الي For .... Next

Dim x , Y As Single
x = 8
y = 2
Do while x < 12
x = x + y
y = y + 1
Loop
( Meg Box ( x

الإجابة هى

Y = 2
For x = 8 To 11 Step 5
Y = Y + 1
Next
(Meg Box (x

5)

على قاعدة If

Dim x, y as single

X = 45

Y = 10

If x< 10 then 

Y = 100

End if

Y= x*2+4

فان قيمة x = و y =

x=45 , y=94

سؤال وإجابة نموذجية 

بما تفسر

١_ msgbox .show ("تحيا مصر" ، "مصر")

٢_ list box 1.items.clear ()

3_ TX tn .focus ()

4_ label 1.text=now ()

الإحابة 

سيتم إظهار رسالة بها كلمة تحيا مصر في عنوانها وفي محتواها مصر 

2- إفراغ الأداة list box 1 من محتواها 

3- نقل التركيز للأداه    TX tn

4-إظهار الوقت والتاريخ المخزنين في نظام الكمبيوتر الحالي في

 الأداة label 1

سؤال من النماذج هام جداً 

وكانت الإجابة

الكود بيتنفذ سطر سطر ... n,k.c ا   c=10 .. و N=1 و K=0 .. ال k بقت بواحد K=0+1 وبعدين Next نرجع
 ل
 For تانى N كانت بواحد step 5 يبقى N بقت ب 6 ,وال c=10 زى ما هى نروح على الK >> هتبقى 

k=1+6 تبقى 7 ونروحNext نرجع على For ال N =6 نزود 5 بقت N =11 نخرج من الحلقة علشان قيمة 

النهاية اصغر من 1 الى 10 وال N =11 نخرج اخر مقارنة n>=c ال N=11 وال c=10 يبقى True ننفذ جملة 

Then وهى c=c+1 يعنى C=10 +1 يبقى c=11 و n=11 و k=7 لانو خرج من الحلقة او ما n بقت ب 11 اخر 

قيمة لk كانت 7

 سؤال هام من الكتاب المدرسى

سؤال هام  من تدريبات الكتاب المدرسى ومجافظة المنوفية 

تفسير الحل 

البرنامج 

نماذج أسئلة

أسئلة هامة على الفصل الخامس

أسئلة على التعدي الإلكتروني

السؤال الأول : ضع علامة صح امام العبارة الصحيحة وعلامة خطأ أمام العبارة الخطأ.
1. التعّدي الإلكتروني هو عبارة عن سلوك عدواني متعمد, باستخدام الوسائط الإلكترونية للتحرش, أوالمضايقة, أو إحراج, أو تخويف أو تهديد الآخرين. ( )
2. لا توجد صور من التعّدي الإلكتروني داخل المجتمع المصري ( )
3. من أشكال التعدي الإلكتروني التخفي الإلكتروني ( )
4. المتعدّي الإلكتروني يهدف إلى إيقاع ضغوط نفسية على الآخرين باستخدام و سائل متعددة عن طريق وسائط الكترونية ( )
السؤال الثانى : ضع علامة صح ( ) امام العبارات التي تساعدك فى حماية نفسك من التعدي الإلكتروني.
1. لا تشارك أحد بكلمة السر. ( )
2. كلمة السر يمكن إن تكون تاريخ ميلاد أو شي سهل يمكن تذكره. ( )
3. لا تنشر معلومات خاصة على الإنترنت. ( )
4. تخلص من الرسائل الإلكترونية المرسلة من المتعدي إلكترونيـاً. ( )
5. لا ترد على المتعدي إلكترونيـاً، ولا تصدق كل ما يكتبوه على الإنترنت. ( )
6. قم بالإبلاغ عن التعدي الإلكتروني للسلطات المختصة. ( )
السؤال الثالث : اشترك أحد الأشخاص فى أحد مواقع التواصل الإجتماعى . كلما راسل أحد الأعضاء أو حاول إجراء محادثة فورية لا حظ عدم الرد عليه .
يعتبر ما حدث شكل من أشكال ...................... ويسمى ........................
يعتبر ما حدث شكل من أشكال التعدي الإلكتروني ويسمى الاستثناء الإلكتروني (Exclusion)

حل أسئلة وتدريبات الفصل الأول

بالكتاب المدرسى ص 28

السؤال الأول : فى نافذة النموذج الآتية :

 إذا أردنا أن نخزن مدخلات المستخدم فى متغيرات حدد نوع البيان المناسب لكل مدخل من مدخلات                مستخدم البرنامج :

1 – String   نصى   2 – Date   تاريخ ووقت   3 – Boolean  منطقى         4 - String   نصى

السؤال الثانى : فى الكود ( Code ) الآتى :

Private Sub Button1_Click(ByVal sender

        Dim Radius As Single

        Const X As Single = 22 / 7

        Radius = Me.TextBox1.Text

        Me.Label2.Text = X * Radius ^ 2

    End Sub

إستخرج أسماء المتغيرات والثوابت بأنواعها :

أ – المتغير Radius       ونوعه رقمى غير صحيح Single                       وقيمته 0

ب – الثابت X     ونوعه رقمى غير صحيح  Single                      وقيمته 22 / 7

السؤال الثالث :

فى الأكواد الآتية حدد سبب الخطأ :

السبب : لا يجوز تحويل القيمة النصية String "خمسة عشرة درجة" المدخلة فى صندوق النص  TextBox1 إلى نوع بيان رقمى صحيح Byte

السبب : نتيجة إدخال قيمة خارج المدى المسموح به  Overflow Exception  فى صندوق النص TextBox2 والمخصصة للمتغير Computer

السؤال الرابع : حدد ما هو الكود ( Code ) المطلوب كتابته حسب ما تشير إليه الأسهم :

Try

       المحتمل أن يظهر منه خطأ أثناء التشغيل  Code   يتم وضع الكود

   Catch  ex  As  Exception

      الخاص بمعالجة الخطأ إذا وقع   Code   يتم وضع الكود

End Try

        يتم وضع الأكواد المتأكد ألا يظهر بها أخطاء و باقى الأكواد

السؤال الخامس : حدد نوع الخطأ فى الكود ( Code ) الآتى ثم صوبه :

الكود ( Code )	نوع الخطأ	التصويب
Din x As Single	إملائى ونحوى Syntax Errors	Dim x As Single
Const x As Single	إملائى ونحوى Syntax Errors	Const x As Single = 5

السؤال السادس : عند كتابة الكود يحتاج المبرمج لوضع تعليق معين لا يتم تنفيذه  ، لابد أن يسبقه :

1 – الكلمة REM                               أو                                             2 – العلامة  '

فسر الكود المشار إليه بالأرقام على الشكل :

1 – الإعلان عن المتغير UserName من نوع بيان String و المتغير UserBirthDate من نوع بيان Date و المتغير UserGender من نوع بيان Boolean و المتغير UserTelNo من نوع بيان Integer

2 – تم تخصيص قيمة الخاصية Text  للأداة TextBox1  للمتغير UserName  و  تم تخصيص قيمة الخاصية Text  للأداة TextBox2  للمتغير UserBirthDate  و  تم تخصيص قيمة الخاصية CheckState   للأداة CheckBox1  للمتغير UserGender و  تم تخصيص قيمة الخاصية Text  للأداة TextBox3  للمتغير UserTelNo

السؤال الثامن : رتب السطور الآتية وفقاً لأولويات تنفيذ العمليات الحسابية :

الرتبة	العملية
(  3  )	الضرب والقسمة من اليسار إلى اليمين
(  1  )	الأقواس من الداخل إلى الخارج
(  4  )	الجمع والطرح من اليسار إلى اليمين
(  2  )	الأسس

السؤال التاسع : حدد ناتج تنفيذ العمليات الحسابية الآتية :

أ – ( 5 + 3 ) * 2              النتيجة :  16

ب - 5 + 3   * 2               النتيجة :  11

السؤال العاشر : ضع علامة (    ) أمام العبارة الصحيحة ، وعلامة (    ) أمام العبارة الخطأ :

(  1  )	أحد قواعد تسمية المتغيرات أو الثوابت فى البرنامج أن يبدأ اسم المتغير بحرف أو رقم.	(  )
(  2  )	يتم الإعلان عن المتغيرات باستخدام جملة Dim.	(  )
(  3  )	المتغير من النوع Double  يأخذ القيمة True  أو False.	(  )
(  4  )	المتغيرات من أنواع ( Integer & Long & Double ) تستخدم لتخزين الأعداد الصحيحة فقط.	(  )
(  5  )	يتم استقبال مدخلات المستخدم من خلال العديد من الأدوات منها TextBox.	(  )

  

حل أسئلة وتدريبات الفصل الثانى

بالكتاب المدرسى ص 53

السؤال الأول : ضع علامة (  ) أمام العبارة الصحيحة ، وعلامة (  ) أمام العبارة الخطأ :

(  1  )	عدد اختيارات التفرع الممكنة مع استخدام جملة If … Then … Else هو 2.	(  )
(  2  )	ينفذ الكود الذى يلى Else فى جملة If عندما يكون ناتج التعبير الشرطى True.	(  )
(  3  )	المعامل & هو أحد معاملات المقارنة المنطقية.	(  )
(  4  )	باستخدام معامل المقارنة Or يجب أن يكون كافة نواتج الشروط المستخدمة False لكى يكون الناتج النهائى False.	(  )
(  5  )	تستخدم جملة Select Case  فى حالة اختبار أكثر من تعبير شرطى بجملة شرطية واحدة.	(  )
(  6  )	إذا كانت قيمة المتغير X تساوى 15 والمتغير Y تساوى 350 فإن ناتج التعبير الشرطى  (X>10 And y<500) هو False.	(  )
(  7  )	استخدام Else  اختيارى فى جملة If.	(  )
(  8  )	المعامل And  يتطلب أن يكون الشرطان ناتجهما True لكى يكون الناتج النهائى True.	(  )
(  9  )	الخاصية التى تشير إلى ترتيب العنصر المحدد بالأداة ListBox هى SelectedIndex.	(  )
( 10 )	تستخدم Select Case فى حالة وجود أكثر من احتمالين للتفرع.	(  )

السؤال الثانى : يستخدم الكود Code التالى لحساب مساحة دائرة نصف قطرها R قم بإعادة كتابة الكود فى العمود الأيسر بحيث يعطى رسالة " غير مسموح " عند ادخال عدد سالب فى مربع النص TexrBox1 الذى خصص قيمته للمتغير R ؟.

الكود قبل التعديل	الكود بعد التعديل
Dim r , area  As Single Const pi As Single = 22 / 7 r = Me.TextBox1.Text area  = pi * Radius ^ 2 MsgBox("area of circle =  " & area)	Dim r , area  As Single Const pi As Single = 22 / 7 r = Me.TextBox1.Text if r >= 0 Then    area  = pi * Radius ^ 2    MsgBox("area of circle =  " & area)  Else    MsgBox("غير مسموح") End If

السؤال الثالث : قم بدراسة الكود Code التالى دراسة جيدة والذى يحدد التقدير المناسب لكل درجة مدخلة فى مربع النص TexrBox1 :

حدد ما يتم عرضه فى أداة العنوان Label2 عند إدخال الدرجات التالية فى مربع النص TextBox1  ؟

الدرجة المدخلة	الناتج
30	ضعيف
84	جيد جداً
64.4	جيد
-33	يرجى إدخال درجة بين صفر و 100
صفر	رسالة خطأ وقت التشغيل Runtime Error to type 'Single' is not valid "صفر"  Conversion from string.
114.3	يرجى إدخال درجة بين صفر و 100

السؤال الرابع : يستخدم الكود التالى لحل معادلة من الدرجة الأولى ( y=3x+2 ) ويعطى نتائج صحيحة عند إدخال قيم عددية فى مربع النص TextBox ولكن حدث خطأ أثناء التشغيل Runtime Error  عند إدخال قيم حرفية فى مربع النص TextBox ، قم بإعادة كتابة الكود Code بعد حل هذه المشكلة باستخدام جملة If إضافية بحيث يعطى رسالة فى أداة العنوان وهى "يجب إدخال قيمة عددية" ؟

الكود قبل التعديل	الكود بعد التعديل
Dim x , y  As Single x = Me.TextBox1.Text y = 3 * x + 2 Label1.Text = y	Dim x , y  As Single If  Isnumaric( Me.TextBox1.Text )  Then     x = Me.TextBox1.Text     y = 3 * x + 2     Label1.Text = y  Else     MsgBox(" يجب إدخال قيمة عددية") End If

السؤال الخامس : اختر ناتج تنفيذ كل من الأكواد التالية :

م	الكود	الناتج
1	Dim Num As Integer = 10 If Num >= 10 Then       Me.Label1.Text = "One"    ElseIf Num = 5 Then       Me.Label1.Text = "Two"    Else       Me.Label1.Text = "Three" End If	●        "One" ●        "Two" ●        "Three"
2	Dim A As Integer = 15 If A Mod 3 = 0 Then       Me.Label1.Text = "True"    Else       Me.Label1.Text = "False" End If	●        "True" ●        "False" ●        15
3	Dim strName As String = "Ahmed" strName = " " & strName strName = "Youssif" & strName Label1.Text = strName	●        Youssif Ahmed ●        Ahmed Youssif ●        Ahmed
4	Dim A As Integer = 7 Dim B As Integer = 9 MsgBox( A & "" & B & "=" & "  " & A * B)	●        AB= 63 ●        79=  63 ●        79= A*B
5	Dim x As Integer = 2 , y As Integer = 3 , z As Integer = 4 If x = y And X <> z  Then       Label1.Text = "First"    Elseif x = y Or X <> z  Then       Label1.Text = "Second"    Elseif x <> y And X <> z  Then       Label1.Text = "Third"    Else       Label1.Text = "Forth" End If	●        "First" ●        "Second" ●        "Forth"

  حل أسئلة وتدريبات الفصل الثالث

بالكتاب المدرسى ص 78

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

                   1 – الغرض من استخدام جملة Do While     Loop  هو :

                                    أ – تكرار كود Code حتى يصبح التعبير الشرطى True

                                    ب – تكرار كود Code طالما الشرط True

                                    ج – تكرار كود Code طالما الشرط False

                   2 – فى جملة ( For …. Next )  ما وظيفة الأمر Next ؟

                                    أ – زيادة قيمة متغير الحلقة بقيمة معدل الزيادة

                                    ب – مقارنة قيمة متغير الحلقة بعد الزيادة مع قيمة النهاية

                                    ج – كل ما سبق

                   3 – أفضل حلقة تكرارية تستخدم عند معرفة عدد مرات التكرار مسبقاً هى :

                                    أ – Do While

                                    ب – For …. Next

                                    ج –Select   Case

                   4 – بعد تنفيذ الكود Code التالى فإن ما يتم عرضه فى صندوق النص ( txt_display ) هو :

                                    أ – 2

                                    ب – 246810

                                    ج – 2345678910

                   5 – بعد تنفيذ الكود Code التالى فإن ما يتم عرضه فى أداة العنوان ( lbl_display ) هو :

                                    أ – 10

                                    ب – 11

                                    ج – 0

                   6 – بعد تنفيذ الكود Code التالى فإن ما يتم عرضه فى أداة العنوان ( lbl_display ) هو :

                                    أ – 5

                                    ب – 10

                                    ج – 15

السؤال الثانى : ضع علامة (  ) أمام العبارة الصحيحة ، وعلامة (  ) أمام العبارة الخطأ :

(  1  )	الأمر MsgBox "3" & "X" & "3" يعرض صندوق رسالة به 9.	(  )
(  2  )	قيمة (M) بعد انتهاء تنفيذ الحلقة ( For m=3 To 1 Step -1 ) هو 0.	(  )
(  3  )	فى حالة عدم كتابة (Step) مع جملة ( For … Next ) فهذا يعنى أن قيمة الزيادة 0 افتراضياً.	(  )
(  4  )	فى حالة تحديد القيمة 2500 للخاصية ( Interval ) للأداة ( Timer ) فهذا يعنى 2.5 ثانية.	(  )
(  5  )	يمكن الخروج من الحلقة التكرارية ( Do While ) بناءً على تعبير شرطى.	(  )

السؤال الثالث: ما هى قيمة المتغير (r) بعد تنفيذ كل كود Code مما يلى :

Dim r As Single = 0.5     Do While r > 1              r = r + 0.5           Loop                     MsgBox(r)	(   0.5   –   1   –   1.5   )
Dim r As Integer = 1     Do While r <= 1            r = r – 2            Loop                    MsgBox(r)	(   Overflow   –   2   –   0   )
Dim r, sum As Integer      For r = 5 To 10 Step -1        Sum = Sum + r           Next                       MsgBox(r)	(   10   –   5   –   0   )

  حل أسئلة وتدريبات الفصل الرابع

بالكتاب المدرسى ص 97

السؤال الأول : ضع علامة (  ) أمام العبارة الصحيحة ، وعلامة (  ) أمام العبارة الخطأ :

(  1  )	يعلن الإجراء Procedure  مرة واحدة ويستدعى أى عدد من المرات.	(  )
(  2  )	الدوال المعرفة Predefined  يلزم الإعلان عنه أولاً.	(  )
(  3  )	القيمة الراجعة للدالة Area( ) هى Single  كما هو موضح فى إعلانها : Function Area(ByVal radius As Single) As Integer.	(  )
(  4  )	وسائط Parameters  الإجراء Procedure من خلالها تستقبل قيم من خارج الإجراء Procedure.	(  )
(  5  )	تستخدم الإجراءات Sub فى طرفى جملة التخصيص أما الدوال Functions لا يجوز استخدامها فى أى جملة تخصيص.	(  )
(  6  )	الإجراء Sub لا يعود بأى قيمة أما الدالة Function تعود بقيمة.	(  )
(  7  )	يشترط عند الإعلان عن الإجراءات Procedures أن تستخدم وسيط واحد على الأقل Parameter	(  )
(  8  )	وسيط الإجراء Procedure إما أن يكون قيمة مجردة أو متغير Variable أو ثابت Constant أو دالة Function	(  )

السؤال الثانى : اكتب أمام كل عبارة بالعمود (  ب ) الرقم المناسب من العمود ( أ ) :

م	(  أ  )	م	( ب )
(  1  )	الإجراء Sub	2	تستخدم فى الطرف الأيمن من جملة التخصيص ولا يخصص لها أى قيمة.
(  2  )	الدالة Function	4	تستخدم فى الطرف الأيمن من جملة التخصيص و يخصص لها قيمة عند الإعلان فقط.
(  3  )	المتغيرات Variables	1	لا يستخدم فى جملة التخصيص نهائياً.
(  4  )	الثوابت Constants	3	تستخدم فى طرفى جملة التخصيص.

السؤال الثالث : استخرج من الكود Code  الآتى :

Sub ShowOddOrEven(ByVal Start As Integer)

     Dim i As Integer

     Me.Label1.Text = ""

     For i = Start To 10 Step 2

          Me.Label1.Text = Me.Label1.Text & " " & i

     Next

End Sub

1 – اسم الإجراء :  ShowOddOrEven

2 – وسائط هذا الإجراء وأنواعها : Start                   من نوع بيان Data Type عددى صحيح Integer

السؤال الرابع : استخرج من الكود Code  الآتى :

Function Area(ByVal radius As Single) As Single

    Const x As Single = 22 / 7

    Dim res As Single

    res = x * radius ^ 2

    Return res

End Function

1 – اسم الإجراء :                             هى الدالة Area

2 – وسائط هذا الإجراء : radius                    

3 – القيمة الراجعة :                   res

4 – نوع البيان الخاص بـ :

                   أ – الدالة :                                من نوع بيان Data Type عددى غير صحيح Single

                   ب – وسيط الدالة :     من نوع بيان Data Type عددى غير صحيح Single

                   ج – القيمة الراجعة : من نوع بيان Data Type عددى غير صحيح Single والذى يجب أن يوافق                                            نوع بيان الدالة

السؤال الخامس : استخرج من الكود Code  الآتى :

Public Class Form5

  Function Sum(ByVal First As Single, ByVal Second As Single) As Single

     Dim total As Single

     total = First + Second

     Return total

  End Function

End Class

1 – اسم الإجراء :                             هى الدالة Sum

2 – وسائط هذا الإجراء :  First            و          Second

3 – القيمة الراجعة :                   total        

4 – اسم التصنيف :                    Form5

5 – نوع البيان الخاص بـ :

                   أ – الدالة :                                من نوع بيان Data Type عددى غير صحيح Single

                   ب – وسائط الدالة :    من نوع بيان Data Type عددى غير صحيح Single

                   ج – القيمة الراجعة : من نوع بيان Data Type عددى غير صحيح Single والذى يجب أن يوافق                                            نوع بيان الدالة  Sum

السؤال السادس : أكتب أى من الآتى إجراء Sub أو دالة Function  :

                   أ –

Sub ShowOddOrEven(ByVal Start As Integer , ByVal LastValue As Integer)

     Dim i As Integer

     Me.Label1.Text = ""

     For i = Start To LastValue Step 2

       Me.Label1.Text = Me.Label1.Text & " " & i

     Next

End Sub

                   ShowOddOrEven إجراء Procedure من النوع Sub

                   ب –

Function Area(ByVal radius As Single) As Single

    Const x As Single = 22 / 7

    Dim res As Single

    res = x * radius ^ 2

    Return res

End Function

                   Area إجراء Procedure من النوع الدالة Function

                   ج –

Me.Label1.Text = IsNumeric("five")

                   IsNumeric دالة معرفة Predefined Function

                   د –

MessageBox.Show(Factorial(5))

                   Show دالة معرفة Predefined Function من التصنيف MessageBox

                   Factorial إجراء Procedure من النوع الدالة Function

حل نماذج إختبارات

الكتاب المدرسى ص 101

نموذج اختبار ( 1 )

السؤال الأول : ضع علامة (  ) أمام العبارة الصحيحة ، وعلامة (  ) أمام العبارة الخطأ :

(  1  )	عدد اختيارات التفرع الممكنة مع استخدام جملة If … Then …. Else  هو 2.	(  )
(  2  )	المعامل & هو أحد معاملات المقارنة المنطقية.	(  )
(  3  )	إذا كانت قيمة المتغير X = 5 وقيمة المتغير Y = 7 فإن ناتج التعبير الشرطى X >= 5 And Y <= 7   هو False.	(  )
(  4  )	استدعاء الإجراءات Procedures يكون لمرة واحدة فقط.	(  )
(  5  )	تستخدم Dim للإعلان عن المتغيرات Variables.	(  )

السؤال الثانى : اختر الإجابة الصحيحة :

1 – فى حالة تحديد القيمة 3500 للخاصية Interval للأداة Timer فهذا يعنى :

                   أ – 3.5 دقيقة                                         ب – 3.5 ثانية                                ج – 35 ثانية

2 – أى من جمل Select  التالية ناتجها True فى حالة قيمة المتغير يساوى 8 :

                   أ – Case Is < 8                     ب – Case 1 To 6.8                   ج – Case Is >= 4

3 – عند معرفة عدد مرات التكرار لكود معين مسبقاً فإن أفضل جملة تكرار هى :

                   أ – Do While … Loop         ب – If … End If                      ج – For …Next

4 – ما القيمة المعروضة فى أداة العنوان lblOut عند تنفيذ الكود Code التالى :

Dim i As Integer

For i = 2 To 10 Step 2

   Me.lblOut.Text = Me.lblOut.Text & i & ","

Next

                   أ – 2                                                  ب – 2,3,4,5,6,7,8,9,10                         ج – 2,4,6,8,10

5 – يتم تخصيص قيم للثوابت Constants :

                   أ – عند الإعلان عن الثوابت فقط.

                   ب – أثناء سير تنفيذ تعليمات البرنامج فقط.

                   ج – عند الإعلان عن الثوابت وكذلك أثناء سير تنفيذ تعليمات البرنامج.

السؤال الثالث : أجب عما يلى :

1 – حدد قيمة كل متغير بعد تنفيذ الكود Code التالى :

المتغير	القيمة
C	11
K	7
N	11

Dim N, K, C As Integer

C = 10

For N = 1 To 10 Step 5

   K = K + N

Next  

IF N >= C Then

    C = C + 1

End IF

2 -  رتب السطور الآتية وفقاً لأولويات تنفيذ العمليات الحسابية :

الرتبة	العملية
(  3  )	الضرب والقسمة من اليسار إلى اليمين
(  1  )	الأقواس من الداخل إلى الخارج
(  4  )	الجمع والطرح من اليسار إلى اليمين
(  2  )	الأسس

3 – فى الكود  Code الآتى :

فسر الكود Code المشار إليه بالأرقام على الشكل :

1 -               أ - الإعلان عن المتغير Total من نوع بيان عددى غير صحيح Decimal

                   ب - الإعلان عن المتغير FirstNumber من نوع بيان عددى غير صحيح Decimal

ج - الإعلان عن المتغير SecondNumber من نوع بيان عددى غير صحيح Decimal

2 -               أ – تخصيص القيمة 10 للمتغير FirstNumber

                   ب - تخصيص القيمة 20 للمتغير SecondNumber

ج – جمع قيمة المتغير FirstNumber و قيمة المتغير SecondNumber  و تخصيص ناتج الجمع ( التعبير          الحسابى ) للمتغير Total

نموذج اختبار ( 2 )

السؤال الأول : ضع علامة (  ) أمام العبارة الصحيحة ، وعلامة (  ) أمام العبارة الخطأ :

(  1  )	تستخدام جملة If … Then …. ElseIf  فى حالة اختبار أكثر من تعبير شرطى.	(  )
(  2  )	المتغيرات من أنواع ( Integer & Long & Double ) تستخدم لتخزين الأعداد الصحيحة فقط.	(  )
(  3  )	باستخدام معامل المقارنة Or يجب أن يكون كافة نواتج الشروط المستخدمة False لكى يكون الناتج النهائى False.	(  )
(  4  )	تستخدم جملة Select Case فى حالة احتبار أكثر من تعبير شرطى بجملة شرطية واحدة.	(  )
(  5  )	المتغيرمن نوع  Double يأخذ القيمة True  أو False.	(  )

السؤال الثانى : اختر الإجابة الصحيحة :

1 – بفرض وجود دالة باسم AddSum( ) أى من التعبيرات الآتية غير صحيح عند استدعائها :

                   أ –X = Y + AddSum( )       ب – AddSum( ) = X + Y                     ج – X = AddSum( )

2 – لإنهاء حلقة تكرارية عند تحقق الشرط A = 2 تكتب بدايتها بالشكل التالى :

                   أ – Do While(a = 2)             ب – Do While(a < 2) Or (a >= 2)       ج – Do While(a < > 2)

3 – حدد الخطأ فى الحلقة التكرارية التالية :

Dim j As Byte

For j = 1 To 500 Step 3

   Me.ListBox1.Items.Add(j)

Loop

     أ – يجب استخدام جملة Do While بدلاً من For … Next ب – الحلقة غير منتهية             ج – خطأ فى نوع متغير الحلقة

4 – يتوقف التكرار فى جملة For M = 10 To 1 Step -2   عندما تصبح قيمة المتغير M:

                   أ – أكبر من قيمة النهاية                           ب – أصغر من قيمة النهاية                     ج – أصغر من أو تساوى قيمة النهاية

5 – حدد ناتج تنفيذ العملية الحسابية 2 – ( 7 + 2 ) * 2  :

                   أ –   -16                                ب –   14                                  ج –   5

السؤال الثالث : أجب عما يلى :

1 – أعد كتابة الكود التالى باستخدام جملة Select Case :

Dim x As Integer x = Me.TextBox1.Text If x = 0  Then    Me.Label1.Text = "القيمة تساوى صفر" End If If x > 0  Then    Me.Label1.Text = " القيمة أكبر من الصفر" End If If x < 0  Then    Me.Label1.Text = "القيمة أصغر من الصفر" End If

Dim x As Integer x = Me.TextBox1.Text Select Case x    Case 0      Me.Label1.Text = "القيمة تساوى صفر"    Case Is > 0      Me.Label1.Text = " القيمة أكبر من الصفر"    Case Is < 0      Me.Label1.Text = "القيمة أصغر من الصفر" End Select

2 – اكتب أمام كل عبارة بالعمود ( ب ) الرقم المناسب من العمود ( أ ) :

م	(  أ  )	م	( ب )
(  1  )	الإجراء Sub	2	تستخدم فى الطرف الأيمن من جملة التخصيص ولا يخصص لها أى قيمة
(  2  )	الدالة Function	4	تستخدم فى الطرف الأيمن من جملة التخصيص و يخصص لها قيمة عند الإعلان عنها فقط
(  3  )	المتغيرات Variables	1	لا يستخدم فى جملة التخصيص نهائياً
(  4  )	الثوابت Constants	3	تستخدم فى طرفى جملة التخصيص

3 - حدد نوع الخطأ فى الكود ( Code ) الآتى ثم صوبه :

الكود ( Code )	نوع الخطأ	التصويب
Dim x As Sangle	إملائى ونحوى Syntax Errors	Dim x As Single
Const x As Integer x = 10	إملائى ونحوى Syntax Errors	Const x As Integer = 10

نموذج اختبار ( 3 )

السؤال الأول : ضع علامة (  ) أمام العبارة الصحيحة ، وعلامة (  ) أمام العبارة الخطأ :

(  1  )	الخاصية SelectedIndex تشير إلى ترتيب العنصر المحدد بالأداة ListBox.	(  )
(  2  )	تستخدم Select  Case فى حالة وجود أكثر من احتمالين للتفرع.	(  )
(  3  )	الجملة If A > B And b > C Then ناتجها True فى حالة A=3 , B=5 , C=2.	(  )
(  4  )	ناتج الدالة IsNumeric  دائماً يكون True أو False.	(  )
(  5  )	المتغيرات من أنواع  (Integer & Long) تستخدم لتخزين الأعداد الصحيحة فقط.	(  )

السؤال الثانى : اختر الإجابة الصحيحة :

     أولاً : اختر الإجابة الصحيحة :

1 – الهدف من الكود Code التالى هو :

Dim N As Integer

Dim S As Integer

For N = 1 To 100

    S = S + N

Next

Me.Label1.Text = S

                   أ –  عرض الأعداد من 1 إلى 100

ب – عرض مجموع الأعداد من 1 إلى 100                      

ج – عرض حاصل ضرب الأعداد من 1 إلى 100

2 – ما القيمة المعروضة فى أداة العنوان Label1 عند تنفيذ الكود التالى :

Dim intNum As Integer = 10

intNum =  intNum + 2

intNum =  intNum Mod 3

Me.Label1.Text = intNum

                   أ – 3                                                  ب – 0                                       ج – 4

3 –  لإنهاء حلقة تكرارية عند تحقق الشرط A < > 2  تكتب بدايتها بالشكل التالى :

                   أ – Do While(a = 2)             ب – Do While(a < 2) Or (a >= 2)       ج – Do While(a < > 2)

  

      ثانياً : أى من الآتى إجراء Sub أو دالة Function :

                   أ -

Function Concatenating(ByVal fn As String, ByVal ln As String) As String

    Dim FulName As String

    FulName = fn + " " + ln

    Return FulName

End Function

                   Concatenating هى دالة Function

        ب –

Sub ShowResult( )

    MessageBox.Show(2 * (7 + 2) – 2)

End Sub

                   ShowResult هى إجراء Sub

                   Show دالة معرفة Predefined Function من التصنيف MessageBox

السؤال الثالث : أجب عما يلى :

1 – حدد قيمة كل متغير بعد تنفيذ الكود Code التالى :

                   بفرض أن y = 2   ,    k = 1    ,    j = 1    ,    z = 0    ,     x = 0     

If x < y Then

المتغير	القيمة
x	1
y	1
z	2

        z = k + j

        x = x + 1

        y = y – 1

   Else

        z = k – y

        x = x + 2

        y = y – 2

End If

2 – استخرج من الكود Code الآتى :

Function calc(ByVal fn As Single, ByVal sn As Single) As Single

    Dim res As Single

    res = fn + sn

    Return res

End Function

1 – اسم الإجراء :                             هى الدالة calc

2 – وسائط هذا الإجراء :  fn        و         sn

3 – القيمة الراجعة :                   res     

4 – نوع البيان الخاص بـ :

                   أ – الدالة :                                من نوع بيان Data Type عددى غير صحيح Single

                   ب – وسائط الدالة :    من نوع بيان Data Type عددى غير صحيح Single

                   ج – القيمة الراجعة : من نوع بيان Data Type عددى غير صحيح Single والذى يجب أن يوافق                                            نوع بيان الدالة  calc

3 – فى الأكواد الآتية حدد سبب الخطأ :

السبب :

                   لا يجوز تحويل القيمة النصية String "خمسة عشرة درجة" المدخلة فى صندوق النص  TextBox1 إلى نوع بيان رقمى صحيح Byte

السبب :

                   أن نتيجة إدخال قيمة خارج المدى المسموح به  Overflow Exception  فى صندوق النص TextBox2 والمخصصة للمتغير Computer

تمنياتى من إعداد/ هناء أحمد ................ معلم حاسب آلى