程序设计vb 1!+3!+5!+7!+9!

Question

一个程序

Answer 1

private sub form_click()
dim s as long
s=fac(1)+fac(3)+fac(5)+fac(7)+fac(9)
print s
end sub
private function fac(n as integer) as long
dim i as integer
fac=1
for i = 1 to n
fac=fac*i
next i
end function

Answer 2

private sub command1_click()
msgbox sum13579(9&)
end sub

function sum13579&(n&)
dim i&,s&
if n=1 then sum13579=1:exit function
s=1
for i=2 to n
s=s*i
next
sum13579=sum13579(n-2)+s
end function