用VB求阶乘和

用VB求阶乘和

Private Sub Command1_Click()
For i = 1 To 10
Sum = Sum + jiecheng(i)
Next
Print Sum
End Sub

Function jiecheng(num)
jiecheng = 1
For i = 1 To num
jiecheng = jiecheng * i
Next
End Function

我也不知道
追问：hehe....上面三个都可以运行出结果的

Private Sub Command1_Click()
For i = 1 To 10
aa = aa + JiCheng(i)
Next
Print aa
End Sub
Private Function JiCheng(ByVal Int_A As Integer) As Long
JiCheng = 1
For i = 1 To Int_A
JiCheng = JiCheng * i
Next i
End Function

Public Function f(m As Integer) As Long
Dim i As Integer, s As Long
s = 1
For i = 1 To m
s = s * i
Next i
f = s
End Function
Private Sub Command1_Click()
Dim i As Integer, s As Long
s = 0
For i = 1 To 10
s = s + f(i)
Next
Print s
End Sub