查人人中国名人网世界儿童摄影大师:用VF程序求出1到100的自然数的奇偶数的和
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/15 05:54:14
第一种：
set talk on
clear
s1=0
s2=0
for i =1 to 100 step 2
s1=s1+i
endfor
for j=2 to 100 step 2
s2=s2+j
endfor
?"所有奇数和为：",s1
?"所有偶数和为：",s2
SET TALK off
第二种：
set talk on
clear
s1=0
s2=0
FOR i =1 TO 100
IF mod(i,2)<>0
s1=s1+i
ELSE
s2=s2+i
ENDIF
endfor
?"所有奇数和为：",s1
?"所有偶数和为：",s2
SET TALK off