1*1！+2*2！+...+n*n!
这题怎么用VB实现

循环。。。
不知道数学上能不能先化简。。。

Private Sub Command1_Click()
Dim a, i As Integer
a = 1
For i = 2 To 6 '这里设置的n=6
a = i * i * a / (i - 1)
Sum = Sum + a
Next
Print Sum + 1
End Sub

谢谢版主,但是不对的耶!
我这样写不知对不对
Private Sub Command1_Click()
Dim a, i As Integer
a=1
For i=1 To 6 '这里设置的n=6
a=i*i*a
sum=sum+a
a=a/i
Next
Print sum
End Sub

Private Sub Command1_Click()
Dim a, i As Integer
a = 1
For i = 2 To 6 '这里设置的n=6
a = i * i * a / (i - 1)
Sum = Sum + a
Next
Print Sum + 1
End Sub

这个不对？？？？为什么？我算过了啊

1*1+2*2*1+3*3*2*1+4*4*3*2*1+5*5*4*3*2*1+6*6*5*4*3*2*1
都是一样的结果的说。你改的你自己试下就知道。不能从1开始。

，斑竹你的是正确的！！

。。。。