store 0 to sume,sumo
for i=1 to 100
if i%2=0
sume=sume+i &&偶数累加
else
sumo=sumo+i &&奇数累加
endif
next
"1~100偶数累加和=",sume
"1~100奇数累加和=",sumo