推 Guestion:原來如此...感謝板主的解題! 02/05 12:58
推 aiyswu:這難道就是傳說中的遞迴A_A+ 02/05 20:47
推 fumizuki:題目就已經寫明白是要用遞迴了:Q 02/05 21:11
※ 引述《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