Excel vba做一个示范求阶乘之和 1!+2!+3!+4!+5!，怎么做稍做讲解200财富

发布网友发布时间：2022-04-26 22:35

共3个回答

热心网友时间：2023-11-10 19:57

不需要用fact函数，用 fact函数这题就没有意义：

Sub xxx()
For i = 1 To 5  '变量 i从1到5
  s = 1    '初始值1,从1开始乘
  For j = 1 To i  '变量 j 从1 到 i (i分别=1,2,3,4,5)
    s = s * j    '阶乘结果 1*....*i  (1*1,1*2,1*2*3
  Next
  jc = jc + s   '阶乘结果相加赋值给jc
Next
MsgBox jc  'jc报数
End Sub

追问谢谢你谢谢你的耐心和对初学者的宽容，尊称你一声老师可惜分没能给你，很高兴能收到你这样详细的讲解
我一定会好好理解吸收的，学习的路上谢谢你们这些领路人

热心网友时间：2023-11-10 19:57

1，如下,需要用到FACT函数。其用途：返回一个数的阶乘，如果A1=3，则公式“=FACT(A1)”返回6，即1x2x3=6

Sub 阶乘()
For i = 1 To 5
n = Application.Fact(i)
s = s + n
Next
MsgBox s
End Sub

追问额，，其他希望能讲解透一点，，能讲的话给讲讲，，我自己也理解一下

热心网友时间：2023-11-10 19:57

昨天不是提问过吗？

https://zhidao.baidu.com/question/373201191801063244.html?qbl=relate_question_0

热心网友时间：2023-11-10 19:57

不需要用fact函数，用 fact函数这题就没有意义：

热心网友时间：2023-11-10 19:57

1，如下,需要用到FACT函数。其用途：返回一个数的阶乘，如果A1=3，则公式“=FACT(A1)”返回6，即1x2x3=6

Sub 阶乘()
For i = 1 To 5
n = Application.Fact(i)
s = s + n
Next
MsgBox s
End Sub

追问额，，其他希望能讲解透一点，，能讲的话给讲讲，，我自己也理解一下

热心网友时间：2023-11-10 19:58

昨天不是提问过吗？

https://zhidao.baidu.com/question/373201191801063244.html?qbl=relate_question_0

Excel vba做一个示范 求阶乘之和 1!+2!+3!+4!+5!，怎么做稍做讲解200财富

Excel vba做一个示范求阶乘之和 1!+2!+3!+4!+5!，怎么做稍做讲解200财富