سؤال للتفكير فهل من مشارك

[فهم]

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

ما ناتج تنفيذ ها البرنامج مع تتبع القيم x , y

Dim x = 12, y As Short = 3

For x = 1 To x Step y

x = y + 1
y = y - x
Next
MsgBox(x)1

ان شاء الله تكون آخر قيمة لـــ x = 0 إلى ما نهاية وقيمة Y = -1