作业帮 > 综合 > 作业

一道VB编程题目.当n的值为25时,计算下列公式的值:s=1+1/1!+1/2!+1/3!+…+1/n!要求:按四舍五入

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/07 11:29:34
一道VB编程题目.
当n的值为25时,计算下列公式的值:s=1+1/1!+1/2!+1/3!+…+1/n!要求:按四舍五入的方式精确到小数点后第四位.#2.7183#
Private Sub Command1_Click()
Dim n, jc, sum
n = 25
jc = 1
sum = 1
For i = 1 To n
jc = jc * i
sum = sum + 1 / jc
Next i
sum = Format(sum, "0.####")
MsgBox sum
End Su