用vb求1到n的阶乘和的程序：
自己编写函数代码：
Private Function jieC(Byval n As Integer) As Long
Dim i As Integer
Dim Fac As Long
Fac = 1
For i = 1 To n
Fac = Fac * i
Next i
jieC = Fac
End Function
在需要求阶乘的地方，调用该函数：
例如：
Dim y As Long
y = jieC(10) '求阶乘(10)将用10调用上面的自定义函数，返回10的阶乘
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024