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
用VF做在同一循环结构中计算100以内的奇数和 和一百以内的偶数和
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