[MR : ABO BATTA]

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

الكمبيوتر وتكنولوجيا المعلومات

الفصل الدراسي الثاني 2009 – 2010

السؤال الأول : صل من العمود ( أ ) مع ما يناسبه من العمود ( ب ) :
العمـــــــــــــــــــود ( أ )
1- لمعرفة أو تحديد ما إذا كانت العنصر داخل الأداة ListBox مرتبة أبجديا أم لا نستخدم الخاصية
2- للإعلان عن أسماء المتغيرات نستخدم الكلمة
3- الرمز < > يسمى
4- لتخزين قيم عددية صحيحة نستخدم متغيرات من النوع
5- لتخزين اسم طالب نستخدم متغير من النوع
العمــــــــــــــــــــود( ب )
1. String
2. Sorted
3. Integer
4. Dim
5. لا يساوي

1- لمعرفة أو تحديد ما إذا كانت العنصر داخل الأداة ListBox مرتبة أبجديا أم لا نستخدم الخاصية ( Sorted )
2- للإعلان عن أسماء المتغيرات نستخدم الكلمة ( Dim )
3- الرمز < > يسمى ( لا يساوي )
4- لتخزين قيم عددية صحيحة نستخدم متغيرات من النوع ( Integer )
5- لتخزين اسم طالب نستخدم متغير من النوع ( String )

السؤال الثاني : اختر الإجابة الصحيحة مما بين القوسين:
1. لتخزين قيم عددية تحتوي على كسور نستخدم متغيرات من النوع
( String - Single - Integer)
2. من قواعد تسمية المتغيرات يجب أن تبدأ بــ
( حرف – رقم – رمز )
3. لالغاء كل القيم من الأداة ListBox يتم استخدام الطريقة
( Delete – Remove – Clear )
4. ناتج تنفيذ الصيغة الحسابية 3*5+3 ^2 هو
(24 – 25 – 42 )
5. الخاصية Interval للمؤقت Timer تحدد معدل وقوع الحدث Tick بالوحدة الزمنية
( ثانية – دقيقة – مللي ثانية )
السؤال الثالث : ضع علامة (√) أو علامة ( × ) أمام كل عبارة من العبارات التالية
1. تنفيذ العمليات التي ما بداخل الأقواس تسبق جميع العمليات الحسابية ( √ )
2. الاسم 2nd World War يصلح أن يكون اسم لمتغير ( × )
3. لإضافة عنصرجديد إلى الأداة ListBox يتم استخدام الطريقة Append ( × )
4. التكوين DateTime يستدعي التاريخ والوقت الخاصين بالنظام ( √ )
5. لا نستطيع معرفة عدد عناصر القائمة Listbox ( × )
السؤال الرابع :
( أ ) اقرأ التعليمات التالية :

Dim Age As Decimal
If Age >= 16 Then
MsgBox("you can get an ID card")
Else
MsgBox("you can't get an ID card")

بعد قراءة التعليمات اختر الإجابة الصحيحة لكل مما يلي :
1- إذا كانت قيمة المتغير Age تساوي 14 يظهر مربع رسالة يحتوي على
أ - you can get an ID card
ب - you can't get an ID card
2- إذا كانت قيمة المتغير Age تساوي 18 يظهر مربع رسالة يحتوي على
أ - you can get an ID card
ب - you can't get an ID card
( ب ) قم بتحويل الأمر Do While …..Loop إلى الأمر For ….Next ثم أعد كتابة البرنامج التالي :
Dim I as Integer
I = 1
Do While I <=10
MsgBox( I * I)
I = I+1

Loop

التحويـــــــــــــل

Dim I as Integer
For I = 1 to 10 Step 1
MsgBox( I * I)

Next

منقول عن الأخ محمود
جزاه الله خيرا