[abdo_Awad]

Dim X, Y, W, Z As Integer

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

End If

وهو ده البرنامج الى جه فى الامتحان وجربه على vb.net