Question

[VB]求自然对数e的近似值

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim s, t As Double
Dim n, i As Integer
s = 1 : t = 1
For n = 1 To 50
t = t / n
s = s + t
Next n
Label1.Text = "计算了" & i & "项，他们的和e=" & s
我需要怎么编程，才能知道“i”的数值？

Answer 1

你把n 改成 n! 阶乘 就对了

你另外写个函数求某个数阶乘 就可以了

追问

t/n已经能算出e了，但我要知道它计算了几项，即"i"的数值~谢谢

追答

那你得看t具体的值 也就是精确到小数点后几位 比如我只取E小数点后六位2.718282

你for n = 1 to 10 四舍五入下就够用了 10项