求vb 2!+4!+6!+8!+10!的阶乘

'阶乘函数
Function jc(TmpNum As Integer)
Dim i As Integer
jc = 1
For i = 1 To TmpNum
jc = jc * i
Next i
End Function
有字数限制，发信息给你了