回 帖 发 新 帖 刷新版面

主题:自定义函数问题

用自定义函数求n!,为什么会出错,提示非数值型数据

func mm
parameter n
s=1
for a=1 to n
  s=s*a
endfor
 return s
endfunc

回复列表 (共1个回复)

沙发

*调用方法
n1 = mm(8)
? n1  && 显示结果

FUNCTION mm
PARAMETERS n
s=1
FOR a=1 TO n
  s=s*a
ENDFOR
RETURN s
ENDFUNC

我来回复

您尚未登录,请登录后再回复。点此登录或注册