求用户所输入的数的阶乘值

input "number:  "  to n    &&用户输入一个数
?jc(n)                     &&访问用户所输入的数的阶乘的值
function jc                &&自定义函数
parameter n
s=1
for i=1 to n
 s=s*i
endfor
return s                  &&返回s的值