几个vb小程序

ysr

b=1  k=2 m=4.12310562561766 n=5 q=8
b=1  k=19 m=21.0237960416286 n=29 q=399
b=2  k=4 m=8.24621125123532 n=10 q=32
b=2  k=38 m=42.0475920832573 n=58 q=1596
b=3  k=6 m=12.369316876853 n=15 q=72
b=3  k=57 m=63.0713881248859 n=87 q=3591
b=4  k=8 m=16.4924225024706 n=20 q=128
b=4  k=76 m=84.0951841665146 n=116 q=6384
b=5  k=2 m=13 n=13.8924439894498 q=24
b=5  k=10 m=20.6155281280883 n=25 q=200
b=5  k=95 m=105.118980208143 n=145 q=9975
b=6  k=12 m=24.738633753706 n=30 q=288
b=7  k=1 m=16.5529453572468 n=17 q=15
b=7  k=10 m=25 n=29.4108823397055 q=240
b=7  k=14 m=28.8617393793236 n=35 q=392
b=7  k=41 m=55.4436651025164 n=73 q=2255
b=7  k=58 m=72.3394774656273 n=97 q=4176
b=8  k=16 m=32.9848450049413 n=40 q=512
b=9  k=18 m=37.1079506305589 n=45 q=648
b=9  k=22 m=41 n=50.60632371552 q=880
b=10  k=4 m=26 n=27.7848879788996 q=96
b=10  k=20 m=41.2310562561766 n=50 q=800
b=11  k=22 m=45.3541618817943 n=55 q=968
b=11  k=38 m=61 n=77.4661216274573 q=2280
b=12  k=11 m=37 n=41.8807831827438 q=385
b=12  k=24 m=49.4772675074119 n=60 q=1152
b=13  k=26 m=53.6003731330296 n=65 q=1352
b=13  k=58 m=85 n=109.98636279103 q=4872
b=14  k=2 m=33.1058907144937 n=34 q=60
b=14  k=20 m=50 n=58.821764679411 q=960
b=14  k=28 m=57.7234787586472 n=70 q=1568
b=14  k=82 m=110.887330205033 n=146 q=9020
b=15  k=6 m=39 n=41.6773319683494 q=216
b=15  k=30 m=61.8465843842649 n=75 q=1800
b=15  k=82 m=113 n=148.16544806398 q=9184
b=16  k=31 m=65 n=78.6002544525143 q=1953
b=16  k=32 m=65.9696900098826 n=80 q=2048
b=17  k=11 m=48.1040538832228 n=53 q=495
b=17  k=34 m=70.0927956355002 n=85 q=2312
b=17  k=71 m=106.367288204598 n=137 q=7455
b=18  k=36 m=74.2159012611179 n=90 q=2592
b=18  k=44 m=82 n=101.21264743104 q=3520
b=19  k=38 m=78.3390068867355 n=95 q=2888
b=20  k=8 m=52 n=55.5697759577992 q=384
b=20  k=40 m=82.4621125123532 n=100 q=3200
b=20  k=59 m=101 n=126.65701717631 q=5841
b=21  k=3 m=49.6588360717405 n=51 q=135
b=21  k=30 m=75 n=88.2326470191165 q=2160
b=21  k=42 m=86.5852181379709 n=105 q=3528
b=22  k=44 m=90.7083237635885 n=110 q=3872
b=22  k=76 m=122 n=154.932243254915 q=9120
b=23  k=10 m=60.5392434706612 n=65 q=560
b=23  k=46 m=94.8314293892062 n=115 q=4232
b=24  k=22 m=74 n=83.7615663654877 q=1540
b=24  k=48 m=98.9545350148238 n=120 q=4608
b=24  k=95 m=145 n=186.037630601983 q=13585
b=25  k=10 m=65 n=69.462219947249 q=600
b=25  k=50 m=103.077640640442 n=125 q=5000
b=26  k=52 m=107.200746266059 n=130 q=5408
b=27  k=54 m=111.323851891677 n=135 q=5832
b=27  k=66 m=123 n=151.81897114656 q=7920
b=28  k=4 m=66.2117814289874 n=68 q=240
b=28  k=40 m=100 n=117.643529358822 q=3840
b=28  k=56 m=115.446957517294 n=140 q=6272
b=29  k=58 m=119.570063142912 n=145 q=6728
b=30  k=12 m=78 n=83.3546639366988 q=864
b=30  k=60 m=123.69316876853 n=150 q=7200
b=31  k=29 m=96.1353212924365 n=109 q=2639
b=31  k=62 m=127.816274394147 n=155 q=7688
b=32  k=62 m=130 n=157.200508905029 q=7812
b=32  k=64 m=131.939380019765 n=160 q=8192
b=33  k=66 m=136.062485645383 n=165 q=8712
b=34  k=22 m=96.2081077664456 n=106 q=1980
b=34  k=68 m=140.185591271 n=170 q=9248
b=35  k=5 m=82.7647267862342 n=85 q=375
b=35  k=14 m=91 n=97.2471079261486 q=1176
b=35  k=50 m=125 n=147.054411698527 q=6000
b=35  k=70 m=144.308696896618 n=175 q=9800
b=36  k=5 m=85 n=87.2353139502575 q=385
b=36  k=33 m=111 n=125.642349548232 q=3465
b=36  k=72 m=148.431802522236 n=180 q=10368
b=36  k=88 m=164 n=202.42529486208 q=14080
b=37  k=74 m=152.554908147853 n=185 q=10952
b=38  k=76 m=156.678013773471 n=190 q=11552
b=39  k=2 m=89 n=89.8943824718764 q=160
b=39  k=78 m=160.801119399089 n=195 q=12168
b=40  k=16 m=104 n=111.139551915598 q=1536
b=40  k=80 m=164.924225024706 n=200 q=12800
b=41  k=82 m=169.047330650324 n=205 q=13448
b=42  k=6 m=99.3176721434811 n=102 q=540
b=42  k=60 m=150 n=176.465294038233 q=8640
b=42  k=84 m=173.170436275942 n=210 q=14112
b=43  k=86 m=177.293541901559 n=215 q=14792
b=44  k=29 m=125 n=137.905764926634 q=3393
b=44  k=88 m=181.416647527177 n=220 q=15488
b=45  k=18 m=117 n=125.031995905048 q=1944
b=45  k=90 m=185.539753152795 n=225 q=16200
b=46  k=20 m=121.078486941322 n=130 q=2240
b=46  k=92 m=189.662858778412 n=230 q=16928
b=47  k=38 m=140.117807576339 n=157 q=5016
b=47  k=94 m=193.78596440403 n=235 q=17672
b=48  k=44 m=148 n=167.523132730975 q=6160
b=48  k=93 m=195 n=235.800763357543 q=17577
b=48  k=96 m=197.909070029648 n=240 q=18432
b=49  k=7 m=115.870617500728 n=119 q=735
b=49  k=55 m=160.654909666652 n=185 q=8415
b=49  k=70 m=175 n=205.876176377938 q=11760
b=49  k=98 m=202.032175655265 n=245 q=19208
b=50  k=20 m=130 n=138.924439894498 q=2400
b=50  k=100 m=206.155281280883 n=250 q=20000
b=51  k=33 m=144.312161649668 n=159 q=4455
b=51  k=38 m=149 n=165.894544816881 q=5320
b=52  k=61 m=173 n=199.984999437458 q=10065
b=55  k=22 m=143 n=152.816883883948 q=2904
b=56  k=8 m=132.423562857975 n=136 q=960
b=56  k=80 m=200 n=235.287058717644 q=15360
b=57  k=62 m=185 n=212.454701054131 q=10912
b=60  k=24 m=156 n=166.709327873398 q=3456
b=60  k=55 m=185 n=209.403915913719 q=9625
b=62  k=58 m=192.270642584873 n=218 q=10556
b=63  k=9 m=148.976508215222 n=153 q=1215
b=63  k=90 m=225 n=264.697941057349 q=19440
b=65  k=26 m=169 n=180.601771862847 q=4056
b=68  k=44 m=192.416215532891 n=212 q=7920
b=69  k=30 m=181.617730411984 n=195 q=5040
b=70  k=10 m=165.529453572468 n=170 q=1500
b=70  k=28 m=182 n=194.494215852297 q=4704
b=70  k=100 m=250 n=294.108823397055 q=24000
b=71  k=89 m=241.665057465907 n=281 q=20559
b=72  k=10 m=170 n=174.470627900515 q=1540
b=72  k=66 m=222 n=251.284699096463 q=13860
b=73  k=22 m=183.174779923438 n=193 q=3696
b=75  k=30 m=195 n=208.386659841747 q=5400
b=77  k=11 m=182.082398929715 n=187 q=1815
b=78  k=4 m=178 n=179.788764943753 q=640
b=79  k=82 m=252.66776604862 n=289 q=19680
b=80  k=32 m=208 n=222.279103831197 q=6144
b=84  k=12 m=198.635344286962 n=204 q=2160
b=84  k=19 m=205 n=213.490046606393 q=3553
b=84  k=77 m=259 n=293.165482279207 q=18865
b=85  k=34 m=221 n=236.171547820647 q=6936
b=85  k=55 m=240.520269416114 n=265 q=12375
b=88  k=58 m=250 n=275.811529853268 q=13572
b=89  k=31 m=227.160736043886 n=241 q=6479
b=90  k=36 m=234 n=250.063991810096 q=7776
b=91  k=13 m=215.188289644209 n=221 q=2535
b=92  k=40 m=242.156973882645 n=260 q=8960
b=93  k=87 m=288.40596387731 n=327 q=23751
b=94  k=76 m=280.235615152678 n=314 q=20064
b=95  k=38 m=247 n=263.956435799546 q=8664
b=96  k=55 m=265 n=289.499568220749 q=13585
b=96  k=88 m=296 n=335.046265461951 q=24640
b=98  k=14 m=231.741235001456 n=238 q=2940
b=100  k=40 m=260 n=277.848879788996 q=9600

代码如下：

Private Sub Command1_Click()
Dim a, b, m, n
a = Val(Text1)
b = 1

Do While Val(b) <= Val(a)
k = 1

Do While k <= Val(a)
m1 = 5 * b ^ 2 + 4 * b * k + k ^ 2
n1 = 5 * b ^ 2 + 6 * b * k + 2 * k ^ 2
q = 2 * b * k + k ^ 2
m = Sqr(m1)
n = Sqr(n1)
If InStr(m, ".") = 0 Or InStr(n, ".") = 0 Then
s = s + 1
s1 = s1 & "b=" & b & "  k=" & k & " m=" & m & " n=" & n & " q=" & q & vbCrLf
Else
s = s
End If


k = k + 1
Loop

b = b + 1
Loop
If Val(s) > 0 Then
Text2 = s1
Else
Text2 = " b=" & b & "wu jie"
End If

End Sub

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

End Sub

ysr

仅仅n为整数的情况：
b=1  k=2 m=4.12310562561766 n=5 q=8
b=1  k=19 m=21.0237960416286 n=29 q=399
b=2  k=4 m=8.24621125123532 n=10 q=32
b=2  k=38 m=42.0475920832573 n=58 q=1596
b=3  k=6 m=12.369316876853 n=15 q=72
b=3  k=57 m=63.0713881248859 n=87 q=3591
b=4  k=8 m=16.4924225024706 n=20 q=128
b=4  k=76 m=84.0951841665146 n=116 q=6384
b=5  k=10 m=20.6155281280883 n=25 q=200
b=5  k=95 m=105.118980208143 n=145 q=9975
b=6  k=12 m=24.738633753706 n=30 q=288
b=7  k=1 m=16.5529453572468 n=17 q=15
b=7  k=14 m=28.8617393793236 n=35 q=392
b=7  k=41 m=55.4436651025164 n=73 q=2255
b=7  k=58 m=72.3394774656273 n=97 q=4176
b=8  k=16 m=32.9848450049413 n=40 q=512
b=9  k=18 m=37.1079506305589 n=45 q=648
b=10  k=20 m=41.2310562561766 n=50 q=800
b=11  k=22 m=45.3541618817943 n=55 q=968
b=12  k=24 m=49.4772675074119 n=60 q=1152
b=13  k=26 m=53.6003731330296 n=65 q=1352
b=14  k=2 m=33.1058907144937 n=34 q=60
b=14  k=28 m=57.7234787586472 n=70 q=1568
b=14  k=82 m=110.887330205033 n=146 q=9020
b=15  k=30 m=61.8465843842649 n=75 q=1800
b=16  k=32 m=65.9696900098826 n=80 q=2048
b=17  k=11 m=48.1040538832228 n=53 q=495
b=17  k=34 m=70.0927956355002 n=85 q=2312
b=17  k=71 m=106.367288204598 n=137 q=7455
b=18  k=36 m=74.2159012611179 n=90 q=2592
b=19  k=38 m=78.3390068867355 n=95 q=2888
b=20  k=40 m=82.4621125123532 n=100 q=3200
b=21  k=3 m=49.6588360717405 n=51 q=135
b=21  k=42 m=86.5852181379709 n=105 q=3528
b=22  k=44 m=90.7083237635885 n=110 q=3872
b=23  k=10 m=60.5392434706612 n=65 q=560
b=23  k=46 m=94.8314293892062 n=115 q=4232
b=24  k=48 m=98.9545350148238 n=120 q=4608
b=25  k=50 m=103.077640640442 n=125 q=5000
b=26  k=52 m=107.200746266059 n=130 q=5408
b=27  k=54 m=111.323851891677 n=135 q=5832
b=28  k=4 m=66.2117814289874 n=68 q=240
b=28  k=56 m=115.446957517294 n=140 q=6272
b=29  k=58 m=119.570063142912 n=145 q=6728
b=30  k=60 m=123.69316876853 n=150 q=7200
b=31  k=29 m=96.1353212924365 n=109 q=2639
b=31  k=62 m=127.816274394147 n=155 q=7688
b=32  k=64 m=131.939380019765 n=160 q=8192
b=33  k=66 m=136.062485645383 n=165 q=8712
b=34  k=22 m=96.2081077664456 n=106 q=1980
b=34  k=68 m=140.185591271 n=170 q=9248
b=35  k=5 m=82.7647267862342 n=85 q=375
b=35  k=70 m=144.308696896618 n=175 q=9800
b=36  k=72 m=148.431802522236 n=180 q=10368
b=37  k=74 m=152.554908147853 n=185 q=10952
b=38  k=76 m=156.678013773471 n=190 q=11552
b=39  k=78 m=160.801119399089 n=195 q=12168
b=40  k=80 m=164.924225024706 n=200 q=12800
b=41  k=82 m=169.047330650324 n=205 q=13448
b=42  k=6 m=99.3176721434811 n=102 q=540
b=42  k=84 m=173.170436275942 n=210 q=14112
b=43  k=86 m=177.293541901559 n=215 q=14792
b=44  k=88 m=181.416647527177 n=220 q=15488
b=45  k=90 m=185.539753152795 n=225 q=16200
b=46  k=20 m=121.078486941322 n=130 q=2240
b=46  k=92 m=189.662858778412 n=230 q=16928
b=47  k=38 m=140.117807576339 n=157 q=5016
b=47  k=94 m=193.78596440403 n=235 q=17672
b=48  k=96 m=197.909070029648 n=240 q=18432
b=49  k=7 m=115.870617500728 n=119 q=735
b=49  k=55 m=160.654909666652 n=185 q=8415
b=49  k=98 m=202.032175655265 n=245 q=19208
b=50  k=100 m=206.155281280883 n=250 q=20000
b=51  k=33 m=144.312161649668 n=159 q=4455
b=56  k=8 m=132.423562857975 n=136 q=960
b=62  k=58 m=192.270642584873 n=218 q=10556
b=63  k=9 m=148.976508215222 n=153 q=1215
b=68  k=44 m=192.416215532891 n=212 q=7920
b=69  k=30 m=181.617730411984 n=195 q=5040
b=70  k=10 m=165.529453572468 n=170 q=1500
b=71  k=89 m=241.665057465907 n=281 q=20559
b=73  k=22 m=183.174779923438 n=193 q=3696
b=77  k=11 m=182.082398929715 n=187 q=1815
b=79  k=82 m=252.66776604862 n=289 q=19680
b=84  k=12 m=198.635344286962 n=204 q=2160
b=85  k=55 m=240.520269416114 n=265 q=12375
b=89  k=31 m=227.160736043886 n=241 q=6479
b=91  k=13 m=215.188289644209 n=221 q=2535
b=92  k=40 m=242.156973882645 n=260 q=8960
b=93  k=87 m=288.40596387731 n=327 q=23751
b=94  k=76 m=280.235615152678 n=314 q=20064
b=98  k=14 m=231.741235001456 n=238 q=2940
其中q = 2 * b * k + k ^ 2


仅仅m为整数的情况：
b=5  k=2 m=13 n=13.8924439894498 q=24
b=7  k=10 m=25 n=29.4108823397055 q=240
b=9  k=22 m=41 n=50.60632371552 q=880
b=10  k=4 m=26 n=27.7848879788996 q=96
b=11  k=38 m=61 n=77.4661216274573 q=2280
b=12  k=11 m=37 n=41.8807831827438 q=385
b=13  k=58 m=85 n=109.98636279103 q=4872
b=14  k=20 m=50 n=58.821764679411 q=960
b=15  k=6 m=39 n=41.6773319683494 q=216
b=15  k=82 m=113 n=148.16544806398 q=9184
b=16  k=31 m=65 n=78.6002544525143 q=1953
b=18  k=44 m=82 n=101.21264743104 q=3520
b=20  k=8 m=52 n=55.5697759577992 q=384
b=20  k=59 m=101 n=126.65701717631 q=5841
b=21  k=30 m=75 n=88.2326470191165 q=2160
b=22  k=76 m=122 n=154.932243254915 q=9120
b=24  k=22 m=74 n=83.7615663654877 q=1540
b=24  k=95 m=145 n=186.037630601983 q=13585
b=25  k=10 m=65 n=69.462219947249 q=600
b=27  k=66 m=123 n=151.81897114656 q=7920
b=28  k=40 m=100 n=117.643529358822 q=3840
b=30  k=12 m=78 n=83.3546639366988 q=864
b=32  k=62 m=130 n=157.200508905029 q=7812
b=35  k=14 m=91 n=97.2471079261486 q=1176
b=35  k=50 m=125 n=147.054411698527 q=6000
b=36  k=5 m=85 n=87.2353139502575 q=385
b=36  k=33 m=111 n=125.642349548232 q=3465
b=36  k=88 m=164 n=202.42529486208 q=14080
b=39  k=2 m=89 n=89.8943824718764 q=160
b=40  k=16 m=104 n=111.139551915598 q=1536
b=42  k=60 m=150 n=176.465294038233 q=8640
b=44  k=29 m=125 n=137.905764926634 q=3393
b=45  k=18 m=117 n=125.031995905048 q=1944
b=48  k=44 m=148 n=167.523132730975 q=6160
b=48  k=93 m=195 n=235.800763357543 q=17577
b=49  k=70 m=175 n=205.876176377938 q=11760
b=50  k=20 m=130 n=138.924439894498 q=2400
b=51  k=38 m=149 n=165.894544816881 q=5320
b=52  k=61 m=173 n=199.984999437458 q=10065
b=55  k=22 m=143 n=152.816883883948 q=2904
b=56  k=80 m=200 n=235.287058717644 q=15360
b=57  k=62 m=185 n=212.454701054131 q=10912
b=60  k=24 m=156 n=166.709327873398 q=3456
b=60  k=55 m=185 n=209.403915913719 q=9625
b=63  k=90 m=225 n=264.697941057349 q=19440
b=65  k=26 m=169 n=180.601771862847 q=4056
b=70  k=28 m=182 n=194.494215852297 q=4704
b=70  k=100 m=250 n=294.108823397055 q=24000
b=72  k=10 m=170 n=174.470627900515 q=1540
b=72  k=66 m=222 n=251.284699096463 q=13860
b=75  k=30 m=195 n=208.386659841747 q=5400
b=78  k=4 m=178 n=179.788764943753 q=640
b=80  k=32 m=208 n=222.279103831197 q=6144
b=84  k=19 m=205 n=213.490046606393 q=3553
b=84  k=77 m=259 n=293.165482279207 q=18865
b=85  k=34 m=221 n=236.171547820647 q=6936
b=88  k=58 m=250 n=275.811529853268 q=13572
b=90  k=36 m=234 n=250.063991810096 q=7776
b=95  k=38 m=247 n=263.956435799546 q=8664
b=96  k=55 m=265 n=289.499568220749 q=13585
b=96  k=88 m=296 n=335.046265461951 q=24640
b=100  k=40 m=260 n=277.848879788996 q=9600

ysr

数据的规律：当k=2b的时候，n均为整数，但m不为整数。若设m，n同时为整数的时候，无解。

ysr

b=1  k=2 m=4.12310562561766 n=5 q=8
b=1  k=19 m=21.0237960416286 n=29 q=399
b=2  k=4 m=8.24621125123532 n=10 q=32
b=2  k=38 m=42.0475920832573 n=58 q=1596
b=3  k=6 m=12.369316876853 n=15 q=72
b=3  k=57 m=63.0713881248859 n=87 q=3591
b=4  k=8 m=16.4924225024706 n=20 q=128
b=4  k=76 m=84.0951841665146 n=116 q=6384
b=5  k=10 m=20.6155281280883 n=25 q=200
b=5  k=95 m=105.118980208143 n=145 q=9975
b=6  k=12 m=24.738633753706 n=30 q=288
b=7  k=14 m=28.8617393793236 n=35 q=392
b=8  k=16 m=32.9848450049413 n=40 q=512
b=9  k=18 m=37.1079506305589 n=45 q=648
b=10  k=20 m=41.2310562561766 n=50 q=800
b=11  k=22 m=45.3541618817943 n=55 q=968
b=12  k=24 m=49.4772675074119 n=60 q=1152
b=13  k=26 m=53.6003731330296 n=65 q=1352
b=14  k=28 m=57.7234787586472 n=70 q=1568
b=15  k=30 m=61.8465843842649 n=75 q=1800
b=16  k=32 m=65.9696900098826 n=80 q=2048
b=17  k=34 m=70.0927956355002 n=85 q=2312
b=18  k=36 m=74.2159012611179 n=90 q=2592
b=19  k=38 m=78.3390068867355 n=95 q=2888
b=20  k=40 m=82.4621125123532 n=100 q=3200
b=21  k=42 m=86.5852181379709 n=105 q=3528
b=22  k=44 m=90.7083237635885 n=110 q=3872
b=23  k=46 m=94.8314293892062 n=115 q=4232
b=24  k=48 m=98.9545350148238 n=120 q=4608
b=25  k=50 m=103.077640640442 n=125 q=5000
b=26  k=52 m=107.200746266059 n=130 q=5408
b=27  k=54 m=111.323851891677 n=135 q=5832
b=28  k=56 m=115.446957517294 n=140 q=6272
b=29  k=58 m=119.570063142912 n=145 q=6728
b=30  k=60 m=123.69316876853 n=150 q=7200
b=31  k=62 m=127.816274394147 n=155 q=7688
b=32  k=64 m=131.939380019765 n=160 q=8192
b=33  k=66 m=136.062485645383 n=165 q=8712
b=34  k=68 m=140.185591271 n=170 q=9248
b=35  k=70 m=144.308696896618 n=175 q=9800
b=36  k=72 m=148.431802522236 n=180 q=10368
b=37  k=74 m=152.554908147853 n=185 q=10952
b=38  k=76 m=156.678013773471 n=190 q=11552
b=39  k=78 m=160.801119399089 n=195 q=12168
b=40  k=80 m=164.924225024706 n=200 q=12800
b=41  k=82 m=169.047330650324 n=205 q=13448
b=42  k=84 m=173.170436275942 n=210 q=14112
b=43  k=86 m=177.293541901559 n=215 q=14792
b=44  k=88 m=181.416647527177 n=220 q=15488
b=45  k=90 m=185.539753152795 n=225 q=16200
b=46  k=92 m=189.662858778412 n=230 q=16928
b=47  k=94 m=193.78596440403 n=235 q=17672
b=48  k=96 m=197.909070029648 n=240 q=18432
b=49  k=98 m=202.032175655265 n=245 q=19208
b=50  k=100 m=206.155281280883 n=250 q=20000
代码如下：


Private Sub Command1_Click()
Dim a, b, m, n
a = Val(Text1)
b = 1

Do While Val(b) <= Val(a)
k = 2 * b

Do While k <= Val(a)
m1 = 5 * b ^ 2 + 4 * b * k + k ^ 2
n1 = 5 * b ^ 2 + 6 * b * k + 2 * k ^ 2
q = 2 * b * k + k ^ 2
m = Sqr(m1)
n = Sqr(n1)
If InStr(m, ".") = 0 Or InStr(n, ".") = 0 Then
s = s + 1
s1 = s1 & "b=" & b & "  k=" & k & " m=" & m & " n=" & n & " q=" & q & vbCrLf
Else
s = s
End If


k = k + b
Loop

b = b + 1
Loop
If Val(s) > 0 Then
Text2 = s1
Else
Text2 = " b=" & b & "wu jie"
End If

End Sub

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

End Sub

ysr

b=1  k=2 m=4.12310562561766 n=5 q=8
b=1  k=19 m=21.0237960416286 n=29 q=399
b=2  k=4 m=8.24621125123532 n=10 q=32
b=2  k=38 m=42.0475920832573 n=58 q=1596
b=3  k=6 m=12.369316876853 n=15 q=72
b=3  k=57 m=63.0713881248859 n=87 q=3591
b=4  k=8 m=16.4924225024706 n=20 q=128
b=4  k=76 m=84.0951841665146 n=116 q=6384
b=5  k=10 m=20.6155281280883 n=25 q=200
b=5  k=95 m=105.118980208143 n=145 q=9975
b=6  k=12 m=24.738633753706 n=30 q=288
b=7  k=14 m=28.8617393793236 n=35 q=392
b=8  k=16 m=32.9848450049413 n=40 q=512
b=9  k=18 m=37.1079506305589 n=45 q=648
b=10  k=20 m=41.2310562561766 n=50 q=800
b=11  k=22 m=45.3541618817943 n=55 q=968
b=12  k=24 m=49.4772675074119 n=60 q=1152
b=13  k=26 m=53.6003731330296 n=65 q=1352
b=14  k=28 m=57.7234787586472 n=70 q=1568
b=15  k=30 m=61.8465843842649 n=75 q=1800
b=16  k=32 m=65.9696900098826 n=80 q=2048
b=17  k=34 m=70.0927956355002 n=85 q=2312
b=18  k=36 m=74.2159012611179 n=90 q=2592
b=19  k=38 m=78.3390068867355 n=95 q=2888
b=20  k=40 m=82.4621125123532 n=100 q=3200
b=21  k=42 m=86.5852181379709 n=105 q=3528
b=22  k=44 m=90.7083237635885 n=110 q=3872
b=23  k=46 m=94.8314293892062 n=115 q=4232
b=24  k=48 m=98.9545350148238 n=120 q=4608
b=25  k=50 m=103.077640640442 n=125 q=5000
b=26  k=52 m=107.200746266059 n=130 q=5408
b=27  k=54 m=111.323851891677 n=135 q=5832
b=28  k=56 m=115.446957517294 n=140 q=6272
b=29  k=58 m=119.570063142912 n=145 q=6728
b=30  k=60 m=123.69316876853 n=150 q=7200
b=31  k=62 m=127.816274394147 n=155 q=7688
b=32  k=64 m=131.939380019765 n=160 q=8192
b=33  k=66 m=136.062485645383 n=165 q=8712
b=34  k=68 m=140.185591271 n=170 q=9248
b=35  k=70 m=144.308696896618 n=175 q=9800
b=36  k=72 m=148.431802522236 n=180 q=10368
b=37  k=74 m=152.554908147853 n=185 q=10952
b=38  k=76 m=156.678013773471 n=190 q=11552
b=39  k=78 m=160.801119399089 n=195 q=12168
b=40  k=80 m=164.924225024706 n=200 q=12800
b=41  k=82 m=169.047330650324 n=205 q=13448
b=42  k=84 m=173.170436275942 n=210 q=14112
b=43  k=86 m=177.293541901559 n=215 q=14792
b=44  k=88 m=181.416647527177 n=220 q=15488
b=45  k=90 m=185.539753152795 n=225 q=16200
b=46  k=92 m=189.662858778412 n=230 q=16928
b=47  k=94 m=193.78596440403 n=235 q=17672
b=48  k=96 m=197.909070029648 n=240 q=18432
b=49  k=98 m=202.032175655265 n=245 q=19208
b=50  k=100 m=206.155281280883 n=250 q=20000
代码如下：


Private Sub Command1_Click()
Dim a, b, m, n
a = Val(Text1)
b = 1

Do While Val(b) <= Val(a)
k = 2 * b
s3 = 2
Do While k <= Val(a)
m1 = 5 * b ^ 2 + 4 * b * k + k ^ 2
n1 = 5 * b ^ 2 + 6 * b * k + 2 * k ^ 2
q = 2 * b * k + k ^ 2
m = Sqr(m1)
n = Sqr(n1)
If InStr(m, ".") = 0 Or InStr(n, ".") = 0 Then
s = s + 1
s1 = s1 & "b=" & b & "  k=" & k & " m=" & m & " n=" & n & " q=" & q & vbCrLf
Else
s = s
End If

s3 = s3 + 1
k = b * s3
Loop

b = b + 1
Loop
If Val(s) > 0 Then
Text2 = s1
Else
Text2 = " b=" & b & "wu jie"
End If

End Sub

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

End Sub

ysr

Private Sub Command1_Click()
Dim A, B, c
a1 = Val(Text1)
A = 1
Do While A <= a1
B = 1
Do While B <= a1
C1 = MPC1(qxdcm(Val(A), 6), qxdcm(Val(B), 8))
C2 = MBBC1(Trim(C1))
c = MBBC1(zhengchuqy(Trim(C2)))
If InStr(c, "/") = 0 And InStr(C2, "/") = 0 Then
s1 = s1 + 1
s = s & "a=" & A & "   b=" & B & "  c=" & c & vbCrLf
Else
s1 = s1
End If

B = B + 1
Loop

A = A + 1
Loop

If s1 > 0 Then
Text2 = s
Else
Text2 = "wu  jie"
End If

End Sub


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

End Sub

ysr

2^2325349=  有700000位，用时1338.68秒630067738647749118386418637629302701293021685116966842364347284671563287090209671395707475336669096817505676199649373260056882162147886994622667953386190450531863850220523165121290751514388234175416622596862039296296426399489599205746470585009332152656531433471349318645031856376457309457685174699557424436747159269553587007694655436548460110365276751312034750049543987276906686689027611034169136337223765069190291928941111832865614612196831869040847606316826662900263467318658610378448310091588951665341301901916017646618443191516351175546881777783878422215525987909327171563826296342298428782206494925996550761509564464448270424914074031994775022165261109081112285612160760020852074499678850899344313200804803209653498407979244370042762143022013717902932269152206628216997624611025804483969768083546059600856769506120897849813228889838095821262098778233648725581467885859964862308433191696702716610613639946350610656677795870682229035489330876441214430604294306267363220666387340003916044449891809682230020489222336604431324207261570190558982617908360454780560958065168226089259518096408699007330761679001005644509317897962936605572999223390896352500568566215693592883361264046420639004978091724039464990232420571940129091398257079387107340678567293728253638650549475567861057511239250841982618030785843221810873080850703008667901617769080818828912284437133755209236685244197434182193043432100072704429192395284708366380636583292394170828881112841047486026798603192660428704202464488238769769729201413016481332929295168308477297362766821494906049802258329384555441844955054495973504534614209475496560843480499418582879668072871977945030884966600902479261254342312180186840336923941625867650512164551125653313437696314010127363384794937838995411315098091244334993846656484403356889484186925766094341713905356058839751525855761226660178447559847428286135811179629024183115603907072685063824033778201716632195413322311866263446168814878358858961158128192761590788044361002693520652641041011989448215769334051635400049479661650816702231176096149042240471245610607846083517852510394444506351698598486101965528183639672790019974975736234544882053387669312751735250163480489966814469750279960917326926374374452294610202356211597853458296702402438246523460042343172231704657093595938067024365866881330522804998745481413924275591288049060834289045092032053465321536720196697381549132724410282420660120173015310747086213690263241851503076398701723226646586031167450278117571193075523690933565006983606741724170733493291400643388853456696625656177853351656903106426349352098569104084685476836678246501854368542354512738293835621606236627757405401008300029755555892558183896489375110088895974695392328507834371988356451724940610255932283983829699342474072948953424385784133044754402909710872919773696038686537301568084209017918521251513943851546232970469538637868977725308880170660382316846430934449562215295822719618908919433055673969197334030559434305135702773133655179571798836282142044461749301396224359905520719849851258155245711119051299453190510658145875232100578266101198412846114504543951193284879444767534160316070054509197353035810991686070116960788689652958221572613272063696678544157633048913378596126472279340948812889508481100084841959969595002768527655505342844820758403287553361354379118639557509390732024809973856324948626559491507781825479006253566841957190379417081405016630685922500399373148882836612843969865770720098857599259407156564690162869065210316710530215787068375891449851806829986065365990475630109204637142645611007997526922684431879901768129950737448181569668755463836146579003730426595442441112855865871710194429291825764599836049864414721939019439111994279474104440111522438826459334325030038697294811272414736809055152800447657230128978915328057266378479179532444210550528057129263284078711914206944684605370219506362249567817569273019371683274090562657538321059494153606086049817009249892843895929818895689882521391179179564014249442175667935732675484678945574674650917479386244426061621221890617658553996626943807639939368183332606373808080919002684353248206769584527331060867769105483971246307416590901822355927441048535142628809117607610617544586318981237428056228603000605451424657398323905729132924643034685975257688132052917254482694060268146641581549439857334591936926383168520919413098859676323625824161922696514692553815746000445171408042905247109110812371844328412084508913053210510939176409965207161903925799592889359685421799212251868164634772991982137509292597810230100427882696667614230397524170029629377270483633263958498271348169359390655752798297602423702072122740101770411102385833148568368184694297806386138944652948870196994428071515796673369513737932172499306718003315766324222764840774295699844543944948551191753750953086239724963496322494445767349560646529077999907429952161345074028918006284953065589808355025622730604635946038519421697609328980841428792596317632519624510247641307206844533442579459766046209161827667948106607162630935854693322070455796460323983601692073957021165757941965110545966195600195553806394357859777218065965461504068593836174639189479634199805081700601795495153090515836031072638329368677091176248917038545474373020652366060055062347114817976554153308720790610589297849913616202229624449524368794134301479384436303515153814332887029759356562892721122922088449863284784501030071216986382159352720475476203661345796108261583420770382377488807266474033443624539552527203657130489920708767490980848389509822501639656945397942996183780567021190157051822820777357668506006630978276878668468243186077445919024380583867839731121774467121933179274463233540085984836788014555763739501325691632623662436717453262742640548899068739633687654412355861902366228893096647905914315742825188952391970225878253580873184901256033718981097464268193868145001182868382399565790371112467319341048099482712406648783871588691792320369600743835911146866499252243937678555859940309766270813798989575773856832622962986609752660536084999119868246912485604077141278521801560643705663035247735298638032116213875931410207307306290451655981444442036571629315456329891397120342739244346705013349469341735326691395386219586787652248825441959402677657971861137605556723636903407814370509849466342182087741376741546083791983928210938353467391224785367070921120115733294606517134790873187312520284755509686143549390909514090429812893800173147433312574829717192729769405197550521555925505813024891628613775017423356249860398559452941055160285954006986352983743148845491795500868565408007044028096309922600544255708900171818068593662400099821127098767369091288483714431515361087915782781286503797915388933566966625217964691338474053426779481920363950835282507475535366733903194815737223255270891803008042458866229617110768191839268064175142552435870301646588453784121822826757625516603354525027802510987190780349703208025207539672152984672536793506212664373566379934209232691487517865316586687976948107575853863963515418935029636049282308522453611580136991869837629543854782742339221445965941875698653985770158445635369105416146847343912384554128564007031730157664823460146014528996198245253817464193388004382209290037469844518837999809555765492026406040266094639508569769798339489176442238998481348615040133823840305265737721838700671654276485188559171213190405473308823460131181043281811451517201581901610909768190186218555380652547995639241097594845259820715193595843440803807427498441591084567878436974828338561298730745249949106564527670801271705952568732458035224865276965489900521016402302813893445158931713766712127698325551647581290159455461893710937345237793168608139546869155396119978299393954650575422205049526216602296685753304925189292499594720911956002615932068397408293778155100007996306381085286208200692874721281544039734717453417034741162374804080657442294522560580644562887019410506100798370704704898996051396324943472649382067804102549818341279166086328695775588705960522102114068879336263072902195337645265294895996606709104184609805190889772715758636156661353771983785011931274945059846844571194547422753489310179824474139121107384143770896812605229727204644708761405835311328875260719259728764510438544276918728048343421167011822181540253244443591791872986345378118070974690675893607006707228482812773637491831093586515435548036547711811181929431539420142996048812853313118349434212874303761514113459024468219366721148067502262778366290070096365425092678229729870745219708211077119712204739790591239783783062403304897119801514253397129231591842546657967045703619056472622693199481000757930069298053928728255207656373745075686455653851281015459955780913677216175588022297591054574148246938945003511358571653013413020355679194901265590768533384353167629597573823171147343510149655672432986578436406221643568419278864282193058071701023147407762852838384532739805823367559876906339474791087193463372509278717096642762548169253570576203377885855472242914407772597156400817844330446945235108134041332808391631636059323109284919551349631083389671246598154186014857053987937495381972273512408277939900563793529792859336881989602140755751729221659277584500928169780363355593507857963096107767236374059752230181815283365933880800341862910237225514079469003333280296023939388073164532369906402001470050207991376312524153176975655510358644974269718611411246692657578441246418379849078308274208004989794715183566493862263975188981590932985322727694853420603546869048366125722459334697547939429491423726736885613506895754839500711315997581585534773866766117114715727789210050997859752020462899525845524606718518637647597916203554347464078669272800500199072655118601771085374505999261279817283894042350162454670594322870483133340611408473174599826245975321392038700848284364469342364998964880233551611458480813924532012317380563451023908550765165823962134971946925993731612495377648137444620899605751984572861034678605601337130124096825199892653792372507871543785075230533348357368025470731524276464278095031001154378400005615006867170789018657788895118660973896561664879865562890267410256297334539963107868888151662363458470314000801229527096397838454527122248715369132110574598812231425583066359761520356254744622689501900097749273540713446922169338301004391727679205390269574940685424577719154094038264602567465897065732287877958091448568059166995233383841544225346012570678924583471658969693153819514571093372962141719640108312502172068689298094389444770812918125061442254775750070855138959261792583271789742829966108592770552723189255814416820458220832866630877909523476780053042624812568313308053905755035364279121459580146930808012565993325577930937577767623070168574001119595104183757531760361120541966844355951065282945939051572323426277419524019355913987773885672117012831733441509258864169322964418829792412482252323996399863890505060528655197641035087924809852249028789487535231354493868708567271912732246358071433848131651737727729997287873116906875815677023876060698138001829854130794810641837111860659903090459448681661400819963979214418315771384087747780511711127628380030948710906413027288564872178255905980332453501833291260283115985978777360581447266144993704085318041974581895225652251723571854990738087537250450101692763055526559375861981066849042607097168997873681361578442959362518795369802318780165720403718622233770732800609319808415469348255960701230133277069033623747192975848316610925291402247113851550030181691291907956168655121104762254542131892830544293247448937311334759513569477218707106581626524323777340927119456509705677453034246753984436445108812644182877575123653523023514111018887196407182558409178602250849900723037391576359871427879010813730113685448166423896467044344033819289354265241011045049313319117179375911351021742630290170031254661193881155208607467539748369006042143922334345099700351677456388515098972759934046376893521117334531845035080603339983526430235063235129759083241287339846151724172516696912350321552736198986200703376516536732412701541049855745788226617859937994548980630626103997635330281729378407087216322342075512253595344515041719151285512149090802287678719602594732815609611148738817462194133868691250433757065637180825959337789031099599069853513723371312607619966992958265762577694172910933036866070085458460917792865857091551805093894956713282787135978659380180797672474152761791794234991080498378833538469408789530183852530499552201154655633126815704002333159499223447920567045591320872020856346999885379833870442758772744995346722132240525027372577661884713285210921213751726364675134523197822859088012695799788682521623019387256865208526188596911703103104929477990227194969140768666953206488992103197918297022378057499360972139551130131961123211102619911127026523622152719215121201863890450651514153845710039998076295461177287718580818802517112475981068694372353606890589300359834330412692949001158921148957172126082924255718433327931945938773047518578068624333260524271288947180863752285144794427211814504786898913861004999749376539878391909038501237307733526749656582992074885062831982032657244755585205001130776629764388404548716377170287795004542654219381177010814514627862378802883256717919284741681233096524326186505621065515627097952353277050680000826335577499708776911933053431769113631467572893485292488879299257618395093326472719618945912938662681953707665700635911219468085174208999196074308505124087169360652136068843518504048979711030719777843192525742692283634538475988668728480024165654986399294814861218517579652360348239457455246861243951041337041826563816213931550513223518507840648717820474027234372332808293424728806321565419599814863170554589152134708861936088016403066136893342393000650452272032607937905791186860667490211444704412027237410792760208125583481460335369094053846916979691863051274982900156473251253498483814425963889661105555376940649939538599190417326920929088375539702126003616781264577456054946265459014299085772883797503387936213036830922893241817396339572116495236778378173489565130703975190455245304540394570059805444430642427908729151397126699152147973559939427122509973251574210208646302215580880303788183230900481217231284040960186931617870164078192879563839335513037654542059986423622479338604678082558353352014342032263700432673748015878684034518493456571639011132334894094430401531876957285453552399923924308906893325721651790914490099109636499956115948033151734726694439315124040983410929651351073832060520617824094111789322790732993686699913803826250512668958708728605734822932335128802445948821897081101926975586875742897299771348031560651774917648296382019226622922262611205560577734606111131116794318920636801895334782231212318657942065094796635525155033148816019904970246448473073987001773781342286094916189087123134620380500696466437358376977310855788767181028463771310448286663179980917752950815642676285628686527560337807286986670081125236884118391855461313312245028880379035211166432667824564085314812342047610438499754064272093382797151230990159729131634779402661750550564630521407633880983865845246196366623733284974396475672492715555091453936793227936724712952957400991741163484037576317021712490597976094284170593298224102191755482938495528281924877842274954283551045640154653895322359016797653224903367325615735778728026983981170247394637729463237991252445467148045606049019741138180681144678898864552855470567934362996163919688386266477486171364566647982264153945407932820380701219966201526381947939342663138690278744018162163793878039539162531524388947739022324385419038304484528376099501816844803201311360882095296451260831752985477077023479333719774200093493013020133635028025284448026965148640674715022773961669551084587848205074690841667918831418886259767767738973685081475261499799739090565412691965329195596477899879490672117470049857020116676316633716386345310717626570869137941520697337311642575052657966742266629340987333941741744332601658508384731891009867285874919320750723794708564502158981571925534232270484988606291049981108680963542941637480585505552935385893004317913107817708536527829762580932173193391674802737159477201456227066262436139577138875753892587461188584001334094477670009114072102514152630393931148284186139811908337821309330297452634782502674446840067396969083036249791153855529905620117382659621998604374214969247989332511474655285401243069203988882504720199985923408777711027781244719863863358189792796494417683584920986481206931881820146924924772197749035898981552813155272772482138584615422645224802115447078230360742827503663723524464236197301587083282068718902997231356753095142040197996099753335216218363433761471385211056220510916159513942457163176070554103827530899780278256487620860788715470488618632668268322419920290188966476756975739752384510384843345296010052429789370360474024388854448228600149350501082636604448860057331517297809840971643398624888159488180050473658520004598267269022867328916475262060455216955264697045657821067550388723370339687586980652956899481056889020148301461449023398273997725252397319812091036495427483868222677060596141692696002317783984506188815673624402576624902776201172436468461384540835855737099202173874675365495119798349394417936216692390330520268299268997564918336444010844769078631293028642557907603840224048350384014485233408410498366802050348312445996573114000157776980896951934467514170342881082650797398363103924297180558693966075370106614105883726774286407628459765195224789584849436673204938858414615287260384448092500734581402681216545225395363070407431944600432707967209049708245113954270903323143219011160631159879397857582986076411728565094033663774936219411990140698972895619559155920558645510427952786840229934281211665449405329289779356952511813537021506697451911468211901601028784045800348486716196469971366543411796670772854090274900292856344640301427896163785876217289423754203373060684612784502124422992635556565080051011834040086078003808917894095086169632015375252670585690624457931133156532653367801222384142783187406532190795325140472577616985294312175491233131062274273498625862369167772441481822957996445405046074610119172984341999704692222459684912826429821344725224192100625021775822099427541741403433440870113657757397195737079244692809775097628921858767251832181268785965200483990595711871525970593893168287668559737200172846042183075737897898246428507365961197204110590844161518393104670582405470012218439922631346797507695767242937655246147003290360939501274461634931709392088027599305226295734681397175315096740332996839224459431317204361560525835139043976247720156251052060827879040042728063895857671855835324961820178248521455037362086776499378176375245542225390361856675769340549597141347140388383678693075821730375937676779969849509649974928446093456…………

ysr

2^2325349=  有700000位就是70万位，用时1338.68秒，这样的速度用来破解世界记录是不行的，学习其他编程语言，提高速度，几千万位的俩整数的一步乘法在1秒内完成，才行！

ysr

3  5
5  7
11  13
17  19
29  31
41  43
59  61
71  73
101  103
107  109
137  139
149  151
179  181
191  193
197  199
227  229
239  241
269  271
281  283
311  313
347  349
419  421
431  433
461  463
521  523
569  571
599  601
617  619
641  643
659  661
809  811
821  823
827  829
857  859
881  883

Private Function isprime(i) As Boolean
For j = 2 To i - 1
If i Mod j = 0 Then
Exit For '当i有可以整除的因子时（即i不是素数时）,跳出内层循环，判断下一个数
End If
Next j
If j = i Then
isprime = True '当循环进行到最后 也没跳出时 即i没有可以整除的因子时（即i是素数时），输出i
End If
End Function
Private Sub Command1_Click() '求1000内的孪生素数的程序
For i = 1 To 1000
If isprime(i) And isprime(i + 2) Then
Print i; i + 2
Text1 = Text1 & i & "  " & i + 2 & vbCrLf
End If
Next
End Sub

ysr

Private Function judge(n As Long) As Boolean
Dim i As Long
For i = 2 To Sqr(n)
If n Mod i = 0 Then Exit Function
Next i
judge = True
End Function
Private Sub Command1_Click()
'求a~b内的孪生素数的程序
Dim a As Integer, b As Long, i As Long
a = Val(Text1.Text): b = Val(Text2.Text)
For i = a To b - 2
If judge(i) And judge(i + 2) Then
List1.AddItem i & "和" & i + 2 & "是孪生素数"
End If
Next i
If List1.ListCount = 0 Then List1.AddItem "无孪生素数"
Text3 = List1.ListCount
End Sub

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

End Sub