Private Sub Form_Load()
Dim i As Integer, j As Integer, sum As Long, jiech As Long
sum = 0
For i = 1 To 10 '求和数
jiech = 0 '求阶乘时赋初始值0
For j = 1 To i '求i的阶乘
jiech = jiech + jiech * i
Next j
sum = sum + jiech '阶乘求和
Next i
Print sum '输出
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024