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

** 求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(奇数和))