السؤال الاول
اختر الاجابه الصحيحه
1- الكود for m = 3 to 15 step 3 سوف يقوم بعرض
( الارقام التي تقبل القسمه علي 3 - الارقام الفرديه - الارقام المتتاليه من 3 الي 15 )
2- التعبير الشرطي do while <50 يظل true طالما ان قيمه y
( اقل من 50 - اكبر من 50 - تساوي 50 )
3- الكلمه المحجوزه vbcrlf تستخدم في
( انشاء سطر جديد - تنظيم قراءه الكود - الربط بين النصوص )
4- القيمه الراجعه للداله area كما هو موضح في اعلان الداله
function(byval radius as single)as intger
( single - intger - radius)
5- ناتج الكود( lable1.text=isnumeric (10
(false - true - عشره )
6- يتم وضع الكود الخاص بمعالجه الاخطأ بعد
( end try-try- catch)

السؤال الثاني
فسر الاكواد التاليه
x=listbox1.edindex


selectcaes deg
case 85 to 100
"ممتاز"=lable2.text



()sub showoddorevent



total=first+second

ب
اجب عن الاسئله التاليه
1- قم بالاعلان عن المتغيرين computerو arabic بحيث يقبل المتغيرين ارقام غير صحيحه
2- صوب الخطا في الكود const x as intger <10
3- ناتج العمليه الحسابيه (2^2 *3 + 5 ) طبقا لاولويات العمليات الحسابيه هو
4- المعامل and يعطي ناتج نهائي ......... اذا كان كافه الشروط true

السؤال الثالث
اجب عما يلي
قم باكمال الكود التالي بحبث يعطي رساله " غير مسموح " عند ادخال عدد سالب في مربع النص textbox1 الذي خصص قيمته للمتغير r

r=.............text
if.............then
................msgbox

2- قم بكتابه الكود ( أ) ليعرض ساعه رقميه في lable2
( ب ) لكي تتغير الساعه كل ثانيه نضبط interval لل timer الي ..................
( ج ) لا ستدعاء الداله factorial لحساب مضروب الرقم (10 ) وعرض الناتج من خلال صندوق رساله

x=listbox1.selectedindex

هو ينفع فى الكود ده اقوله

تخصيص قيمة الخاصية selected index للعنصر المحدد فى اداة listbox وتخزينها فى المتغير x
ولا لازم اقوله ترتيب العنصر المحدد

امتحان جميل جدا

شكر الله لك