【VB】求1！+2！+3！+…+10！的值？？（阶乘简直碰破头嘤嘤嘤~~）

Question

RT

Answer 1

private function JC(intInput as integer) as long
dim i as integer
JC=1
for i=1 to intInput
JC=JC*i
Next i
End function

以上作为一个自定义函数过程，要放到窗体最上面的声明部分
需要计算的时候：
dim i as integer
dim n as long
for i=1 to 10
n=n+JC(i) '调用函数并累加每次的结果
next i
Print n 'n就是结果了。追问

谢谢你(*^__^*)
我试过这个答案了，结果和第一个回答者是一样的，但是他比较快，所以我就采纳他的答案了。
非常感谢大神帮助！

来自：求助得到的回答

Answer 2

Private Sub Command1_Click()
Dim i As Integer, j As Integer, p As Long, sum As Long
p = 1
For i = 1 To 10
    For j = 1 To i
        p = p * j
    Next
    sum = sum + p
    p = 1
Next
Print sum

End Sub

追问

谢谢你(*^__^*)
我试过这个答案了，这个代码写的好清晰，是三个答案里面唯一一个我这小菜鸟能直接读懂的。
但是第一个回答者比较快，所以我就采纳他的答案了。
非常感谢大神帮助！

Answer 3

dim s&,t&
for i = 1 to 10
t=1 
for j = 1 to i
t= t*j     '求i！
next j
s = s +t    '求和
next i   

print s

本回答被提问者采纳