لو سمح الاخوة الزملاء ضروررة الرد

هذه قيم المتغيرات خطوة بخطوة في كل سطر من المسألة بداية من سطر For
C B A
6 10 5
6 9 5
6 9 6
3 9 6
3 8 6
3 8 7
0 8 7

السلام عليكم
كان الاختلاف فى قيمة المتغير a هل هى صفر أم 3 لكن الصحيح صفر لأن الرسالة هتطلع بعد الدوارة ما تنتهى وفى الحالة دى هتكون أخدت القيمة الجديدة لكن لو كانت الرسالة قبل الدوارة كانت هتبقى 3 لأن فى الحالة دى مش هيدخل المترجم جوه الدوارة تانى بعد ما تأكد ان الشرط اصبح غير صحيح

للعلم فقط تصحيح هذه الجزيئة لا يتطلب توضيح خطوات البرنامج يعني اللي هيكتب الاجابة علي طول اخد الدرجه

و كل جزئية بدرجة واحده

حل المسالة الاخيرة فى امتحان الدقهلية
A.......B.......C
========
0.......0.......0.........Dim A,B,C As Integer
0.......10.....0.........B = 10
5.......10.....0.........C = B / 2
5.......10.....6.........For A=6 To 3 Step -3
5.......9.......6.........B = B - 1
6.......9.......6.........C = C + 1
6.......9.......3.........For A=6 To 3 Step -3
6.......8.......3.........B = B - 1
7.......8.......3.........C = C + 1
7.......8.......0.........For A=6 To 3 Step -3 ثم يتم الخروج من الحلقة لتخطى قيمة A القيمة النهائية للعداد
ثم تظهر صناديق نصوص 3 متتالية
الأول : بقيمة A وهو 0
الثانى : بقيمة B وهو 8
الثالث : بقيمة C وهو 7