Private Sub Command1_Click()
n = Val(InputBox("n="))
t = 1
For i = 1 To n
t = t * i
s = s + t
Next i
Print "1!+2!+...+"; n & "!="; s
End Sub
vb不熟，给你个C++的，你自己改一下
int N = ;
int sum = 0;
int factoria = 1;
for(int i=1;i<=N;i++)
{
factoria = factoria * i;
sum = sum + factoria;
}
代码没有测试，不过思路大概就是这样的
内容全部来源于网络收集，如有侵权，请联系网站删除！