Question

vfp设计程序 从键盘上任意输入一个数n,求1-n的偶数积 求写程序,

Answer 1

CLEAR

accept "请输入N值：" TO N

s=1

FOR i=1 TO VAL(n)

IF MOD(i,2)=0

s=s*i

ENDIF

ENDFOR

?"1——N中的所有偶数的积为："+ALLTRIM(STR(s))