Visual Basic 該怎麼寫才不會lag N階層數

Question

N階層數
請寫一個程式求出 n! 的結果數值中，從右邊算來第一個不是0的數字(0 n 10000)。
例如：
3!=6 所以輸出 6。
5!=120 所以輸出 2。
10!=3628800 所以輸出 8。
輸入規範
輸入檔案中包含好幾筆資料，每筆資料一行，包含一個整數n（0 n 10000）。如果輸入的n=0，代表輸入結束。
輸出規範
對每行輸入，輸出N! 從右邊算來最後一個不是0的數字。
輸入範例（test3.txt）
1
10
26
125
3125
0
輸出範例（result3.txt）
1
8
4
8
2
輸入3125運算太多太lag該怎麼寫才不會lag

Answer 1

...為了驗證 N>3125的答案是否正確花了半小時..OrzPrivate Sub Command1_Click()   Dim ans As Currency   Open "C:\test3.txt" For Input As #1      Do Until EOF(1)         Input #1, N         ans = 1         For i = 1 To N            ans = ans * i            '去除 0 尾數            If Right$(ans, 1) = "0" Then               Do                  ans = Left(ans, Len(CStr(ans)) - 1)               Loop Until Right$(ans, 1)            End If            ans = Right(ans, 10)    '將乘積取後10位數            If (i = N) Then               'Print i, Right(ans, 1)               Open "C:\result3.txt" For Append As #2                  Print #2, Right(ans, 1)               Close #2            End If         Next      Loop   Close #1End Sub

Answer 2

looping大:能否再解說詳細點?

2006-11-23 12:53:19 補充：
謝謝looping大,清楚明瞭,來做做看囉!!

Answer 3

階層可拆成質因數乘積
而每個質因數個數也可很快算出
再者質因數2及5可以消掉一部份(2*5=10)
再配合每個質因數的循環+Mod的運算特性,應該可以快速算出

2006-11-23 07:07:43 補充：
例如 7!

(1) 7內質數2,3,5,7 (用篩法找)
7/2+7/4+7/8=3+1+0=4
7/3+7/9=2
7/5+7/25=1
7/7+7/49=1

7!=2^4*3^2*5*7=5040

2^4*3^2*5*7
(2*5產生10)
有用部份 2^3*3^2*7
(2^N)找尾數有個循環
2^1=[2] 2^2=[4] 2^3=[8] 2^4=1[6]
答案為 (((8*9)%10)*7)%10=4

Answer 4

如果你是用迴圈寫的話，請在For i = x to x的下一行打上這個：
DoEvents