[رزق درديري]

المشاركة الأصلية كتبت بواسطة bolbola101

ممكن حد من الأساتذه الكرام يشرح لى الكود ده
Dim r As single=0.5
Do While r>1
r= r+0.5
يعنى انا اصلا مش فاهمه Do while ازاى احل التكرار بتاعها دى مسأله كتاب الوزاره و عاوزين قيمه r



وفيه كود تانى مع انى بعف احل مسأل ال for ... next بس دى مش فهماها
For r=5 To 10 step-1
sum= sum+r
عاوزين قيمه r والحل بتاعها 5
ارجو الشرح ولكم منى جزيل الشكر

الكود الأول :

اعلن عن متغير اسمه R ونوع بيانه single وخصص له قيمة عند الاعلان 0.5 في السطر الثاني استخدم Do While وبعدها تعبير شرطي لو كان قيمة هذا التعبير الشرطي True يتم تنفيذ السطر r= r+0.5 ولكن R ليست اكبر من 1 إذن التعبير الشرطي قيمته false وتظل قيمة R هي 0.5
الكود الثاني
قيمة المتغير العداد R تبدأ ب 5 وهي اقل من النهاية 10 وحيث ان قيمة الزيادة بالسالب فلن يتم تنفيذ التكرار لأن لو زودنا -1 علي قيمة البدايةلن نصل الي النهاية 10 تظل اول قيمة 5 داخل العداد R دون تنفيذ عملية الجمع