اقتباس:
المشاركة الأصلية كتبت بواسطة أحـمد قرنى
حضرتك ممكن تطلع على الامتحان قيمة y =0 وقيمة x =0
وبالتالى عند تكرار المعادلة y = y + x لن تتغير قيمة y وستظل صفر .
|
قيمة X=0 قبل التكرار وفي أول مرة تكرار تكون قيمة X=2
وبالتالي تكون قيمة المعادلة Y=Y+X تكون تساوي 2
وحضرتك تقدر تتأكد من كلامي بكتابة البرنامج التالي
Dim X, Y, W, Z AsInteger
Z = 5
W = 4
For X = 2 To 4 Step 2
Y = Y + X
W = W - 1
Next
If Y > Z Then
W = W \ 2
Z = Z + Y
MsgBox(W)
MsgBox(Y)
MsgBox(Z)
EndIf