** 求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(奇数和))
温馨提示:答案为网友推荐,仅供参考