VB：用函数实现1+2！+3！+4！+......+10!

Private Sub Form_Click()
Dim i, j As Integer
Dim temp, answer As Double
For i = 1 To 10
temp = 1
For j = i To 1 Step -1
temp = temp * j
Next j
answer = answer + temp
Next i
Print "答案为：" & answer
End Sub

private function factor_sum(n as integer) as integer
factor_sum=0
for i=1 to n
f=1
for j=1 to i
f=f*j
next j
factor_sum=factor_sum+f
next i
end sub

调用时:
result=factor_sum(10)
或 print factor_sum(10)
即可.