算法,SHOW出你的极速阶乘

3721

好像有不少人都做过这个题目,应该不是一个很难的算法题,现在把要求提高一点,就是比比速度,看看谁的阶乘算的最快.
有兴趣的可以在此SHOW一下你的作品,期待大家的参与.
只有一个要求:n>12

这里说一下. n>12 这个限制就是说要考虑到溢出问题的。
建议大家以N>=500做为考虑的基准

3721

'求n!的精确值(500!需要运算3秒)  
'Text1.Multiline = True获得更好的显示效果  
Private Const MaxN = 100000  
Private BigN(0 To MaxN) As Long  

Private Sub Command1_Click()  
Dim n As Long, i As Long  
For i = 0 To MaxN  
BigN(i) = 0  
Next i  
BigN(0) = 1: BigN(1) = 1  
n = InputBox("输入一个正整数 :")  
If n > 1 Then  
For i = 1 To n  
Multiply (i)  
Next i  
Text1.Text = n & "! = "  
For i = BigN(0) To 1 Step -1  
Text1.Text = Text1.Text & BigN(i)  
Next i  
Else  
Text1.Text = n & "! = 1"  
End If  
End Sub  

Private Sub Multiply(ByVal n As Long)  
Dim k As Long, i As Long, t As Long  
For i = 1 To BigN(0)  
t = BigN(i) * n  
k = k + t  
BigN(i) = k Mod 10  
k = k \ 10  
Next i  
While k > 0  
BigN(0) = BigN(0) + 1  
BigN(BigN(0)) = k Mod 10  
k = k \ 10  
Wend  
End Sub