VB編程題：求自然對數e的近似值

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 = 2.71828182845905

上一篇:vb combo1.additem

下一篇:當前智能機器人的控制技術中最尖端的研究課題是什麽？