[سيد معاطى]

Dim N As Integer = 10
Dim x As Integer = 1
Do While N <= 4
x = x + 2
N = N + 3
Loop
MsgBox(N)