用vb求1到n的阶乘和的程序编写

用vb求1到n的阶乘和的程序：

自己编写函数代码：

Private Function jieC(Byval n As Integer) As Long

    Dim i As Integer

    Dim Fac As Long

    Fac = 1

    For i = 1 To n

        Fac = Fac * i

    Next i

    jieC = Fac

End Function

在需要求阶乘的地方，调用该函数：

例如：

Dim y As Long

y = jieC(10) '求阶乘(10)将用10调用上面的自定义函数，返回10的阶乘

n是求阶乘的基础数据，n=n*i i不断增加 就相当于求阶乘。每次求完一个数的阶乘后，要把它恢复成1 才能继续。第一个是在循环体外属于初始化。第二个在循环体内，就是每次求完一个阶乘后初始化一次

1）

for

i

=

1

to

n

2）

sum2

=

1

3）

for

j

=

1

to

i

4）

sum2

=

sum2

*

j

5）

next

j

6）

sum1

=

sum1

+

sum2

7）

next

i

这是循环的嵌套。内层循环（第3~5行）用来求阶乘，外层循环第6行主要来求阶乘的和，是一个累加器。

---