[زياد_عاطف]

مراجعة 3على For Next و Do While

قم بإعادة كتابة الأوامر التالية بإستخدام Do While مع ذكر الغرض من كل برنامج
(1)
Dim X as Integer
For X = 5 to 23 Step 7
MsgBox(X)p
Next

=======================
(2)
Dim X , Y as Integer
For X = 3 to 16 Step 4
Y = Y+X
Next X
MsgBox(Y )p
=======================