好吧问答库 > 用VB编程： s=1*1!+2*2!+3*3!+4*4!+...+10*10!

用VB编程： s=11!+22!+33!+44!+...+10*10!

用VB编程： s=1*1!+2*2!+3*3!+4*4!+...+10*10!谢谢啦

2026年08月28日 09:51

有3个网友回答

网友（1）：

Private Sub CommandButton1_Click()
Dim s As Double, n As Double
s = 0
For i = 1 To 10
n = 1
For j = 1 To i
n = n * j
Next j
s = s + i * n
Next i
Print s //print s可以换其他输出方法
End Sub

网友（2）：

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

网友（3）：

Private Sub Form_Load()
s = 0
n = 1
For i = 1 To 10
n = n * i
s = n * i
Next i
Text1.Text = s

End Sub