随机下载粤曲:VB中输入一个n,求n的阶乘怎么编?

来源:百度文库 编辑:高校问答 时间:2024/04/28 00:13:39

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

还有一部分自己写

楼上用了递归法,这方法好!