vf程序设计实例(3)

function sx

arameters nyear

local n,csx

csx="羊猴鸡狗猪鼠牛虎兔龙蛇马"

if parameters()=0

nyear =year(date())

endif

n=mod(nyear,12)         return substr (ncsx,2+"N"+1,2)

endfunc

（六） 计算 S=1!+2!+3!+4!+5!+6!+7!+8!+9!

s=0

for i=1 to 9

  s=s+fjc(i)

endfor

?s

function fjc

parameters x

p=1

for n=1 to x

  p=p*x

endfor

return p

endfunc