الجمعة، 30 يناير 2015

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

حل أسئلة وتدريبات الفصل الأول
بالكتاب المدرسى ص 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 – العلامة  '
السؤال السابع : فى الكود ( Code ) الآتى :

فسر الكود المشار إليه بالأرقام على الشكل :
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"

مرسلة بواسطة في ليست هناك تعليقات:
الاشتراك في: الرسائل (Atom)