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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库vf程序设计实例(3)在线全文阅读。