Question

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

Answer 1

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

1. 自己编写函数代码：
   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

2. 在需要求阶乘的地方，调用该函数：
   例如：
   Dim y As Long
   y = jieC(10) '求阶乘(10)将用10调用上面的自定义函数，返回10的阶乘