和Basic版相比，這個版本有以下幾處不同點
這次采用的不是靜態數組，而是動態數組，先定義一個數組“Dim buff()”，在運行過程中再根據需要擴展大小。
計算結果沒有直接輸出，而是寫到文件，因為當字符串太長時，MsgBox的會丟失部分內容
難點：確定n！的位數是難點，ln(n!) 可用 斯特林逼近 來計算,ln(n!)= (n+0.5)ln(n)- n + 0.5*ln(2*pi)
請參考 http://mathworld.wolfram.com/StirlingsApproximation.html

下面為源代碼

Dim n,i,j,c,t,len1 Dim buff() Dim numstrConst RAD=10000 Const PI=3.1415926535897932384626433832795numstr= InputBox( "please input a numer n(n>1)", "calculate the n!", 1)if numstr > "" and IsNumeric( numstr ) Thenn=CLng(numstr)log_facn=(n+0.5)*Log(n)-n+0.5*Log(2*PI) 'log_facn=ln(n!)ReDim buff(log_facn/Log(RAD)+1) 'Expand array size for store n!buff(1)=1len1=1For i=1 to nc=CLng(0)For j= 1 to len1t=CLng(buff(j))* CLng(i)+cbuff(j)=t MOD RADc=t \ RADNextIf c>0 Thenlen1=len1+1buff(len1)=c End If Next'Caculation is completed, the following code for write the result to filefilename=".\" & CStr(n) & ".txt"Set fs = CreateObject("Scripting.FileSystemObject")Set a = fs.CreateTextFile(filename, True)numstr=CStr(buff(len1))For j=len1-1 to 1 step -1t=CStr(buff(j))If Len(t)<4 Thennumstr=numstr & String(4-Len(t),"0") End Ifnumstr=numstr & tIf Len(numstr) > 76 Thena.WriteLine(numstr)numstr=""End if NextIf (Len(numstr)>0) Thena.WriteLine(numstr)End Ifa.closeMsgBox "Result have been stored to file " & filename,0,"calculate n!" ElseMsgBox "Invalid input" End if

參考學習資料
1. VBScript 教程,可從VBScript http://download.pchome.net/development/reference/detail-11108.html
2. VB script 腳本語言.doc

總結

以上是生活随笔為你收集整理的计算大数阶乘--VB Script 版的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。