作业帮 > 综合 > 作业

用VBA编写一个公共的函数Sum(n)=1 + 1/2!+ 1/3!+ 1/4!+ … + 1/n!,n为整型,函数返回

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/06/04 05:38:58
用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为整型,函数返回
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