哪位高人教我做个题吧，用VBA语言编写程序：求1！+2！+3！+……+10！多谢多谢啊！！！

Answer 1

dim i,n,s
n=1
s=0
for i=1 to 10
n=n*i
s=s+n
next i
msgbox s

Answer 2

Sub test()
Dim ReturnValue As Long
ReturnValue = 0
For i = 1 To 10
ReturnValue = ReturnValue + WorksheetFunction.Fact(i)
Next i
MsgBox ReturnValue
End Sub

Answer 3

Sub 1~10整数之和()
Dim m As Long
Dim n As Integer
For n = 1 To 10 Step 1
m = m + n
Next n
Range("B2") = m

End Sub