اقتباس:
المشاركة الأصلية كتبت بواسطة abeer1
Dim x, y, w, z As Integer
z = 5
w = 4
For z = 2 To 4 Step 2
y = y + x
w = w - 1
Next
If y > z Then
w = w \ 2
z = z + y
End If
MsgBox(w)
MsgBox(y)
MsgBox(z)
w=2
y=0
zz=6
|
في رأي
w=2 ok
y = 0 ok
z القيمة العليا للعداد = 4