[سيف سالم]

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

ما ناتج تنفيذ هذا البرنامج مع تتبع القيم 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