vb编程计算1!+3!+5!+…+9!

Function factorial(number)
If number <= 1 Then
factorial = 1
Else
n = 2
factorial = 1
Do While n <= number
factorial = factorial * n
n = n + 1
Loop
End If
End Function

Private Sub Command1_Click()
for i=1 to 9 step 2
s=s+factorial(i)
next i
debug.print s
End Sub