我能算到的阶乘有多大（一）

Author：水如烟

《200的阶乘即200!是多少?一个简陋的大数加、乘方法》
一文提供的方法，能算到多大的阶乘，囿于计算机内存。

昨晚看它能否算完1000到10000的，算不完，中途内存溢出。只是输出格式我疏忽了，现在的结果不知自然数是什么。
测试代码：

ublic  Class  Form1

     Dim  a  As   New  UnitString
     Dim  b  As   New  UnitString
     Dim  s  As  UnitString
     Private   Sub  Button1_Click( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles  Button1.Click
        a.Value  =   " 402387260077093773543702433923003985719374864210714632543799910429938512398629020592044208486969404800479988610197196058631666872994808558901323829669944590997424504087073759918823627727188732519779505950995276120874975462497043601418278094646496291056393887437886487337119181045825783647849977012476632889835955735432513185323958463075557409114262417474349347553428646576611667797396668820291207379143853719588249808126867838374559731746136085379534524221586593201928090878297308431392844403281231558611036976801357304216168747609675871348312025478589320767169132448426236131412508780208000261683151027341827977704784635868170164365024153691398281264810213092761244896359928705114964975419909342221566832572080821333186116811553615836546984046708975602900950537616475847728421889679646244945160765353408198901385442487984959953319101723355556602139450399736280750137837615307127761926849034352625200015888535147331611702103968175921510907788019393178114194545257223865541461062892187960223838971476088506276862967146674697562911234082439208160153780889893964518263243671616762179168909779911903754031274622289988005195444414282012187361745992642956581746628302955570299024324153181617210465832036786906117260158783520751516284225540265170483304226143974286933061690897968482590125458327168226458066526769958652682272807075781391858178889652208164348344825993266043367660176999612831860788386150279465955131156552036093988180612138558600301435694527224206344631797460594682573103790084024432438465657245014402821885252470935190620929023136493273497565513958720559654228749774011413346962715422845862377387538230483865688976461927383814900140767310446640259899490222221765904339901886018566526485061799702356193897017860040811889729918311021171229845901641921068884387121855646124960798722908519296819372388642614839657382291123125024186649353143970137428531926649875337218940694281434118520158014123344828015051399694290153483077644569099073152433278288269864602789864321139083506217095002597389863554277196742822248757586765752344220207573630569498825087968928162753848863396909959826280956121450994871701244516461260379029309120889086942028510640182154399457156805941872748998094254742173582401063677404595741785160829230135358081840096996372524230560855903700624271243416909004153690105933983835777939410970027753472000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 "
         Try
             For  i  As   Integer   =   1001   To   10000
                b.Value  =  i.ToString
                a  =  a  *  b
             Next
             Me .RichTextBox1.AppendText( String .Format( " {0,-4},{1,-4},{2} " ,  300 , a.Length, a.Value)  &  vbCrLf)
            Application.DoEvents()
         Catch  ex  As  Exception

         End   Try

     End Sub

End Class

结果：

300 ,35660,2846259680917054518906413212119868890148051401702799230794179994274411340003764443772990786757784775815884062142
31752883004233994015351873905242116138271617481982419982759241828925978789812425312059465996259867065601615720360323979
26328736717055741975962099479720346153698119897092611277500484198845410475544642442136573303076703628825803548967461117
09736957860367019107151273058728104115864056128116538532596842582599558468814643042558983664931705925171720427659740744
61334000541940524623034368691540594040662278282483715120383221786446271838229238996389928272218797024593876938030946273
32292570555459690027875282242544348021127559019169425429028916907219097083690539873747452483372899521802363282741217040
26808676921045155584056717255537201585213282903427998981844931361064038148930449962159999935967089298019033699848440466
54192362584249471631789611920412331082686510713545168455409360330096072103469443779823494307806260694223026818852275920
57029230843126188497606560742586279448827155956831533440534425446648416894580425709461673613187605234982286326452921529
42347987060334429073715868849917893258069148316885425195600617237263632397442078692464295601230628872012265295296409150
83013366309827338063539729015065818225742954758943997651138655412081257886837042392087644847615690012648892715907063064
09661628038784044485191643790807186112370622133415415065991843875961023926713276546986163657706626438638029848051952769
5361952592409309086144719073907685857559347869817207343720931048254