用近似公式求自然对数的底数e的值,要求计算结果的误差小于10^(-9)
Private Sub Command1_Click()
Dim a As Double, t As Double, i As Integer
i = 2
s = 2
t = 1
Do While t >= 0.000000001
s = s + t / i
t = t / i
i = i + 1
Loop
Print s
End Sub

与
Private Sub Form_Click()
Dim a As Double, t As Double, i As Integer
i = 2
s = 0
t = 1
Do While t >= 0.000000001
s = s + t
t = t / i
i = i + 1
Loop
Print s
End Sub
为什么最后的结果不一样??哪个更好??

和下面的数比较一下。。。精度高的就是对的。。。

2.7182818284590452353602874713526624977572470936999595749669676277240766303535\
475945713821785251664274274663919320030599218174135966290435729003342952605956\
307381323286279434907632338298807531952510190115738341879307021540891499348841\
675092447614606680822648001684774118537423454424371075390777449920695517027618\
386062613313845830007520449338265602976067371132007093287091274437470472306969\
772093101416928368190255151086574637721112523897844250569536967707854499699679\
468644549059879316368892300987931277361782154249992295763514822082698951936680\
331825288693984964651058209392398294887933203625094431173012381970684161403970\
198376793206832823764648042953118023287825098194558153017567173613320698112509\
961818815930416903515988885193458072738667385894228792284998920868058257492796\
104841984443634632449684875602336248270419786232090021609902353043699418491463\
140934317381436405462531520961836908887070167683964243781405927145635490613031\
072085103837505101157477041718986106873969655212671546889570350354021234078498\
193343210681701210056278802351930332247450158539047304199577770935036604169973\
297250886876966403555707162268447162560798826517871341951246652010305921236677\
194325278675398558944896970964097545918569563802363701621120477427228364896134\
225164450781824423529486363721417402388934412479635743702637552944483379980161\
254922785092577825620926226483262779333865664816277251640191059004916449982893\
150566047258027786318641551956532442586982946959308019152987211725563475463964\
479101459040905862984967912874068705048958586717479854667757573205681288459205\
413340539220001137863009455606881667400169842055804033637953764520304024322566\
135278369511778838638744396625322498506549958862342818997077332761717839280349\
465014345588970719425863987727547109629537415211151368350627526023264847287039\
207643100595841166120545297030236472549296669381151373227536450988890313602057\
248176585118063036442812314965507047510254465011727211555194866850800368532281\
831521960037356252794495158284188294787610852639813955990067376482922443752871\
846245780361929819713991475644882626039033814418232625150974827987779964373089\
970388867782271383605772978824125611907176639465070633045279546618550966661856\
647097113444740160704626215680717481877844371436988218559670959102596862002353\
718588748569652200050311734392073211390803293634479727355955277349071783793421\
637012050054513263835440001863239914907054797780566978533580489669062951194324\
730995876552368128590413832411607226029983305353708761389396391779574540161372\
236187893652605381558415871869255386061647798340254351284396129460352913325942\
794904337299085731580290958631382683291477116396337092400316894586360606458459\
251269946557248391865642097526850823075442545993769170419777800853627309417101\
634349076964237222943523661255725088147792231519747780605696725380171807763603\
462459278778465850656050780844211529697521890874019660906651803516501792504619\
501366585436632712549639908549144200014574760819302212066024330096412704894390\
397177195180699086998606636583232278709376502260149291011517177635944602023249\
300280401867723910288097866605651183260043688508817157238669842242201024950551\
881694803221002515426494639812873677658927688163598312477886520141174110913601\
164995076629077943646005851941998560162647907615321038727557126992518275687989\
302761761146162549356495903798045838182323368612016243736569846703785853305275\
833337939907521660692380533698879565137285593883499894707416181550125397064648\
171946708348197214488898790676503795903669672494992545279033729636162658976039\
498576741397359441023744329709355477982629614591442936451428617158587339746791\
897571211956187385783644758448423555581050025611492391518893099463428413936080\
383091662818811503715284967059741625628236092168075150177725387402564253470879\
089137291722828611515915683725241630772254406337875931059826760944203261924285\
317018781772960235413060672136046000389661093647095141417185777014180606443636\
815464440053316087783143174440811949422975599314011888683314832802706553833004\
693290115744147563139997221703804617092894579096271662260740718749975359212756\
084414737823303270330168237193648002173285734935947564334129943024850235732214\
597843282641421684878721673367010615094243456984401873312810107945127223737886\
126058165668053714396127888732527373890392890506865324138062796025930387727697\
783792868409325365880733988457218746021005311483351323850047827169376218004904\
795597959290591655470505777514308175112698985188408718564026035305583737832422\
924185625644255022672155980274012617971928047139600689163828665277009752767069\
777036439260224372841840883251848770472638440379530166905465937461619323840363\
893131364327137688841026811219891275223056256756254701725086349765367288605966\
752740868627407912856576996313789753034660616669804218267724560530660773899624\
218340859882071864682623215080288286359746839654358856685503773131296587975810\
501214916207656769950659715344763470320853215603674828608378656803073062657633\
469774295634643716709397193060876963495328846833613038829431040800296873869117\
066666146800015121143442256023874474325250769387077775193299942137277211258843\
608715834835626961661980572526612206797540621062080649882918454395301529982092\
503005498257043390553570168653120526495614857249257386206917403695213533732531\
666345466588597286659451136441370331393672118569553952108458407244323835586063\
106806964924851232632699514603596037297253198368423363904632136710116192821711\
150282801604488058802382031981493096369596735832742024988245684941273860566491\
352526706046234450549227581151709314921879592718001940968866986837037302200475\
314338181092708030017205935530520700706072233999463990571311587099635777359027\
196285061146514837526209565346713290025994397663114545902685898979115837093419\
370441155121920117164880566945938131183843765620627846310490346293950029458341\
164824114969758326011800731699437393506966295712410273239138741754923071862454\
543222039552735295240245903805744502892246886285336542213815722131163288112052\
146489805180092024719391710555390113943316681515828843687606961102505171007392\
762385553386272553538830960671644662370922646809671254061869502143176211668140\
097595281493907222601112681153108387317617323235263605838173151034595736538223\
534992935822836851007810884634349983518404451704270189381994243410090575376257\
767571118090088164183319201962623416288166521374717325477727783488774366518828\
752156685719506371936565390389449366421764003121527870222366463635755503565576\
948886549500270853923617105502131147413744106134445544192101336172996285694899\
193369184729478580729156088510396781959429833186480756083679551496636448965592\
948187851784038773326247051945050419847742014183947731202815886845707290544057\
510601285258056594703046836344592652552137008068752009593453607316226118728173\
928074623094685367823106097921599360019946237993434210687813497346959246469752\
506246958616909178573976595199392993995567542714654910456860702099012606818704\
984178079173924071945996323060254707901774527513186809982284730860766536866855\
516467702911336827563107223346726113705490795365834538637196235856312618387156\
774118738527722922594743373785695538456246801013905727871016512966636764451872\
465653730402443684140814488732957847348490003019477888020460324660842875351848\
364959195082888323206522128104190448047247949291342284951970022601310430062410\
717971502793433263407995960531446053230488528972917659876016667811937932372453\
857209607582277178483361613582612896226118129455927462767137794487586753657544\
861407611931125958512655759734573015333642630767985443385761715333462325270572\
005303988289499034259566232975782488735029259166825894456894655992658454762694\
528780516501720674785417887982276806536650641910973434528878338621726156269582\
654478205672987756426325321594294418039943217000090542650763095588465895171709\
147607437136893319469090981904501290307099566226620303182649365733698419555776\
963787624918852865686607600566025605445711337286840205574416030837052312242587\
223438854123179481388550075689381124935386318635287083799845692619981794523364\
087429591180747453419551420351726184200845509170845682368200897739455842679214\
273477560879644279202708312150156406341341617166448069815483764491573900121217\
041547872591998943825364950514771379399147205219529079396137621107238494290616\
357604596231253506068537651423115349665683715116604220796394466621163255157729\
070978473156278277598788136491951257483328793771571459091064841642678309949723\
674420175862269402159407924480541255360431317992696739157542419296607312393763\
542139230617876753958711436104089409966089471418340698362993675362621545247298\
464213752891079884381306095552622720837518629837066787224430195793793786072107\
254277289071732854874374355781966511716618330881129120245204048682200072344035\
025448202834254187884653602591506445271657700044521097735585897622655484941621\
714989532383421600114062950718490427789258552743035221396835679018076406042138\
307308774460170842688272261177180842664333651780002171903449234264266292261456\
004337383868335555343453004264818473989215627086095650629340405264943244261445\
665921291225648893569655009154306426134252668472594914314239398845432486327461\
842846655985332312210466259890141712103446084271616619001257195870793217569698\
544013397622096749454185407118446433946990162698351607848924514058940946395267\
807354579700307051163682519487701189764002827648414160587206184185297189154019\
688253289309149665345753571427318482016384644832499037886069008072709327673127\
581966563941148961716832980455139729506687604740915420428429993541025829113502\
241690769431668574242522509026939034814856451303069925199590436384028429267412\
573422447765584177886171737265462085498294498946787350929581652632072258992368\
768457017823038096567883112289305809140572610865884845873101658151167533327674\
887014829167419701512559782572707406431808601428149024146780472327597684269633\
935773542930186739439716388611764209004068663398856841681003872389214483176070\
116684503887212364367043314091155733280182977988736590916659612402021778558854\
876176161989370794380056663364884365089144805571039765214696027662583599051987\
04230017946553679

这是什么呀???这么多位数

e是一个无限不循环小数，上面的是精确到不知道小数点后多少位的值

我只想问,为什么我所写出的程序中第一个是标准的??