[أمورة بس مش مغرورة]

1- عند تخزين القيمه (12345.768) فى متغيرين من النوع integer single ثم استرجاع قيمه كل متغير فان

ا- قيمه المتغير من النوع integer تكون ( 12345.768 - 12345 -12345.76 )

ب- قيمه المتغير من النوع single تكون( 12345.768 - 12345-12345.76 )

2- هى أداة تتيح للمستخدم مجموعه من البدائل واختيار اى عدد منها فى نفس الوقت

1- الاداة Radio Button 2- الاداة listbox

3- الاداة Checkbox 4- الاداه Group box

3- الخاصيه Interval للمؤقت Timer تحدد معدل وقوع الحدث Tick بالوحده الزمنيه

1- ثانيه 2- مللى ثانيه 3- دقيقه 4- ساعه

4- النكوين ..................... يستدعى التاريخ والوقت الخاصين بالنظام

1- Now 2-Date Time 3- time 4- كل ماسبق

ب- أكمل الاكواد التاليه لايجاد مجموع الاعداد الزوجيه من 2 الى10 باستخدام do ….while

Dim a as integer =2 , sum as integer

Do while …………..

Sum =…………..

A=……………..

Loop

Msgbox (sum)

السؤال الثاني:

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

1-عند استخدام الامر For…next فان عدد مرات التكرار التى تتم تكون غير معروفه. خطأ

2- المخازن التى لاتتغير قيمها أثناء تشغيل البرنامج يطلق المتغيرات. خطأ

3-الاداة Radio Button تتيح للمستخدم مجموعه من البدائل لاختيار أكثر من بديل فى نفس الوقت. خطأ

4- فى الامر Loop …..do ….while عندما يكون ناتج الشرط True يتم تنفيذ الاوامر التى الشرط. صح

ب- اكتب الاكواد اللازمه لتنفيذ الأتي :

1-اضافه الاسم (الدقهليه) داخل صندوق الاداه Listbox1

me.listbox1.insert(الدقهلية

2- حذف العنصر الثالث فى صندوق الاداه Listbox

me.listbox2.remove)3)

ج- اكتب ناتج تنفيذ العمليات الحسابيه التاليه

1- (3+2^2)*3/7

الناتج 3

2- 3+2^2*3/6

الناتج 5

3- 9 mod 7\3

الناتج المفروض صفر بس أنا عملت 2

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

أكمل الجمل الاتيه

1- المتغير الذى يأخذ القيمه True or false)) يكون من النوع ...BOOLEAN.....

2- حجم الذاكرة التى يحتاجها المتغير من النوع Short هو .....2...... بايت والمتغير Double هو ......16.... بايت ويتم حجز 8 بايت للمتغير من النوع .....INTEGER... والذى يأخذ أعداد صحيحه فقط.

3-...أوامر التكرار..... هى أوامر تتحكم فى اعادة تنفيذ عمل معين أو مجموعه من الاوامر حتى يتحقق شرط معين.

4- ..TIMER.. هو ساعة توقيت غير مرئية تتيح لك التعامل مع ساعة الحاسب من داخل البرامج التي يتم تنفيذها

ب- أقرأ التعليمات الاتيه ثم أجب عن الاسئله التاليه

Dim First as integer =20 , Second as integer=40

Dim Third as integer = First + Second

Dim Total as integer

If Third <=50 Then

Total= First + Second+ Third

Else

First=30

Second=50

Total= First + Second+ Third

End If

السؤال مش مكتوب لكن أنا متأكدة منه