dim s as long,i as long
s=0
for i=1 to 1000
s=s+i
next i
print s