VB编程，输入整数N，计算1！＋2！＋．．．．．＋N！＝

Question

刚学习一星期,莫笑话

Answer 1

我特别喜欢VB,以后有什么困难请发邮件给我(156095502@163.com),很乐意为您服务!

Private Sub Command1_Click()
n = InputBox("请输入一个整数:", "提示", "")
ss = 0
For i = 1 To n
si = 1
For j = 1 To i
si = si * j
Next j
ss = ss + si
Next i
MsgBox "1!+2!+...+n!=" & Trim(Str(ss))
End Sub

Answer 2

两层for就行了呢
sum=0
for i=1 to N
for j=1 to i
sum=sum+j
next j
next i

Answer 3

public function f(x as integer)
f=1
for a=1 to x
f=f*a
next a
end function

private sub form_load()
t=0
for a=1 to inputbox("输入N")
t=t+f(a)
next a
print t
end sub

Answer 4

先在代码窗口粘贴复制这段代码：
Function Factorial(ByVal n As Integer) As Long'求阶乘函数
If n < 0 Then
Factorial = 0 '小于0则得0
Else
Factorial = 1
For i = 1 To n
Factorial = Factorial * i
Next
End If
End Function
添加一个Commmand控件：
Private Sub Command1_Click()
Dim N As Integer
N = InputBox("输入 N")
For i = 1 To N
Sum = Sum + Factorial(i)
Next
Print Sum
End Sub