作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 请问一函数问题
时间Sun Feb 5 09:10:45 2006
※ 引述《Guestion (Question)》之铭言：
: 已知F(N)=N*F(N-1)
: 请问要如何计算:
: 1!+3!+5!+...+15!
: 这种题型呢?
: 麻烦大家为我解惑 谢谢罗
Public Function Factorial(ByVal n As Integer) As Double
If n <= 1 Then
Factorial = 1
Else
Factorial = n * Factorial(n - 1)
End If
End Function
Private Sub Form_Load()
Dim i As Integer, sum As Double
For i = 1 To 15 Step 2
sum = sum + Factorial(i)
Next
MsgBox "1!+3!+5!+...+15! = " & sum
End Sub
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.58.156.43
1F：推 Guestion:原来如此...感谢板主的解题! 02/05 12:58
2F：推 aiyswu:这难道就是传说中的递回A_A+ 02/05 20:47
3F：推 fumizuki:题目就已经写明白是要用递回了:Q 02/05 21:11