请教一个菜鸟VB问题！！！急，23：50前搞定啊~~

发布网友 发布时间：2022-04-20 10:20

我来回答

共1个回答

热心网友 时间：2023-07-15 00:30

因为这里没人用QQ,所以我没有QQ,只有MSN。就这里说明吧!
'采用普遍的***级数展开方法 pi=2+1/3*(2+2/5*(2+3/7*(2+4/9*(2+5/11 .....))))))

'输入：需计算的圆周率位数，理论精度约30万位

'Add a commandbutton and textbox(multine=true,scrollbars=both) to form1

Option Explicit

Private Sub Command1_Click()
getpi CLng(InputBox("生成多少位数（1-50000）的PI？", "提示", 30000))
End Sub

Sub getpi(Optional ByVal nums As Long = 10000)
nums = nums \ 5
Dim max As Long, laptime As Single, result() As String

Dim i As Long, j As Long, t, d As Long, g, k As Long, f()
laptime = Timer
max = 18 * nums
ReDim f(0 To max)
ReDim result(nums)
For i = 0 To max
f(i) = 20000
Next
result(0) = "π=" & vbCrLf
g = 20000
For j = max To 1 Step -18
t = 0

For i = j To 1 Step -1
t = t + f(i) * 100000
d = 2 * i + 1

f(i) = t - Int(t / d) * d
t = Int(t / d) * i
Next
k = k + 1
result(k) = Format(Int(g + t / 100000) Mod 100000, "00000")
If k Mod 20 = 0 Then result(k) = result(k) & vbCrLf
If k Mod 200 = 0 Then result(k) = result(k) & "---[" & k * 5 & "]---" & vbCrLf
g = t Mod 100000
Next
Text1.Text = Join(result, " ")
Me.Caption = "计算完毕！总计用时" & Timer - laptime & "秒！"
End Sub

返回:

π=
31415 92653 58979 32384 62643 38327 95028 84197 16939 93751 05820 97494 45923 07816 40628 62089 98628 03482 53421 17067
98214 80865 13282 30664 70938 44609 55058 22317 25359 40812 84811 17450 28410 27019 38521 10555 96446 22948 95493 03819
64428 81097 56659 33446 12847 56482 33786 78316 52712 01909 14564 85669 23460 34861 04543 26648 21339 36072 60249 14127
37245 87006 60631 55881 74881 52092 09628 29254 09171 53643 67892 59036 00113 30530 54882 04665 21384 14695 19415 11609
43305 72703 65759 59195 30921 86117 38193 26117 93105 11854 80744 62379 96274 95673 51885 75272 48912 27938 18301 19491
29833 67336 24406 56643 08602 13949 46395 22473 71907 02179 86094 37027 70539 21717 62931 76752 38467 48184 67669 40513
20005 68127 14526 35608 27785 77134 27577 89609 17363 71787 21468 44090 12249 53430 14654 95853 71050 79227 96892 58923
54201 99561 12129 02196 08640 34418 15981 36297 74771 30996 05187 07211 34999 99983 72978 04995 10597 31732 81609 63185
95024 45945 53469 08302 64252 23082 53344 68503 52619 31188 17101 00031 37838 75288 65875 33208 38142 06171 77669 14730
35982 53490 42875 54687 31159 56286 38823 53787 59375 19577 81857 78053 21712 26806 61300 19278 76611 19590 92164 20198
---[1000]---
93809 52572 01065 48586 32788 65936 15338 18279 68230 30195 20353 01852 96899 57736 22599 41389 12497 21775 28347 91315
15574 85724 24541 50695 95082 95331 16861 72785 58890 75098 38175 46374 64939 31925 50604 00927 70167 11390 09848 82401
28583 61603 56370 76601 04710 18194 29555 96198 94676 78374 49448 25537 97747 26847 10404 75346 46208 04668 42590 69491
29331 36770 28989 15210 47521 62056 96602 40580 38150 19351 12533 82430 03558 76402 47496 47326 39141 99272 60426 99227
96782 35478 16360 09341 72164 12199 24586 31503 02861 82974 55570 67498 38505 49458 85869 26995 69092 72107 97509 30295
53211 65344 98720 27559 60236 48066 54991 19881 83479 77535 66369 80742 65425 27862 55181 84175 74672 89097 77727 93800
08164 70600 16145 24919 21732 17214 77235 01414 41973 56854 81613 61157 35255 21334 75741 84946 84385 23323 90739 41433
34547 76241 68625 18983 56948 55620 99219 22218 42725 50254 25688 76717 90494 60165 34668 04988 62723 27917 86085 78438
38279 67976 68145 41009 53883 78636 09506 80064 22512 52051 17392 98489 60841 28488 62694 56042 41965 28502 22106 61186
30674 42786 22039 19494 50471 23713 78696 09563 64371 91728 74677 64657 57396 24138 90865 83264 59958 13390 47802 75900
---[2000]---
99465 76407 89512 69468 39835 25957 09825 82262 05224 89407 72671 94782 68482 60147 69909 02640 13639 44374 55305 06820
34962 52451 74939 96514 31429 80919 06592 50937 22169 64615 15709 85838 74105 97885 95977 29754 98930 16175 39284 68138
26868 38689 42774 15599 18559 25245 95395 94310 49972 52468 08459 87273 64469 58486 53836 73622 26260 99124 60805 12438
84390 45124 41365 49762 78079 77156 91435 99770 01296 16089 44169 48685 55848 40635 34220 72225 82848 86481 58456 02850
60168 42739 45226 74676 78895 25213 85225 49954 66672 78239 86456 59611 63548 86230 57745 64980 35593 63456 81743 24112
51507 60694 79451 09659 60940 25228 87971 08931 45669 13686 72287 48940 56010 15033 08617 92868 09208 74760 91782 49385
89009 71490 96759 85261 36554 97818 93129 78482 16829 98948 72265 88048 57564 01427 04775 55132 37964 14515 23746 23436
45428 58444 79526 58678 21051 14135 47357 39523 11342 71661 02135 96953 62314 42952 48493 71871 10145 76540 35902 79934
40374 20073 10578 53906 21983 87447 80847 84896 83321 44571 38687 51943 50643 02184 53191 04848 10053 70614 68067 49192
78191 19793 99520 61419 66342 87544 40643 74512 37181 92179 99839 10159 19561 81467 51426 91239 74894 09071 86494 23196
---[3000]---
15679 45208 09514 65502 25231 60388 19301 42093 76213 78559 56638 93778 70830 39069 79207 73467 22182 56259 96615 01421
50306 80384 47734 54920 26054 14665 92520 14974 42850 73251 86660 02132 43408 81907 10486 33173 46496 51453 90579 62685
61005 50810 66587 96998 16357 47363 84052 57145 91028 97064 14011 09712 06280 43903 97595 15677 15770 04203 37869 93600
72305 58763 17635 94218 73125 14712 05329 28191 82618 61258 67321 57919 84148 48829 16447 06095 75270 69572 20917 56711
67229 10981 69091 52801 73506 71274 85832 22871 83520 93539 65725 12108 35791 51369 88209 14442 10067 51033 46711 03141
26711 13699 08658 51639 83150 19701 65151 16851 71437 65761 83515 56508 84909 98985 99823 87345 52833 16355 07647 91853
58932 26185 48963 21329 33089 85706 42046 75259 07091 54814 16549 85946 16371 80270 98199 43099 24488 95757 12828 90592
32332 60972 99712 08443 35732 65489 38239 11932 59746 36673 05836 04142 81388 30320 38249 03758 98524 37441 70291 32765
61809 37734 44030 70746 92112 01913 02033 03801 97621 10110 04492 93215 16084 24448 59637 66983 89522 86847 83123 55265
82131 44957 68572 62433 44189 30396 86426 24341 07732 26978 02807 31891 54411 01044 68232 52716 20105 26522 72111 66039
---[4000]---
66655 73092 54711 05578 53763 46682 06531 09896 52691 86205 64769 31257 05863 56620 18558 10072 93606 59876 48611 79104
53348 85034 61136 57686 75324 94416 68039 62657 97877 18556 08455 29654 12665 40853 06143 44431 85867 69751 45661 40680
07002 37877 65913 44017 12749 47042 05622 30538 99456 13140 71127 00040 78547 33269 93908 14546 64645 88079 72708 26683
06343 28587 85698 30523 58089 33065 75740 67954 57163 77525 42021 14955 76158 14002 50126 22859 41302 16471 55097 92592
30990 79654 73761 25517 65675 13575 17829 66645 47791 74501 12996 14890 30463 99471 32962 10734 04375 18957 35961 45890
19389 71311 17904 29782 85647 50320 31986 91514 02870 80859 90480 10941 21472 21317 94764 77726 22414 25485 45403 32157
18530 61422 88137 58504 30633 21751 82979 86622 37172 15916 07716 69254 74873 89866 54949 45011 46540 62843 36639 37900
39769 26567 21463 85306 73609 65712 09180 76383 27166 41627 48888 00786 92560 29022 84721 04031 72118 60820 41900 04229
66171 19637 79213 37575 11495 95015 66049 63186 29472 65473 64252 30817 70367 51590 67350 23507 28354 05670 40386 74351
36222 24771 58915 04953 09844 48933 30963 40878 07693 25993 97805 41934 14473 77441 84263 12986 08099 88868 74132 60472
---[5000]---
15695 16239 65864 57302 16315 98193 19516 73538 12974 16772 94786 72422 92465 43668 00980 67692 82382 80689 96400 48243
54037 01416 31496 58979 40924 32378 96907 06977 94223 62508 22168 89573 83798 62300 15937 76471 65122 89357 86015 88161
75578 29735 23344 60428 15126 27203 73431 46531 97777 41603 19906 65541 87639 79293 34419 52154 13418 99485 44473 45673
83162 49934 19131 81480 92777 71038 63877 34317 72075 45654 53220 77709 21201 90516 60962 80490 92636 01975 98828 16133
23166 63652 86193 26686 33606 27356 76303 54477 62803 50450 77723 55471 05859 54870 27908 14356 24014 51718 06246 43626
79456 12753 18134 07833 03362 54232 78394 49753 82437 20583 53114 77119 92606 38133 46776 87969 59703 09833 91307 71098
70408 59133 74641 44282 27726 34659 47047 45878 47787 20192 77152 80731 76790 77071 57213 44473 06057 00733 49243 69311
38350 49316 31284 04251 21925 65179 80694 11352 80131 47013 04781 64378 85185 29092 85452 01165 83934 19656 21349 14341
59562 58658 65570 55269 04965 20985 80338 50722 42648 29397 28584 78316 30577 77560 68887 64462 48246 85792 60395 35277
34803 04802 90058 76075 82510 47470 91643 96136 26760 44925 62742 04208 32085 66119 06254 54337 21315 35958 45068 77246
---[6000]---
02901 61876 67952 40616 34252 25771 95429 16299 19306 45537 79914 03734 04328 75262 88896 39958 79475 72917 46426 35745
52540 79091 45135 71113 69410 91193 93251 91076 02082 52026 18798 53188 77058 42972 59167 78131 49699 00901 92116 97173
72784 76847 26860 84900 33770 24242 91651 30050 05168 32336 43503 89517 02989 39223 34517 22013 81280 69650 11784 40874
51960 12122 85993 71623 13017 11444 84640 90389 06449 54440 06198 69075 48516 02632 75052 98349 18740 78668 08818 33851
02283 34508 50486 08250 39302 13321 97155 18430 63545 50076 68282 94930 41377 65527 93975 17546 13953 98468 33936 38304
74611 99665 38581 53842 05685 33862 18672 52334 02830 87112 32827 89212 50771 26294 63229 56398 98989 35821 16745 62701
02183 56462 20134 96715 18819 09730 38119 80049 73407 23961 03685 40664 31939 50979 01906 99639 55245 30054 50580 68550
19567 30229 21913 93391 85680 34490 39820 59551 00226 35353 61920 41994 74553 85938 10234 39554 49597 78377 90237 42161
72711 17236 43435 43947 82218 18528 62408 51400 66604 43325 88856 98670 54315 47069 65747 45855 03323 23342 10730 15459
40516 55379 06866 27333 79958 51156 25784 32298 82737 23198 98757 14159 57811 19635 83300 59408 73068 12160 28764 96286
---[7000]---
74460 47746 49159 95054 97374 25626 90104 90377 81986 83593 81465 74126 80492 56487 98556 14537 23478 67330 39046 88383
43634 65537 94986 41927 05638 72931 74872 33208 37601 12302 99113 67938 62708 94387 99362 01629 51541 33714 24892 83072
20126 90147 54668 47653 57616 47737 94675 20049 07571 55527 81965 36213 23926 40616 01363 58155 90742 20202 03187 27760
52772 19005 56148 42555 18792 53034 35139 84425 32234 15762 33610 64250 63904 97500 86562 71095 35919 46589 75141 31034
82276 93062 47435 36325 69160 78154 78181 15284 36679 57061 10861 53315 04452 12747 39245 44945 42368 28860 61340 84148
63776 70096 12071 51249 14043 02725 38607 64823 63414 33462 35189 75766 45216 41376 79690 31495 01910 85759 84423 91986
29164 21939 94907 23623 46468 44117 39403 26591 84044 37805 13338 94525 74239 95082 96591 22850 85558 21572 50310 71257
01266 83024 02929 52522 01187 26767 56220 41542 05161 84163 48475 65169 99811 61410 10029 96078 38690 92916 03028 84002
69104 14079 28862 15078 42451 67090 87000 69928 21206 60418 37180 65355 67252 53256 75328 61291 04248 77618 25829 76515
79598 47035 62226 29348 60034 15872 29805 34989 65022 62917 48788 20273 42092 22245 33985 62647 66914 90556 28425 03912
---[8000]---
75771 02840 27998 06636 58254 88926 48802 54566 10172 96702 66407 65590 42909 94568 15065 26530 53718 29412 70336 93137
85178 60904 07086 67114 96558 34343 47693 38578 17113 86455 87367 81230 14587 68712 66034 89139 09562 00993 93610 31029
16161 52881 38437 90990 42317 47336 39480 45759 31493 14052 97634 75748 11935 67091 10137 75172 10080 31559 02485 30906
69203 76719 22033 22909 43346 76851 42214 47737 93937 51703 44366 19910 40337 51117 35471 91855 04644 90263 65512 81622
88244 62575 91633 30391 07225 38374 21821 40883 50865 73917 71509 68288 74782 65699 59957 44906 61758 34413 75223 97096
83408 00535 59849 17541 73818 83999 44697 48676 26551 65827 65848 35884 53142 77568 79002 90951 70283 52971 63445 62129
64043 52311 76006 65101 24120 06597 55851 27617 85838 29204 19748 44236 08007 19304 57618 93234 92292 79650 19875 18721
27267 50798 12554 70958 90455 63579 21221 03334 66974 99235 63025 49478 02490 11419 52123 82815 30911 40790 73860 25152
27429 95818 07247 16259 16685 45133 31239 48049 47079 11915 32673 43028 24418 60414 26363 95480 00448 00267 04962 48201
79289 64766 97583 18327 13142 51702 96923 48896 27668 44032 32609 27524 96035 79964 69256 50493 68183 60900 32380 92934
---[9000]---
59588 97069 53653 49406 03402 16654 43755 89004 56328 82250 54525 56405 64482 46515 18754 71196 21844 39658 25337 54388
56909 41130 31509 52617 93780 02974 12076 65147 93942 59029 89695 94699 55657 61218 65619 67337 86236 25612 52163 20862
86922 21032 74889 21865 43648 02296 78070 57656 15144 63204 69279 06821 20738 83778 14233 56282 36089 63208 06822 24680
12248 26117 71858 96381 40918 39036 73672 22088 83215 13755 60037 27983 94004 15297 00287 83076 67094 44745 60134 55641
72543 70906 97939 61225 71429 89467 15435 78468 78861 44458 12314 59357 19849 22528 47160 50492 21242 47014 12147 80573
45510 50080 19086 99603 30276 34787 08108 17545 01193 07141 22339 08663 93833 95294 25786 90507 64310 06383 51983 43893
41596 13185 43475 46495 56978 10382 93097 16465 14384 07007 07360 41123 73599 84345 22516 10507 02705 62352 66012 76484
83084 07611 83013 05279 32054 27462 86540 36036 74532 86510 57065 87488 22569 81579 36789 76697 42205 75059 68344 08697
35020 14102 06723 58502 00724 52256 32651 34105 59240 19027 42162 48439 14035 99895 35394 59094 40704 69120 91409 38700
12645 60016 23742 88021 09276 45793 10657 92295 52498 87275 84610 12648 36999 89225 69596 88159 20560 01016 55256 37567
---[10000]---
85667 22796 61988 57827 94848 85583 43975 18744 54551 29656 34434 80396 64205 57982 93680 43522 02770 98429 42325 33022
57634 18070 39476 99415 97915 94530 06975 21482 93366 55566 15678 73640 05366 65641 65473 21704 39035 21329 54352 91694
14599 04160 87532 01868 37937 02348 88689 47915 10716 37852 90234 52924 40773 65949 56305 10074 21087 14261 34974 59561
51384 98713 75704 71017 87957 31042 29690 66670 21449 86374 64595 28082 43694 45789 77233 00487 64765 24133 90759 20434
01963 40391 14732 02338 07150 95222 01068 25634 27471 64602 43354 40051 52126 69324 93419 67397 70415 95683 75355 51667
30273 90074 97297 36354 96453 32888 69844 06119 64961 62773 44951 82736 95588 22075 73551 76651 58985 51909 86665 39354
94810 68873 20685 99075 40792 34240 23009 25900 70173 19603 62254 75647 89406 47548 34664 77604 11463 23390 56513 43306
84495 39790 70903 02346 04614 70961 69688 68850 14083 47040 54607 42958 69913 82966 82468 18571 03188 79065 28703 66508
32431 97440 47718 55678 93482 30894 31068 28702 72280 97362 48093 99627 06074 72645 53992 53994 42808 11373 69433 88729
40630 79261 59599 54626 24629 70706 25948 45569 03471 19729 96409 08941 80595 34393 25123 62355 08134 94900 43642 78527
---[11000]---
13831 59125 68989 29519 64272 87573 94691 42725 34366 94153 23610 04537 30488 19855 17065 94121 73524 62589 54873 01676
00298 86592 57866 28561 24966 55235 33829 42878 54253 40483 08330 70165 37228 56355 91525 34784 45981 83134 11290 01999
20598 13522 05117 33658 56407 82648 49427 64411 37639 38669 24803 11836 44536 98589 17544 26473 99882 28462 18449 00877
76977 63127 95722 67265 55625 96282 54276 53183 00134 07092 23343 65779 16012 80931 79401 71859 85999 33849 23549 56400
57099 55856 11349 80252 49906 69842 33017 35035 80440 81168 55265 31170 99570 89942 73287 09258 48789 44364 60050 41089
22669 17835 25870 78595 12983 44172 95351 95378 85534 57374 26085 90290 81765 15578 03905 94640 87350 61232 26112 00937
31080 48548 52635 72282 57682 03416 05048 46627 75045 00312 62008 00799 80492 54853 46941 46977 51649 32709 50493 46393
82432 22718 85159 74054 70214 82897 11177 79237 61225 78873 47718 81968 25462 98126 86858 17050 74027 25502 63329 04497
62778 94423 62167 41191 86269 43965 06715 15779 58675 64823 99391 76042 60176 33870 45499 01761 43641 20469 21823 70764
88783 41968 96861 18155 81587 36062 93860 38101 71215 85527 26683 00823 83404 65647 58804 05138 08016 33638 87421 63714
---[12000]---
06435 49556 18689 64112 28214 07533 02655 10042 41048 96783 52858 82902 43670 90488 71181 90909 49453 31442 18287 66181
03100 73547 70549 81596 80772 00947 46961 34360 92861 48494 17850 17180 77930 68108 54690 00944 58995 27942 43981 39213
50558 64221 96483 49151 26390 12803 83200 10977 38680 66287 79239 71801 46134 32445 72640 09737 42570 07359 21003 15415
08936 79300 81699 80536 52027 60072 77496 74584 00283 62405 34603 72634 16554 25902 76018 34840 30681 13818 55105 97970
56640 07509 42608 78857 35796 03732 45141 46786 70368 80988 06097 16425 84975 95138 06930 94494 01515 42222 19432 91302
17391 25383 55915 03100 33303 25111 74915 69691 74502 71494 33151 55885 40392 21640 97229 10112 90355 21815 76282 32831
82342 54832 61119 12800 92825 25619 02052 63016 39114 77247 33148 57391 07775 87442 53876 11746 57867 11694 14776 42144
11112 63583 55387 13610 11023 26798 77564 10246 82403 22648 34641 76636 98066 37857 68134 92045 30224 08197 27856 47198
39630 87815 43221 16691 22464 15911 77673 22532 64335 68614 61865 45222 68126 88726 84459 68442 41610 78540 16768 14208
08850 28005 41436 13146 23082 10259 41737 56238 99420 75713 62751 67457 31891 89456 28352 57044 13354 37585 75342 69869
---[13000]---
94725 47031 65661 39919 99682 62824 72706 41336 22217 89239 03176 08542 89437 33935 61889 16512 50424 40400 89527 19837
87386 48058 47268 95462 43882 34375 17885 20143 95600 57104 81194 98842 39060 61369 57342 31559 07967 03461 49143 44788
63604 10318 23507 36502 77859 08975 78272 73130 50488 93989 00992 39135 03373 25085 59826 55867 08924 26124 29473 67019
39077 27130 70686 91709 26462 54842 32407 48550 36608 01360 46689 51184 00936 68609 54632 50021 45852 93095 00009 07151
05823 62672 93264 53738 21049 38724 99669 93394 24685 51648 32611 34146 11068 02674 46637 33437 53407 64294 02668 29738
65220 93570 16263 84648 52851 49036 29320 19919 96882 85171 83953 66913 45222 44470 80459 23966 02817 15655 15656 66111
35982 31122 50628 90585 49145 09715 75539 00243 93153 51909 02107 11945 73002 43880 17661 50352 70862 60253 78817 97519
47806 10137 15004 48991 72100 22201 33501 31060 16391 54158 95780 37117 79277 52259 78742 89191 79155 22417 18958 53616
80594 74123 41933 98420 21874 56492 56443 46239 25319 53135 10331 14763 94911 99507 28584 30658 36193 53693 29699 28983
79149 41939 40608 57248 63968 83690 32655 64364 21664 42576 07914 71086 99843 15733 74964 88352 92769 32822 07629 47282
---[14000]---
38153 74099 61545 59879 82598 91093 71712 62182 83025 84811 23890 11968 22142 94576 67580 71865 38065 06487 02613 38928
22994 97257 45303 32838 96381 84394 47707 79402 28435 98834 10035 83854 23897 35424 39564 75556 84095 22484 45541 39239
41000 16207 69363 68467 76413 01781 96593 79971 55746 85419 46334 89374 84391 29742 39143 36593 60410 03523 43777 06588
86778 11394 98616 47874 71407 93263 85873 86247 32889 64564 35987 74667 63847 94665 04074 11182 56583 78878 45485 81489
62961 27399 84134 42726 08606 18724 55452 36064 31537 10112 74680 97787 04464 09475 82803 48769 75894 83282 41239 29296
05829 48619 19667 09189 58089 83320 12103 18430 34012 84951 16203 53428 01441 27617 28583 02435 59830 03204 20245 12072
87253 55811 95840 14918 09692 53395 07577 84000 67465 52603 14461 67050 82768 27722 23534 19110 26341 63157 14740 61238
50425 84598 84199 07611 28725 80591 13935 68960 14316 68283 17632 35673 25417 07342 08173 32230 46298 79928 04908 51409
47903 68878 68789 49305 46955 70307 26190 09502 07643 34933 59106 02454 50864 53628 93545 68629 58531 31533 71838 68265
61786 22736 37169 75774 18302 39860 06591 48161 64049 44965 01173 21313 89574 70620 88474 80236 53710 31150 89842 79927
---[15000]---
54426 85327 79743 11395 14357 41722 19759 79935 96852 52285 74526 37962 89612 69157 23579 86620 57340 83757 66873 88426
64059 90993 50500 08133 75432 45463 59675 04844 23528 48747 01443 54541 95762 58473 56421 61981 34073 46854 11176 68831
18