用vb求1到n的阶乘和的程序：
1.
自己编写函数代码：
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
2.
在需要求阶乘的地方，调用该函数：
例如：
Dim
y
As
Long
y
=
jieC(10)
'求阶乘(10)将用10调用上面的自定义函数，返回10的阶乘
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024