用vf程序写“输入10数，求奇数积和偶数和”的过程，谢谢

clear

m=0

n=1

for

i=1

to

10

input

"磨纯请输肆枯入一个数："

to

k

if

k%2=0

m=m+k

else

n=n*k

endif

endfor

?"奇裂游洞数积是：",n

?"偶数和是：",m

SET TALK OFF

CLEAR

SUM=0

FOR i=1 TO 10

X=1 &&下面的并备计数循环出现绝扒毁了X这个值，前面却没有赋值，故此

FOR j=1 TO i

X=X*j

ENDFOR

SUM=SUM+X &&为实现累计的效果

ENDFOR

? "1！+2！此毕+……+10！=",SUM

SET TALK ON

---