1到n的阶乘的倒数求和?
Private Function f(ByVal x%)
If x = 1 Then
f = 1
Else
f = x * f(x - 1)
End If
End Function
Private Sub Form_Click()
Dim n%, s!
n = InputBox("请输入一个正整数n:")
For i = 1 To n
m = f(i)
s = s + 1 / m
Next
Print "n项阶乘倒数的和为:"; s
End Sub
lim (1/1!+ 1/2!+...+1/n!) = e-1,lim底下是n→∞,意思是n趋近无穷。e是自然常数,为数学中一个常数,是一个无限不循环小数,且为超越数,其值约为2.71828。
在e的起源中,e被定义为以下两种形式:
所以1到n 阶乘的倒数的和是e-1,当n趋近无穷的时候。
?
?
Copyright © 广州京杭网络科技有限公司 2005-2024 版权所有 粤ICP备16019765号
广州京杭网络科技有限公司 版权所有