Question

2.编制事件过程Command1_Click,用下列近似公式求自然对数的底数e,直到被累加的最后一项小于10-10为止.

Answer 1

Private Sub Command1_Click()

MsgBox (E(10 ^ (-8)))

End Sub

'p是精度

Private Function E(ByVal P As Double)

Dim I As Integer

Dim S As Double

Dim D As Double

I = 2

S = 2

D = 1

Do While D > P '10 ^ (-10)

D = 1 / F(I)

S = S + D

I = I + 1

Loop

E = S

End Function

'求阶乘

Private Function F(ByVal N As Integer) As Long

Dim I As Integer

Dim S As Long

S = 1

For I = 2 To N

S = S * I

Next I

F = S

End Function