VB程序设计SUM=1!+(1!+2!)+...+(1!+2!+...+10!)

VB程序设计

用同一对参数（实参和形参）既向Sub过程传递参数又把Sub过程计算结果返回给调用过程的方法编程计算下式的和：
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

'byval 表示形参，byref表示实参

Sub calc(ByVal n As Integer, ByRef r As Long) Dim i, j As Integer Dim k As Long r = 0 For i = 1 To n k = 1 For j = 1 To i k = k * j Next r = r + k Next End Sub

'-------------------------------

在你需要的代码里面执行以下内容即可获得累加值

Dim a As Long calc 10, a Print a