急急急！！！！！VB自定义一个计算阶乘的函数过程fac(n),调用该函数过程计算s=1!+2!+3!+4!+5!+…+n!

双击模块，选插入菜单里面的插入过程，选插入函数，命名为fac
代码如下：
Public
Function
fac(n
As
Integer)
Dim
i
As
Integer,
s
As
Integer
For
i
=
1
To
n<