几个vb小程序

ysr

/1/4/9/16/25/36/49/64/81/100/121/144/169/196/225/256/289/324/361/400/441/484/529/576/625/676/729/784/841/900/961/1024/1089/1156/1225/1296/1369/1444/1521/1600/1681/1764/1849/1936/2025/2116/2209/2304/2401/2500/2601/2704/2809/2916/3025/3136/3249/3364/3481/3600/3721/3844/3969/4096/4225/4356/4489/4624/4761/4900/5041/5184/5329/5476/5625/5776/5929/6084/6241/6400/6561/6724/6889/7056/7225/7396/7569/7744/7921/8100/8281/8464/8649/8836/9025/9216/9409/9604/9801/10000/10201/10404/10609/10816/11025/11236/11449/11664/11881/12100/12321/12544/12769/12996/13225/13456/13689/13924/14161/14400/14641/14884/15129/15376/15625/15876/16129/16384/16641/16900/17161/17424/17689/17956/18225/18496/18769/19044/19321/19600/19881/20164/20449/20736/21025/21316/21609/21904/22201/22500/22801/23104/23409/23716/24025/24336/24649/24964/25281/25600/25921/26244/26569/26896/27225/27556/27889/28224/28561/28900/29241/29584/29929/30276/30625/30976/31329/31684/32041/32400/32761/33124/33489/33856/34225/34596/34969/35344/35721/36100/36481/36864/37249/37636/38025/38416/38809/39204/39601/40000/40401/40804/41209/41616/42025/42436/42849/43264/43681/44100/44521/44944/45369/45796/46225/46656/47089/47524/47961/48400/48841/49284/49729/50176/50625/51076/51529/51984/52441/52900/53361/53824/54289/54756/55225/55696/56169/56644/57121/57600/58081/58564/59049/59536/60025/60516/61009/61504/62001/62500/63001/63504/64009/64516/65025/65536/66049/66564/67081/67600/68121/68644/69169/69696/70225/70756/71289/71824/72361/72900/73441/73984/74529/75076/75625/76176/76729/77284/77841/78400/78961/79524/80089/80656/81225/81796/82369/82944/83521/84100/84681/85264/85849/86436/87025/87616/88209/88804/89401/90000/90601/91204/91809/92416/93025/93636/94249/94864/95481/96100/96721/97344/97969/98596/99225/99856/100489/101124/101761/102400/103041/103684/104329/104976/105625/106276/106929/107584/108241/108900/109561/110224/110889/111556/112225/112896/113569/114244/114921/115600/116281/116964/117649/118336/119025/119716/120409/121104/121801/122500/123201/123904/124609/125316/126025/126736/127449/128164/128881/129600/130321/131044/131769/132496/133225/133956/134689/135424/136161/136900/137641/138384/139129/139876/140625/141376/142129/142884/143641/144400/145161/145924/146689/147456/148225/148996/149769/150544/151321/152100/152881/153664/154449/155236/156025/156816/157609/158404/159201/160000/160801/161604/162409/163216/164025/164836/165649/166464/167281/168100/168921/169744/170569/171396/172225/173056/173889/174724/175561/176400/177241/178084/178929/179776/180625/181476/182329/183184/184041/184900/185761/186624/187489/188356/189225/190096/190969/191844/192721/193600/194481/195364/196249/197136/198025/198916/199809/200704/201601/202500/203401/204304/205209/206116/207025/207936/208849/209764/210681/211600/212521/213444/214369/215296/216225/217156/218089/219024/219961/220900/221841/222784/223729/224676/225625/226576/227529/228484/229441/230400/231361/232324/233289/234256/235225/236196/237169/238144/239121/240100/241081/242064/243049/244036/245025/246016/247009/248004/249001/250000/251001/252004/253009/254016/255025/256036/257049/258064/259081/260100/261121/262144/263169/264196/265225/266256/267289/268324/269361/270400/271441/272484/273529/274576/275625/276676/277729/278784/279841/280900/281961/283024/284089/285156/286225/287296/288369/289444/290521/291600/292681/293764/294849/295936/297025/298116/299209/300304/301401/302500/303601/304704/305809/306916/308025/309136/310249/311364/312481/313600/314721/315844/316969/318096/319225/320356/321489/322624/323761/324900/326041/327184/328329/329476/330625/331776/332929/334084/335241/336400/337561/338724/339889/341056/342225/343396/344569/345744/346921/348100/349281/350464/351649/352836/354025/355216/356409/357604/358801/360000/361201/362404/363609/364816/366025/367236/368449/369664/370881/372100/373321/374544/375769/376996/378225/379456/380689/381924/383161/384400/385641/386884/388129/389376/390625/391876/393129/394384/395641/396900/398161/399424/400689/401956/403225/404496/405769/407044/408321/409600/410881/412164/413449/414736/416025/417316/418609/419904/421201/422500/423801/425104/426409/427716/429025/430336/431649/432964/434281/435600/436921/438244/439569/440896/442225/443556/444889/446224/447561/448900/450241/451584/452929/454276/455625/456976/458329/459684/461041/462400/463761/465124/466489/467856/469225/470596/471969/473344/474721/476100/477481/478864/480249/481636/483025/484416/485809/487204/488601/490000/491401/492804/494209/495616/497025/498436/499849/501264/502681/504100/505521/506944/508369/509796/511225/512656/514089/515524/516961/518400/519841/521284/522729/524176/525625/527076/528529/529984/531441/532900/534361/535824/537289/538756/540225/541696/543169/544644/546121/547600/549081/550564/552049/553536/555025/556516/558009/559504/561001/562500/564001/565504/567009/568516/570025/571536/573049/574564/576081/577600/579121/580644/582169/583696/585225/586756/588289/589824/591361/592900/594441/595984/597529/599076/600625/602176/603729/605284/606841/608400/609961/611524/613089/614656/616225/617796/619369/620944/622521/624100/625681/627264/628849/630436/632025/633616/635209/636804/638401/640000/641601/643204/644809/646416/648025/649636/651249/652864/654481/656100/657721/659344/660969/662596/664225/665856/667489/669124/670761/672400/674041/675684/677329/678976/680625/682276/683929/685584/687241/688900/690561/692224/693889/695556/697225/698896/700569/702244/703921/705600/707281/708964/710649/712336/714025/715716/717409/719104/720801/722500/724201/725904/727609/729316/731025/732736/734449/736164/737881/739600/741321/743044/744769/746496/748225/749956/751689/753424/755161/756900/758641/760384/762129/763876/765625/767376/769129/770884/772641/774400/776161/777924/779689/781456/783225/784996/786769/788544/790321/792100/793881/795664/797449/799236/801025/802816/804609/806404/808201/810000/811801/813604/815409/817216/819025/820836/822649/824464/826281/828100/829921/831744/833569/835396/837225/839056/840889/842724/844561/846400/848241/850084/851929/853776/855625/857476/859329/861184/863041/864900/866761/868624/870489/872356/874225/876096/877969/879844/881721/883600/885481/887364/889249/891136/893025/894916/896809/898704/900601/902500/904401/906304/908209/910116/912025/913936/915849/917764/919681/921600/923521/925444/927369/929296/931225/933156/935089/937024/938961/940900/942841/944784/946729/948676/950625/952576/954529/956484/958441/960400/962361/964324/966289/968256/970225/972196/974169/976144/978121/980100/982081/984064/986049/988036/990025/992016/994009/996004/998001/1000000/1002001

ysr

231048455625的指数不超过100的幂为:
231048455625=128360253125+102688202500
231048455625=+231048455625
231048455625=102688202500+128360253125
231048455625=480675^2

ysr

/167158322500/51344101250/67461631250/76985626250/83579161250/111418531250/128360253125/139257901250/147281176250/174996331250/188343106250/192830373125/199215112850/230926353125/233630851250/256720506250/267465526250/268745701250/275197276250/281025406250/308169615650/
312887656250/322440955850/337063951250/356210806250/368657973125/372551821850/388347001250/401778276250/415453756250/431855206250/436424860625//25672050625/41789580625/51313575625/85746480625/102688202500/113585850625/121609125625/149324280625/162671055625/167158322500/173543062225/205254302500/207958800625/231048455625/241793475625/243073650625/249525225625/255353355625/282497565025/287215605625/296768905225/311391900625/330538755625/342985922500/346879771225/362674950625/376106225625/389781705625/406183155625/410752810000/160225/ 204425/ 226525/ 292825/ 320450/ 337025/ 348725/ 386425/ 403325/ 408850/ 416585/ 453050/ 456025/ 480675/ 491725/ 493025/ 499525/ 505325/ 531505/ 535925/ 544765/ 558025/ 574925/ 585650/ 588965/ 602225/ 613275/ 624325/ 637325/ 640900

ysr

/1861748224947,-1171260881604,2741499153360,2199535975125,2981219492196,3313898619597,3514793893494

负数加上绝对值，这是不是一组完美长方体的解呢？（也许又是近似解）

ysr

1~100之间有140组解:/0,-8,0,8,8,0,8
/0,-512,0,512,512,0,512
/0,-5832,0,5832,5832,0,5832
/0,-32768,0,32768,32768,0,32768
/0,-125000,0,125000,125000,0,125000
/0,-373248,0,373248,373248,0,373248
/0,-941192,0,941192,941192,0,941192
/0,-2097152,0,2097152,2097152,0,2097152
/0,-4251528,0,4251528,4251528,0,4251528
/0,-8000000,0,8000000,8000000,0,8000000
/0,-14172488,0,14172488,14172488,0,14172488
/0,-23887872,0,23887872,23887872,0,23887872
/0,-38614472,0,38614472,38614472,0,38614472
/0,-60236288,0,60236288,60236288,0,60236288
/0,-91125000,0,91125000,91125000,0,91125000
/0,-134217728,0,134217728,134217728,0,134217728
/0,-193100552,0,193100552,193100552,0,193100552
/0,-272097792,0,272097792,272097792,0,272097792
/247600523197,587089899396,-897230683440,637166045125,1072239455196,930767918653,1100456027457
/0,-376367048,0,376367048,376367048,0,376367048
/0,-512000000,0,512000000,512000000,0,512000000
/0,-686128968,0,686128968,686128968,0,686128968
/0,-907039232,0,907039232,907039232,0,907039232
/0,-1184287112,0,1184287112,1184287112,0,1184287112
/0,-1528823808,0,1528823808,1528823808,0,1528823808
/0,-1953125000,0,1953125000,1953125000,0,1953125000
/0,-2471326208,0,2471326208,2471326208,0,2471326208
/0,-3099363912,0,3099363912,3099363912,0,3099363912
/0,-3855122432,0,3855122432,3855122432,0,3855122432
/0,-4758586568,0,4758586568,4758586568,0,4758586568
/-184597594272,1060951057496,-1976346288000,1076890625000,2243114307496,1984948594272,2250697240480
/0,-5832000000,0,5832000000,5832000000,0,5832000000
/0,-7100029448,0,7100029448,7100029448,0,7100029448
/-177147075457,149873849424,-463369181760,232041498625,487004280624,496076692607,518222206866
/0,-8589934592,0,8589934592,8589934592,0,8589934592
/0,-10331743752,0,10331743752,10331743752,0,10331743752
/-441999564993,1001084774976,-2122527939840,1094319122625,2346762787776,2168060993343,2388024119967
/0,-12358435328,0,12358435328,12358435328,0,12358435328
/-132618882187,23074699284,-247043286000,134611328125,248118574284,280389288437,281337155060
/0,-14706125000,0,14706125000,14706125000,0,14706125000
/0,-17414258688,0,17414258688,17414258688,0,17414258688
/0,-20525811272,0,20525811272,20525811272,0,20525811272
/0,-24087491072,0,24087491072,24087491072,0,24087491072
/0,-28149950088,0,28149950088,28149950088,0,28149950088
/0,-32768000000,0,32768000000,32768000000,0,32768000000
/0,-38000833928,0,38000833928,38000833928,0,38000833928
/-303735438720,-156518648,-525980904960,303735479048,525980928248,607380547200,607380567367
/-909012462885,725853195188,-2320081330320,1163256858413,2430975162412,2491802768475,2595369703519
/0,-43912253952,0,43912253952,43912253952,0,43912253952
/0,-50570904392,0,50570904392,50570904392,0,50570904392
/0,-58050510848,0,58050510848,58050510848,0,58050510848
/-606034687375,95254963848,-1120482396000,613474979473,1124524036152,1273875520625,1277431935637
/0,-66430125000,0,66430125000,66430125000,0,66430125000
/0,-75794375168,0,75794375168,75794375168,0,75794375168
/0,-86233722632,0,86233722632,86233722632,0,86233722632
/-1313966968704,532484005240,-2735114119680,1417761760904,2786465227400,3034362938496,3080730052821
/0,-97844723712,0,97844723712,97844723712,0,97844723712
/0,-110730297608,0,110730297608,110730297608,0,110730297608
/0,-125000000000,0,125000000000,125000000000,0,125000000000
/0,-140770302408,0,140770302408,140770302408,0,140770302408
/0,-158164877312,0,158164877312,158164877312,0,158164877312
/0,-177314889032,0,177314889032,177314889032,0,177314889032
/-1231319894688,-100026098216,-2069886015360,1235376017000,2072301458984,2408438664288,2410514886899

ysr

/0,-198359290368,0,198359290368,198359290368,0,198359290368
/0,-221445125000,0,221445125000,221445125000,0,221445125000
/0,-246727835648,0,246727835648,246727835648,0,246727835648
/-1175565632527,-350696976336,-1849616408640,1226761152625,1882569846864,2191582856177,2219464751849
/0,-274371577992,0,274371577992,274371577992,0,274371577992
/0,-304549540352,0,304549540352,304549540352,0,304549540352
/0,-337444269128,0,337444269128,337444269128,0,337444269128
/0,-373248000000,0,373248000000,373248000000,0,373248000000
/0,-412162994888,0,412162994888,412162994888,0,412162994888
/-294819798240,-604633967128,-400733224320,672681906728,725375317528,497499578400,782999402754
/0,-454401884672,0,454401884672,454401884672,0,454401884672
/132618882187,23074699284,247043286000,134611328125,248118574284,280389288437,281337155060
/0,-500188017672,0,500188017672,500188017672,0,500188017672
/0,-549755813888,0,549755813888,549755813888,0,549755813888
/0,-603351125000,0,603351125000,603351125000,0,603351125000
/-1338055547841,-1072197034480,-1927361367360,1714642566209,2205522233200,2346298039359,2579674586115
/0,-661231600128,0,661231600128,661231600128,0,661231600128
/-1748178066752,-1176143291136,-2558233666560,2106997768000,2815647800064,3098497385152,3314211684108
/-1861748224947,-1171260881604,-2741499153360,2199535975125,2981219492196,3313898619597,3514793893494
/0,-723667057352,0,723667057352,723667057352,0,723667057352
/0,-790939860992,0,790939860992,790939860992,0,790939860992
/0,-863345304648,0,863345304648,863345304648,0,863345304648
/-594888947081,-1256601912480,-807813536640,1390302566281,1493857783200,1003222592119,1607950228019
/0,-941192000000,0,941192000000,941192000000,0,941192000000
/-715088664576,-1398372738560,-973603921920,1570604378624,1703922214400,1207996852224,1847891422928
/303735438720,-156518648,525980904960,303735479048,525980928248,607380547200,607380567367
/294819798240,-604633967128,400733224320,672681906728,725375317528,497499578400,782999402754
/0,-1024802271368,0,1024802271368,1024802271368,0,1024802271368
/177147075457,149873849424,463369181760,232041498625,487004280624,496076692607,518222206866
/0,-1114512556032,0,1114512556032,1114512556032,0,1114512556032
/0,-1210673810312,0,1210673810312,1210673810312,0,1210673810312
/0,-1313651921408,0,1313651921408,1313651921408,0,1313651921408
/-242848663552,-1525596673536,-324547092480,1544804416000,1559735883264,405347121152,1578528269918
/0,-1423828125000,0,1423828125000,1423828125000,0,1423828125000
/0,-1541599428608,0,1541599428608,1541599428608,0,1541599428608
/0,-1667379040712,0,1667379040712,1667379040712,0,1667379040712

ysr

/242848663552,-1525596673536,324547092480,1544804416000,1559735883264,405347121152,1578528269918
/0,-1801596805632,0,1801596805632,1801596805632,0,1801596805632
/0,-1944699644168,0,1944699644168,1944699644168,0,1944699644168
/594888947081,-1256601912480,807813536640,1390302566281,1493857783200,1003222592119,1607950228019
/0,-2097152000000,0,2097152000000,2097152000000,0,2097152000000
/-1638625834944,-3134325652480,-2232832143360,3536819464256,3848316083200,2769590945856,4182658401443
/606034687375,95254963848,1120482396000,613474979473,1124524036152,1273875520625,1277431935637
/0,-2259436291848,0,2259436291848,2259436291848,0,2259436291848
/715088664576,-1398372738560,973603921920,1570604378624,1703922214400,1207996852224,1847891422928
/0,-2432053371392,0,2432053371392,2432053371392,0,2432053371392
/0,-2615522986952,0,2615522986952,2615522986952,0,2615522986952
/0,-2810384252928,0,2810384252928,2810384252928,0,2810384252928
/-450795917312,-3210295689216,-602146406400,3241792000000,3266279030784,752194957312,3297240613908
/0,-3017196125000,0,3017196125000,3017196125000,0,3017196125000
/0,-3236537881088,0,3236537881088,3236537881088,0,3236537881088
/1175565632527,-350696976336,1849616408640,1226761152625,1882569846864,2191582856177,2219464751849
/0,-3469009608072,0,3469009608072,3469009608072,0,3469009608072
/1338055547841,-1072197034480,1927361367360,1714642566209,2205522233200,2346298039359,2579674586115
/450795917312,-3210295689216,602146406400,3241792000000,3266279030784,752194957312,3297240613908
/0,-3715232694272,0,3715232694272,3715232694272,0,3715232694272
/1231319894688,-100026098216,2069886015360,1235376017000,2072301458984,2408438664288,2410514886899
/0,-3975850327688,0,3975850327688,3975850327688,0,3975850327688
/0,-4251528000000,0,4251528000000,4251528000000,0,4251528000000
/-247600523197,587089899396,897230683440,637166045125,1072239455196,930767918653,1100456027457
/0,-4542954016328,0,4542954016328,4542954016328,0,4542954016328
/1748178066752,-1176143291136,2558233666560,2106997768000,2815647800064,3098497385152,3314211684108
/0,-4850840010752,0,4850840010752,4850840010752,0,4850840010752
/1861748224947,-1171260881604,2741499153360,2199535975125,2981219492196,3313898619597,3514793893494
/0,-5175921467592,0,5175921467592,5175921467592,0,5175921467592
/909012462885,725853195188,2320081330320,1163256858413,2430975162412,2491802768475,2595369703519
/1638625834944,-3134325652480,2232832143360,3536819464256,3848316083200,2769590945856,4182658401443
/0,-5518958248448,0,5518958248448,5518958248448,0,5518958248448
/1313966968704,532484005240,2735114119680,1417761760904,2786465227400,3034362938496,3080730052821
/0,-5880735125000,0,5880735125000,5880735125000,0,5880735125000
/441999564993,1001084774976,2122527939840,1094319122625,2346762787776,2168060993343,2388024119967
/0,-6262062317568,0,6262062317568,6262062317568,0,6262062317568
/184597594272,1060951057496,1976346288000,1076890625000,2243114307496,1984948594272,2250697240480
/0,-6663776039432,0,6663776039432,6663776039432,0,6663776039432
/0,-7086739046912,0,7086739046912,7086739046912,0,7086739046912
/0,-7531841195208,0,7531841195208,7531841195208,0,7531841195208
/0,-8000000000000,0,8000000000000,8000000000000,0,8000000000000

ysr

/-1638625834944,-3134325652480,-2232832143360,3536819464256,3848316083200,2769590945856,4182658401443

这组是不是呢？需要验证一下

ysr

负数取绝对值的话，线段abcdef都对了，就差g线段了，朋友的这套公式看来仅仅差一条线段了！

ysr

1~300之间有19174组解:/2696646195243,137232605476,-183020619600,2700135828125,228756060476,2702849838507,2706331472219
/101527305633215,2820908354832,-3761479874880,101566487155393,4701728915568,101596961174975,101636115844397
/107300529848043,2953950790076,-3938877322800,107341182828125,4923472335076,107372801305707,107413426933066
/110288147821280,3022328314728,-4030051175040,110329551881128,5037437931672,110361754527200,110403130982613
/113344766325999,3091966241320,-4122905598240,113386931825201,5153504226200,113419726697199,113461864339102
/116471654370720,3162881914712,-4217463719040,116514591763688,5271700126888,116547986992800,116590896274453
/151897204940480,3946244774472,-5261988399360,151948457433928,6577337587128,151988319915200,152039541693815
/155885910122943,4032406240624,-5376874641600,155938055890625,6720943460624,155978613135807,156030727921968
/164125536441515,4209243971868,-5612666969520,164179503736093,7015679961732,164221477714475,164275413490700
/186325951109760,4678594554248,-6238490119680,186384680979848,7797948831352,186430359158400,186489056147896
/191053210463999,4777297921440,-6370099198080,191112929452801,7962458114400,191159376940799,191219062773105
/200807970857163,4979702075084,-6639980695920,200869705512125,8299805804884,200917720730187,200979421673389
/210974286246255,5188909139128,-6918932895840,211038087167153,8648491803272,211087709470575,211151476119842
/216216068406624,5296116797720,-7061881223040,216280921697576,8827175060200,216331362505824,216396181243481
/227025651267648,5515847973064,-7354865806080,227092648301000,9193401431864,227144756453952,227211718367225
/238281871256000,5742812494008,-7657495008000,238351064744008,9571683505992,238404881240000,238474039036537
后面太多了，篇幅所限删掉了。都需要验证，修改了程序把含有0线段的删掉了，g的值实际不是整数的删掉了，剩下的还是很多，需要验证的。