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

PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBu... 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”的数值?
展开
 我来答
tianqing20wen

2018-11-01 · TA获得超过2.4万个赞
知道大有可为答主
回答量:8226
采纳率:88%
帮助的人:5132万
展开全部

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

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

追问
t/n已经能算出e了,但我要知道它计算了几项,即"i"的数值~谢谢
追答
那你得看t具体的值 也就是精确到小数点后几位 比如我只取E小数点后六位2.718282 

你for n = 1 to 10 四舍五入下就够用了 10项
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式