[url=http://bbs.bccn.net/viewthread.php?tid=266885&highlight=%BD%D7%B3%CB%B5%C4%B5%DD%B9%E9%CB%E3%B7%A8]有好例子，请参见[/url]

借助上述网友代码，很容易实现：
?jc(5)+jc(10)+jc(15)+jc(20)+jc(25)

PROCEDURE jc
PARAMETER N
RETURN IIF(N<=0 OR INT(N)#N ,1,N*jc(N-1)) 
ENDPROC