几个vb小程序

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的值实际不是整数的删掉了，剩下的还是很多，需要验证的。

ysr

第一组仅仅是g线段不对了，这样的情况咋去不掉呢？都是g不对了，咋也不行，不知道如何弄，可能是公式决定了g不是整数。

ysr

这回改过来程序了，没有解找不到解了，都是g线段不对了。

把科学计数法表示的整数改为字符串和取绝对值的代码如下：
g = Abs(Format(g, "#"))
a = Abs(Format(a, "#"))
B = Abs(Format(B, "#"))
c = Abs(Format(c, "#"))

ysr

Private Sub Command1_Click()
Dim a, b, c, y
a1 = Val(496)

b = 1
Do While b <= 496
c = 1
Do While c <= 496
y = Val(496 ^ 3 - b ^ 3 - c ^ 3)
If InStr(Abs(Val(y)) ^ (1 / 3), ".") = 0 Then
s = s & Abs(Val(y)) ^ (1 / 3) & "^3=" & 496 & "^3-" & b & "^3-" & c & "^3" & vbCrLf
s1 = s1 + 1
Else
s = s
End If

c = c + 1
Loop
b = b + 1
Loop


Text1 = "有" & s1 & "组解：" & s
End Sub

Private Sub Command2_Click()
Text1 = ""

End Sub

ysr

Private Sub Command1_Click()
Dim x, a
a1 = Val(Text1)
u = 1
Do While Val(u) <= a1
v = 1
Do While Val(v) <= a1
q = u ^ 2 - v ^ 2
p = 2 * u * v
r = 1
Do While r <= a1
a = p ^ 2 + q ^ 2 - r ^ 2
b = 2 * p * r
c = 2 * q * r
g = p ^ 2 + q ^ 2 + r ^ 2
y = a ^ 2 + b ^ 2 + c ^ 2
z = g ^ 2


If Val(y) = z And a * b * c <> 0 And InStr(Sqr(a ^ 2 + b ^ 2), ".") = 0 And InStr(Sqr(c ^ 2 + b ^ 2), ".") = 0 And InStr(Sqr(a ^ 2 + c ^ 2), ".") = 0 Then
s = s & "/g=" & Sqr(z) & "a=" & a & " b=" & b & " c=" & c & vbCrLf
s1 = s1 + 1
Else
s = s
End If
r = r + 1
Loop
v = v + 1
Loop
u = u + 1
Loop

Text2 = "有" & Val(s1) & "组完美长方体解" & s

End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""

End Sub