[مستر عزت]

dim a , total as integer
for a=1to 10 step 2
total=total+a
next
(messagebox.show(total