如何通过定义函数求阶乘和（阶乘不是连续的）

Question

private function JC(byval intV as integer)as long
  dim I as integer
  dim L as long
  l=1
  for i=1 to intv
    l=l*i
  next
  jc=l    
end function
private function ItemValue(byval intV as integer)as long
  dim I as integer
  dim L as long
  if intV mod 2 <>1 then
     itemvalue=0
     exit function
  end if
  l=0
  for i=1 to intv step 2
    l=l+jc(i)
  next
  itemvalue=l
end function
private function yourfunc(byval intV as integer)as long
 dim I as integer
 dim L as long
 l=0
 for i=1 to intv*2-1 step 2
    l=l+itemvalue(i)
 next
 yourfunc=l
end function

Answer 1

效率更高的：
private function JC(byval intV as integer)as long
  dim I as integer
  dim L as long
  l=1
  for i=1 to intv
    l=l*i
  next
  jc=l    
end function
private function yourfunc(byval intV as integer)as long
  dim I as integer
  dim L as long
  l=0
  for i=1 to intv
    l=l+(intV-I+1)*jc(i*2-1)
  next
  yourfunc=l
end function