vb计算s=1*1!+2*2!+…+10*10!

dim m,n,s as integer
for n=1 to 10
m=n*n
s=s+m
next n
print s
创建一个按钮，把代码加到里面

Private Sub Form_click()
Dim i, j As Integer
Dim a, b, c As Long
For i = 1 To 10 Step 1
a = 1
For j = 1 To i Step 1
a = a * j
Next j
b = i * a
c = c + b
Next i
Print b
End Sub

Private Sub Command1_Click()
jiecheng = 1
chengji = 1
For i = 1 To 10
For j = 1 To i
jiecheng = jiecheng * j
Next j
chengji = i * jiecheng
Sum = Sum + chengji
Next i
Text1 = Sum
End Sub