什么叫做“阶乘的和”?是哪些的和?
Private Sub Command1_Click()
Dim n As Integer, s As Long
n = CInt(InputBox("n="))
fac n, s
MsgBox n & "!=" & s
End Sub
Sub fac(n As Integer, s As Long)
s = 1
For i = 2 To n
s = s * i
Next i