编写程序,计算1!+2!+3!+……+10!的和,并使用PRINT显示计算结果

2024-12-26 00:26:02
推荐回答(1个)
回答1:

Private Sub Form_Click()
Dim s As Double
m = 1
For n = 1 To 10
m = m * n
s = s + m
Next
Print s
End Sub