vb问题任意输入一个n，计算n!以及其总和 (例如1！+2！+3！+...n!)

请教大侠一个问题

任意输入一个n，计算n!以及其总和 (例如1！+2！+3！+...n!)
用子过程方法
我编写的代码如下，但算出来的结果却是错的，不知道问题出在哪里，百思不得其解，请教大侠指出，万谢！

Private Sub calcmd_Click()
Dim i As Integer, j As Integer
Dim s As Double, p As Double

i = Val(Text1.Text)
s = 0
For j = 1 To i
Call fac(i, p)
s = s + p
Next j

Label3.Caption = s

End Sub

Sub fac(a As Integer, b As Double)
Dim c As Integer
b = 1
For c = 1 To a
b = b * c
Next c
End Sub

vb问题 输入一个奇数n（n大于0小于10），然后会显示上下对称的图案。 vb问题，求n！ VB中输入一个n，求n的阶乘怎么编？ 输入N,计算它所有约数的和 用VB语言,在线等!急! VB计算n！+……+（n+m）！ 证明,对于任意自然数n,(n+1)(n+2)(n+3)(n+4)+1都是一个完全平方式 编写一个自定义函数,求n!,n值可从屏幕输入,将计算结果在屏幕输出。 用C++编写 m!+n! 就是输入两个正整数m和n，计算m!+n! 输入一个n*n的方阵；求这个方阵中的任意一个小矩阵的和，并输出最大的那个和； 编程实现输入任意整数n后，可打印处n行三角字符阵列图