امتحان محافظة بني سويف 2010 واجاباته

[النيناوى]

dim x,l as integer
l=5
x=1
do while x<=5
msgbox(x
x=x+2
loop
الاجابة سبعة
لان هناك عدد مرات تكرار للكود الاتى
x=x+2 حتى تصل قيمة اx الى خمسة
حيث ستكون كالاتى
x=1+2=3
x=3+2=5
x=5+2=7
وهنا يتوقف التكرار لا نقيمة x اصبحت تساوى 5
ولو اى حد عنده حل تانى ممكن يوضحه
بالنسبة للنقطة الاولى
الاجابة فعلا خطا علشان text ما سيكتب على وجه الاداة ولكن اعطاء قيمة لملصق اى قد تم اختيارها ام لا
هذا توضيح والله اعلم
ومن يريد ان يعلمنا فله منا كل التقدير
فكلنا في مركب العلم صغار لان العالم هو الله