Re: [VB6 ] 請問一函數問題
※ 引述《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
推
02/05 12:58, , 1F
02/05 12:58, 1F
推
02/05 20:47, , 2F
02/05 20:47, 2F
推
02/05 21:11, , 3F
02/05 21:11, 3F
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 2 之 2 篇):