VB编程:S=1!+2!+3!+4!+5!+6!+7!+8!+9!+10!

dim i,j=1,s=0
for i=1 to 10
j=j*i
s=s+j
next

print s

具体自己再看看，就是这个思想，很简答的，

Private Sub Command1_Click()
For i = 1 To 10
n = 1
For k = 1 To i
n = n * k
Next k
s = s + n
Next i
Print s
End Sub

dim s,t as long
s=0

for i=1 to 10
t=1
for j=1 to i
t=t*j
next
s=s+t
next

msgbox s

Private Sub Form_Load()
Me.AutoRedraw = True
Dim i As Integer
Dim j As Long
Dim s As Long
j = 1
s = 0
For i = 1 To 10
j = j * i
s = s + j
Next i
Print s
End Sub