Function isum(n As Integer) As Double
isum = 0
For i = 1 To n
k = 1
For j = 1 To i
k = k * j
Next
isum = isum + 1 / k
Next
End Function
用VBA编写一个公共的函数Sum(n)=1 + 1/2!+ 1/3!+ 1/4!+ … + 1/n!,n为整型,函数返回值为双精度型.
用VBA编写一个公共的函数Sum(n)=1 + 1/2!+ 1/3!+ 1/4!+ … + 1/n!,n为整型,函数返回值为双精度型.
其他人气:597 ℃时间:2019-10-23 08:45:57
优质解答
我来回答
类似推荐
猜你喜欢
- 1执行下列程序时输入:123456789,输出结果是 A) 123,456,789 B) 1,456,789 C) 1,23,456,789 D) 1,23,456
- 2乙炔和溴的加成生成1,2—二溴乙烷化学方程式
- 3就是羚羊飞渡
- 4模仿下列句子,以“爱春天、爱夏天或爱冬天”为题
- 5Jack wants to( )a house( )2 bedrooms.Please help him.A.rent;with B.rent;for Clive;with D.live
- 6先化简,再求值:4m3-(3m2+5m-2)+2(3m+3/2m2-2m3)-1,其中m=2011.
- 7I can read the shopping list to you.改为否定句
- 8圈的读音和组词
- 9把一个小数的小数点向右移动一位,结果比原数大11.7原数是
- 10一个长方体水箱,宽是5分米,高是4分米,这个长方体水箱的体积是多少立方分米?