ارجوكو مدرس يجاوبنى ضرورى ارجوكو

[Dr.Noha Sami]

ممكن الاجابه عن الاسئله دى
بعد نهاية تنفيذ الكود التالى
k=1
for I=1to5
k=k *2
next
تكون قيمة I ,K
I(6-5-1)
K=(1-16-32)
ارجو شرح الحل لانى مش فاهمه المسائل اللى من النوع ده خالص
افترض مجموعة الاوامر التاليه
Dim I as Integer
Dim X As single =2.5
for I=1 to 10 step 3
X=X*2
next
msg box (x)
1- تكون القيم التى يأخذها العداد I...............
2- تكون قيمة المتغير X التى سيعرضها مربع الرساله ...............زز
يكون عدد مرات تنفيذ الجمله x=x*2 هى ...........ز
س3\
Dim R as integer
Dim Total as integer
for R =1 to 8 step 2
total =total +R
next
msgbox (tota)
اكتب القيمه النهائيه للمتغير total
انا عرفه الاسئله كتير بس ارجوكو اشرحوهالى لانى مش قدره افهم النوع ده خاااااااااااااااااااااالص

[sabagh1974]

بعد نهاية تنفيذ الكود التالى

k=1
for I=1 to 5
k=k *2
next

تكون قيمة I ,K
I ستاخذ القيم 1 و 2 و 3 و 4 و 5 وينفذ مابداخل الحلقة وتاخذ القيمة 6 ولكن لا يتم تنفيذ ما بداخل الحلقة
مما سبق يتضح ان اخر قيمة لـ I هي 6

k كل مرة بتنضرب في 2 وتنفذ 5 مرات فيصبح الناتج 32

دي الاولي وكذلك بقية المسائل بنفس الطريقة
ارجوا ان يكون الشرح واضح

[حسام صبرى]

كل الامثلة دى مخلولة فى مشاركة اسئل الموجوده باسم الاستاذ سيف

[مآزر2000]

شرح for...next عشان تحل اي مسألة
for I=1 to 10 step 3
اولا لازم تتخيل نفسك واقف علي سلم بدايته هنا مثلا 1 دي اول سلمه وكل مره هقفز 3 سلالم اللي جنب كلمة Step يبقي 1,4,7,10 وقف ليه لان نهاية التكرار لحد 10
اما المتغير X ففي اول مره كان 2.5
وكل مره هضربه *2
يبقي مره هيبقي ب 2.5,5,10,20
اذن ععد مرات التكرار هنا 4 مرات
وقيمة X = 20
وقيمة i= 10