vb过程调用 求阶乘的和

下面这段程序运行时，总说溢出。。请问哪里错了

Private Function jcs(ByRef n As Integer) As Long  '要对过程定义类型
Dim i%, fac&
fac = 1
  For i = 1 To n
      fac = fac * n
  Next i
jcs = fac
End Function

Private Sub Form_Click()
Dim sum&, k%
sum = 0
For k = 1 To 10
  sum = sum + jcs(k)
Next k
Label2.Caption = sum
End Sub

答案：Private Function jcs(ByRef n As Integer) As Long  '要对过程定义类型
Dim i%, fac&
fac = 1
  For i = 1 To n
      fac = fac * n(n改为i)
      jcs(i) = fac
  Next i

End Function

Private Sub Form_Click()
Dim sum&, k%
sum = 0
For k = 1 To 10
  sum = sum + jcs(k)
Next k
Label2.Caption = sum
End Sub

其他：fac = fac * n改为 fac = fac * i

上一个：Rs.MovePreviou下的Label8=Rs!NO无法执行出现 实时错误:3021求解！！！急死人了！~
下一个：代码在VB中怎样运行才能得出界面