** 求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(奇数和))
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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024