神马品牌网熊是杂食动物吗:VB中输入一个n，求n的阶乘怎么编？
来源：百度文库 编辑：神马品牌网 时间：2024/07/08 20:45:35
i=1;
for j= 2 to n
i=i*j '连乘
next
msgbox i 'i 就是结果
Private Function jiecheng(n As Integer) As Integer
If n = 1 Then
jiecheng = 1
Else
jiecheng = n * jiecheng(n - 1)
End If
End Function
n的阶乘算法：
首先定义fac=1，s=0
for i=1 to n
fac=fac*i
s=s+fac
next
还有一部分自己写
楼上用了递归法,这方法好!