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

谢谢版主,但是不对的耶!
我这样写不知对不对
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

，斑竹你的是正确的！！