51问答网 > 用VBA编写计算N!的函数，调用此函数计算1！+2！+…+N！，N的值由输入框输入，结果在消息框输出

用VBA编写计算N!的函数，调用此函数计算1！+2！+…+N！，N的值由输入框输入，结果在消息框输出

2025-03-22 22:42:53

推荐回答（2个）

回答1：

sub jsjc()
    x=inputbox("输入一个整数","输入",3)
    sum=0
    for i=1 to 3
        sum=sum+jc(i)
    next i
    msgbox sum
end sub

function jc(n as integer) as double
    cj=1
    for i=1 to n
        cj=cj*i
    next i
    jc=cj
end function

回答2：

dim n as integer,i as integer, j as integer,m as long, sum as long
n=val(inputbox(""))
m=1
for i=1 to n
for j=1 to i
m=m*j
next
sum=sum+m
next
msgbox sum