用vb编写计算1!+ 2！+ 3！+ 。。。。。+ 100！

Private Sub Form_click()
Dim i As Integer, sum As Double
sum = 0
For i = 1 To 100
sum = sum + Factorial(i)
Next i
Print "1!+ 2！+ 3！+ 。。。。。+ 100！=" & sum
End Sub

Private Function Factorial(n As Integer) As Double
Dim i As Integer, t As Double
t = 1
For i = 1 To n
t = t * i
Next i
Factorial = t
End Function

Function alig(x)
n=1
u=x
do while(u>0)
n=n*u
u=u-1
loop
alig=n
end function
function doing(x)
n=0
u=x
do while(u>0)
n=n+alig(u)
u=u-1
loop
doing=n
end function
'msgbox(doing(inputbox("1!+2!+3!+...+n! n=?","n") ))
'如果要用msgbox，删除“'”。
msgbox(doing(100))