Question

VB 求1!+2!+3!+……+100!的和的代码

Answer 1

Private Sub Command1_Click()
For i = 1 To 100
stp = 1
For j = 1 To i
stp = stp * i
Next j
Print i & " != " & stp
Sum = Sum + stp
Next i
MsgBox Sum
End Sub

14以后的阶乘因为数字太大不精确的哦

Answer 2

for i = 1 to 100
stp=1
for j = 1 to i
stp=stp*i
next j
sum = sum+stp
next i
msgbox sum