dim i as long
dim sum as long
sum=0
for i=1 to 100 step 2
sum=sum+i
next i
print sum