امتحان الدقهلية

[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