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

s=0:t=1
for i = 1 to 10
t=t*i
s=s+t
next i

for i=1 to 10
for j=1 to i
b=i*j
next j
s=s+b
next i
print "结果是：" & s

Private Sub Form_click()
Dim i As Integer, sum As Double
sum = 0
For i = 1 To 100
sum = sum + Factorial(i)
Next i
Print "1!+ 2！+ 3！+ 。。。。。+ 10！=" & sum
End Sub

Private Function Factorial(n As Integer) As Double
Dim i As Integer, t As Double
t = 1
For i = 1 To n
t = t * i
Next i
Factorial = t
End Function