[أحـمد قرنى]

المشاركة الأصلية كتبت بواسطة نهال أاحمد

ممكن حل هذه المساله
dim a,b,c as integer
b=10
c=b/2
for a=6 to 3 step -3
b=b-1
c=c-1
next
msgbox (a
msgbox (b
msgbox (c

قيمة المتغيرات كالتالى
المرة الاولى للتكرار
A = 6
ويتم تنفيذ الامر b = b - 1 بالتعويض عن قيمة b =10 ومنها تصبح قيمة b = 9
ايضا يتم تنفيذ الامر c = c - 1 بالتعويض عن قيمة c = 5 ومنها تصبح قيمة c = 4

المرة الثانية للتكرار
a = 3
ويتم تنفيذ الامر b = b - 1 مرة ثانية بالتعويض عن قيمة b =9 ومنها تصبح قيمة b = 8
ايضا يتم تنفيذ الامر c = c - 1 مرة ثانية بالتعويض عن قيمة c = 4 ومنها تصبح قيمة c = 3

عند القيمة a = 0 ينتهى التكرار ويخرج من الحلقة التكرارية ليتفذ ما بعد next
ويعرض رسالة بقيمة a = 0 وقيمة b = 8 وقيمة c = 3