VB编程题：求自然对数e的近似值
VB编程题：求自然对数e的近似值
日期：2011-04-20 22:22:03 人气：1
Private Sub Command1_Click()
Dim I As Integer, J As Integer, NS As Double, T As Double
For I = 1 To 50
T = 1
For J = 1 To I
T = T * J
Next
NS = NS + 1 / T
Next
NS = NS + 1
Text1.Text = Round(NS, 20)
End Sub
结果：e =