怎样编vb程序代码来计算阶乘的累加？

代码掘信中如下：

PrivateSubForm_Click()

DimnAsInteger,mAsLong,sumAsLong

m=1

sum=0

n=Val(InputBox("输入一个正整数"))

Fori=1Ton

m=m*i

sum=sum+m

Nexti

Printn&"的阶乘判山和是"&坦销sum

EndSub

1.用VB求出阶乘数虚脊春相加的值，分为两个步骤来求，差耐一个是计算阶乘野滚数，然后相加阶乘数。1!+2!+3!+……+n!举个例子。

2、首先要理解阶乘知识，4!它是数字1到4的乘法N!它是1到n的乘积等等。如下图所示。

3.现在我们来编写代码。第一步是定义变量，如下图所示。

4、这是一个累加器，所以会使用版本相关的累加器语句，这个问题使用for-next循环语句。具体的准备工作如下图所示。

5.这个问题不仅需要一个for-next循环，还需要一个嵌套在其中的for-next循环。

6.最后，编写剩余的代码并编写完整的代码，如下图所示。

7.运行程序并输入一个值来验证它。如果权值n是8，那么1!+2!+3!+4!。+8!=46233。

1、首先开始编写代码，定义变量，如下茄厅图所示。

2、这是一个累加程序，所以会用到相关的累加语句,此题使用For-Next循环语句。具体编写如下图所示。

3、不仅仅需要一个For-Next循环语颤物隐句，还需要在里面嵌套一个For-Next循环语句。

4、最后将剩下的代码补齐，编写完整的代码如下图所示。

5、然后运行程序，输入一个值检验一下蚂租。如果n为8，则1！+2!+3!+4!.......+8!=46233，就完成了。

---