[أحمد أيمن]

Dim x as single=4
Dim y as integer
For y =0 to 5 step 3
X=x*2
Next
Msgbox(x)



ما يتم عرضه فى مربع الرساله هو