[japanay]

Dim x As Single
For x = 1 To 10 Step 2
x = x * 2
MsgBox(x)
Next
Msgbox ( " Good Bye " & X )

محتاج الشرح تفصيلا وكمان فى حالة الجمع
X=x+2