VB中用sub过程编程1!+2!+3!...+10!的代码，一定要是Sub过程

VB中用sub过程编程1!+2!+3!...+10!的代码，一定要是Sub过程

Private Sub jc(x As Integer, y As Single)
Dim i As Integer
y = 1
For i = 1 To x
y = y * i
Next i
End Sub
Private Sub Form_Click()
Dim j As Integer, s As Single, sum As Single
For j = 1 To 10
Call jc(j, s)
sum = sum + s
Next j
Print sum
End Sub

'阶乘和的结果
public result=0
'某个数阶乘值
public temp
'计算1~num的阶乘和
Sub start(num1)
For i=1 to num+1 Step + 1
temp=1
call then(i)
result = result + temp
Next
End Sub
'计算num2为数字的阶乘
Sub then(num2)
flag=0
If num2=0 or num2=1 Then
temp =temp*1
Else
temp =temp*(num2-1)
call then(num2-1)
End If
End Sub