Question

vb程序填空求1! 2! …… 10!的值

Answer 1

Public Function jiecheng(ByVal n As Integer) As Double
        Dim jc As Double
        jc = 1
        For i = 1 To n
            jc = jc * i
        Next
        jiecheng = jc
End Function

Private Function Factorial1(intN As Integer) As Integer
'采用递归计算阶乘
If intN = 0  Then
Factorial1 = 1
Else
Factorial1 = Factorial1(intN - 1) * intN
End If
End Function