cls
for i=1 to 100
s=s+i
if i>=3000 then goto ss
next i
ss: print i
end
这个是计算从一连加到100中,到第几个数字超过三千的程序