在VFP上用DO WHILE语句输出100以内所有偶数以及所有偶数的和，所有奇数以及所有奇数之和。

Answer 1

** 求100以内的正偶数及偶数和
** 求100以内的正奇数及奇数和

偶数=""
偶数和=0
奇数=""
奇数和=0
FOR i=1 TO 100
IF i % 2 = 0
偶数=偶数+"，"+ALLTRIM(STR(i))
偶数和=偶数和+i
ELSE
奇数=奇数+"，"+ALLTRIM(STR(i))
奇数和=奇数和+i
ENDif
NEXT i

CLEAR
?
? "100以内的正偶数：" +SUBSTR(偶数,2)
? "100以内的正偶数和：" +ALLTRIM(STR(偶数和))
?
? "100以内的正奇数：" +SUBSTR(奇数,2)
? "100以内的正奇数和：" +ALLTRIM(STR(奇数和))

Answer 2

clear
s1=0
s2=0
i=1
do while i<=100
if i%2=1
s1=s1+i
else
s2=s2+i
endif
i=i+1
enddo
?"所有奇数和是：",s1
?"所有偶数和是：",s2