dim i,j as integer
j=0
for i=1 to 100
j=j+i
next i
print j
(vb6.0)
变量j保存结果,在循环中与i相加,i的值从1到100