SUM=1!+(1!+2!)+...+(1!+2!+...+10!)

VB程序设计

用自定义函数方法计算下式的和：
SUM=1!+(1!+2!)+...+(1!+2!+...+10!)
请吧全部的程序写出来

谢谢了

紧急

这是完整的程序代码：

Private Sub Command1_Click()
Print sum(10)
End Sub


Function sum(ByVal x As Integer) As Double
Dim s As Double
For i = 1 To x
s = s + fs(i, i)
Next i
sum = s
End Function

Function fs(ByVal x As Double, ByVal y As Double) As Double
If y > 1 Then
fs = fs((x + 1) * (y - 1), y - 1)
Else
fs = x
End If
End Function

Function calc2(n As Integer) As Long Dim i, j As Integer Dim k As Long calc2 = 0 For i = 1 To n k = 1 For j = 1 To i k = k * j Next calc2 = calc2 + k Next End Function

这是直接用一个函数计算的方式