先发一下程序结果：
1与10000之间有205对p,p+2素数对:（只显示孪中数）
/4
/6
/12
/18
/30
/42
/60
/72
/102
/108
/138
/150
/180
/192
/198
/228
/240
/270
/282
/312
/348
/420
/432
/462
/522
/570
/600
/618
/642
/660
/810
/822
/828
/858
/882
/1020
/1032
/1050
/1062
/1092
/1152
/1230
/1278
/1290
/1302
/1320
/1428
/1452
/1482
/1488
/1608
/1620
/1668
/1698
/1722
/1788
/1872
/1878
/1932
/1950
/1998
/2028
/2082
/2088
/2112
/2130
/2142
/2238
/2268
/2310
/2340
/2382
/2550
/2592
/2658
/2688
/2712
/2730
/2790
/2802
/2970
/3000
/3120
/3168
/3252
/3258
/3300
/3330
/3360
/3372
/3390
/3462
/3468
/3528
/3540
/3558
/3582
/3672
/3768
/3822
/3852
/3918
/3930
/4002
/4020
/4050
/4092
/4128
/4158
/4218
/4230
/4242
/4260
/4272
/4338
/4422
/4482
/4518
/4548
/4638
/4650
/4722
/4788
/4800
/4932
/4968
/5010
/5022
/5100
/5232
/5280
/5418
/5442
/5478
/5502
/5520
/5640
/5652
/5658
/5742
/5850
/5868
/5880
/6090
/6132
/6198
/6270
/6300
/6360
/6450
/6552
/6570
/6660
/6690
/6702
/6762
/6780
/6792
/6828
/6870
/6948
/6960
/7128
/7212
/7308
/7332
/7350
/7458
/7488
/7548
/7560
/7590
/7758
/7878
/7950
/8010
/8088
/8220
/8232
/8292
/8388
/8430
/8538
/8598
/8628
/8820
/8838
/8862
/8970
/9000
/9012
/9042
/9240
/9282
/9342
/9420
/9432
/9438
/9462
/9630
/9678
/9720
/9768
/9858
/9930
12/18/24/30/36/42/48/54/60/66/72/78/84/90/102/108/114/120/126/132/
138/144/150/156/162/168/174/180/186/192/198/204/210/216/222/228/234/240/246/252/
258/264/270/276/282/288/294/300/306/312/318/324/330/336/342/348/354/360/366/372/
378/384/390/396/408/414/420/426/432/438/444/450/456/462/468/474/480/486/492/498/
504/510/522/528/534/540/546/552/558/564/570/576/582/588/594/600/606/612/618/624/
630/636/642/648/654/660/666/672/678/684/690/696/702/708/714/720/726/732/738/744/
750/756/762/768/774/780/792/798/804/810/816/822/828/834/840/846/852/858/864/870/
876/882/888/894/900/912/918/924/930/936/942/948/954/960/966/972/978/984/990/996/
1002/1008/1014/1020/1026/1032/1038/1044/1050/1056/1062/1068/1074/1080/1086/1092/1098/1104/1110/1122/
1128/1134/1140/1152/1158/1164/1170/1176/1182/1188/1194/1200/1206/1212/1218/1224/1230/1236/1242/1248/
1254/1260/1272/1278/1284/1290/1296/1302/1308/1314/1320/1326/1332/1338/1344/1350/1362/1368/1374/1380/
1386/1392/1398/1404/1410/1416/1422/1428/1434/1440/1446/1452/1458/1464/1470/1476/1482/1488/1494/1500/
1506/1512/1518/1524/1530/1536/1542/1548/1554/1560/1566/1572/1578/1584/1590/1596/1602/1608/1614/1620/
1626/1632/1638/1644/1650/1656/1662/1668/1674/1680/1686/1692/1698/1704/1710/1716/1722/1728/1734/1740/
1746/1752/1758/1764/1770/1776/1782/1788/1794/1800/1806/1812/1818/1824/1830/1836/1842/1848/1854/1860/
1866/1872/1878/1884/1890/1896/1902/1908/1914/1920/1926/1932/1938/1944/1950/1956/1962/1968/1974/1980/
1986/1992/1998/2004/2010/2016/2022/2028/2034/2040/2046/2052/2058/2064/2070/2076/2082/2088/2094/2100/
2106/2112/2118/2124/2130/2136/2142/2148/2154/2160/2166/2172/2178/2184/2190/2196/2202/2208/2214/2220/
2226/2232/2238/2244/2250/2256/2262/2268/2274/2280/2286/2292/2298/2304/2310/2316/2322/2328/2334/2340/
2346/2352/2358/2364/2370/2376/2382/2388/2394/2400/2406/2412/2418/2424/2430/2436/2442/2448/2454/2460/
2466/2472/2478/2484/2490/2496/2502/2508/2514/2520/2526/2532/2538/2544/2550/2556/2562/2568/2574/2580/
2586/2592/2598/2604/2610/2616/2622/2628/2634/2640/2646/2652/2658/2664/2670/2676/2682/2688/2694/2700/
2706/2712/2718/2724/2730/2736/2742/2748/2754/2760/2766/2772/2778/2784/2790/2796/2802/2808/2814/2820/
2826/2832/2838/2844/2850/2856/2862/2868/2874/2880/2886/2892/2898/2904/2910/2916/2922/2928/2934/2940/
2946/2952/2958/2964/2970/2976/2982/2988/2994/3000/3006/3012/3018/3024/3030/3036/3042/3048/3054/3060/
3066/3072/3078/3084/3090/3096/3102/3108/3114/3120/3126/3132/3138/3144/3150/3156/3162/3168/3174/3180/
3186/3192/3198/3204/3210/3216/3222/3228/3234/3240/3252/3258/3264/3270/3276/3282/3288/3294/3300/3306/
3312/3318/3324/3330/3336/3342/3348/3354/3360/3366/3372/3378/3384/3390/3396/3402/3408/3414/3420/3426/
3432/3438/3444/3450/3456/3462/3468/3474/3480/3486/3492/3498/3504/3510/3516/3522/3528/3534/3540/3546/
3552/3558/3564/3570/3576/3582/3588/3594/3600/3606/3612/3618/3624/3630/3636/3642/3648/3654/3660/3666/
3672/3678/3684/3690/3696/3702/3708/3714/3720/3726/3732/3738/3744/3750/3756/3762/3768/3774/3780/3786/
3792/3798/3804/3810/3816/3822/3828/3834/3840/3846/3852/3858/3864/3870/3876/3882/3888/3894/3900/3906/
3912/3918/3924/3930/3936/3942/3948/3954/3960/3966/3972/3978/3984/3990/3996/4002/4008/4014/4020/4026/
4032/4038/4044/4050/4056/4062/4068/4074/4080/4086/4092/4098/4104/4110/4116/4122/4128/4134/4140/4146/
4152/4158/4164/4170/4176/4182/4188/4194/4200/4212/4218/4224/4230/4236/4242/4248/4254/4260/4266/4272/
4278/4284/4290/4296/4302/4308/4314/4320/4326/4332/4338/4344/4350/4356/4362/4368/4374/4380/4386/4392/
4398/4404/4410/4416/4422/4428/4434/4440/4446/4452/4458/4464/4470/4476/4482/4488/4494/4500/4506/4512/
4518/4524/4530/4536/4542/4548/4554/4560/4566/4572/4578/4584/4590/4596/4602/4608/4614/4620/4626/4632/
4638/4644/4650/4656/4662/4668/4674/4680/4686/4692/4698/4704/4710/4716/4722/4728/4734/4740/4746/4752/
4758/4764/4770/4776/4782/4788/4794/4800/4806/4812/4818/4824/4830/4836/4842/4848/4854/4860/4866/4872/
4878/4884/4890/4896/4902/4908/4914/4920/4926/4932/4938/4944/4950/4956/4962/4968/4974/4980/4986/4992/
4998/5004/5010/5016/5022/5028/5034/5040/5046/5052/5058/5064/5070/5076/5082/5088/5094/5100/5106/5112/
5118/5124/5130/5136/5142/5148/5154/5160/5166/5172/5178/5184/5190/5196/5202/5208/5214/5220/5226/5232/
5238/5244/5250/5256/5262/5268/5274/5280/5286/5292/5298/5304/5310/5316/5322/5328/5334/5340/5346/5352/
5358/5364/5370/5376/5382/5388/5394/5400/5406/5412/5418/5424/5430/5436/5442/5448/5454/5460/5466/5472/
5478/5484/5490/5496/5502/5508/5514/5520/5526/5532/5538/5544/5550/5556/5562/5568/5574/5580/5586/5592/
5598/5604/5610/5616/5622/5628/5634/5640/5646/5652/5658/5664/5670/5676/5682/5688/5694/5700/5706/5712/
5718/5724/5730/5736/5742/5748/5754/5760/5766/5772/5778/5784/5790/5796/5802/5808/5814/5820/5826/5832/
5838/5844/5850/5856/5862/5868/5874/5880/5886/5892/5898/5904/5910/5916/5922/5928/5934/5940/5946/5952/
5958/5964/5970/5976/5982/5988/5994/6000/6006/6012/6018/6024/6030/6036/6042/6048/6054/6060/6066/6072/
6078/6084/6090/6096/6102/6108/6114/6120/6126/6132/6138/6144/6150/6156/6162/6168/6174/6180/6186/6192/
6198/6204/6210/6216/6222/6228/6234/6240/6246/6252/6258/6264/6270/6276/6282/6288/6294/6300/6306/6312/
6318/6324/6330/6336/6342/6348/6354/6360/6366/6372/6378/6384/6390/6396/6402/6408/6414/6420/6426/6432/
6438/6444/6450/6456/6462/6468/6474/6480/6486/6492/6498/6504/6510/6516/6522/6528/6534/6540/6546/6552/
6558/6564/6570/6576/6582/6588/6594/6600/6606/6612/6618/6624/6630/6636/6642/6648/6654/6660/6666/6672/
6678/6684/6690/6696/6702/6708/6714/6720/6726/6732/6738/6744/6750/6756/6762/6768/6774/6780/6786/6792/
6798/6804/6810/6816/6822/6828/6834/6840/6846/6852/6858/6864/6870/6876/6882/6888/6894/6900/6906/6912/
6918/6924/6930/6936/6942/6948/6954/6960/6966/6972/6978/6984/6990/6996/7002/7008/7014/7020/7026/7032/
7038/7044/7050/7056/7062/7068/7074/7080/7086/7092/7098/7104/7110/7116/7122/7128/7134/7140/7146/7152/
7158/7164/7170/7176/7182/7188/7194/7200/7206/7212/7218/7224/7230/7236/7242/7248/7254/7260/7266/7272/
7278/7284/7290/7296/7302/7308/7314/7320/7326/7332/7338/7344/7350/7356/7362/7368/7374/7380/7386/7392/
7398/7404/7410/7416/7422/7428/7434/7440/7446/7452/7458/7464/7470/7476/7482/7488/7494/7500/7506/7512/
7518/7524/7530/7536/7542/7548/7554/7560/7566/7572/7578/7584/7590/7596/7602/7608/7614/7620/7626/7632/
7638/7644/7650/7656/7662/7668/7674/7680/7686/7692/7698/7704/7710/7716/7722/7728/7734/7740/7746/7752/
7758/7764/7770/7776/7782/7788/7794/7800/7806/7812/7818/7824/7830/7836/7842/7848/7854/7860/7866/7872/
7878/7884/7890/7896/7902/7908/7914/7920/7926/7932/7938/7944/7950/7956/7962/7968/7974/7980/7986/7992/
7998/8004/8010/8016/8022/8028/8034/8040/8046/8052/8058/8064/8070/8076/8082/8088/8094/8100/8106/8112/
8118/8124/8130/8136/8142/8148/8154/8160/8166/8172/8178/8184/8190/8196/8202/8208/8214/8220/8226/8232/
8238/8244/8250/8256/8262/8268/8274/8280/8286/8292/8298/8304/8310/8316/8322/8328/8334/8340/8346/8352/
8358/8364/8370/8376/8382/8388/8394/8400/8406/8412/8418/8424/8430/8436/8442/8448/8454/8460/8466/8472/
8478/8484/8490/8496/8502/8508/8514/8520/8526/8532/8538/8544/8550/8556/8562/8568/8574/8580/8586/8592/
8598/8604/8610/8616/8622/8628/8634/8640/8646/8652/8658/8664/8670/8676/8682/8688/8694/8700/8706/8712/
8718/8724/8730/8736/8742/8748/8754/8760/8766/8772/8778/8784/8790/8796/8802/8808/8814/8820/8826/8832/
8838/8844/8850/8856/8862/8868/8874/8880/8886/8892/8898/8904/8910/8916/8922/8928/8934/8940/8946/8952/
8958/8964/8970/8976/8982/8988/8994/9000/9006/9012/9018/9024/9030/9036/9042/9048/9054/9060/9066/9072/
9078/9084/9090/9096/9102/9108/9114/9120/9126/9132/9138/9144/9150/9156/9162/9168/9174/9180/9186/9192/
9198/9204/9210/9216/9222/9228/9234/9240/9246/9252/9258/9264/9270/9276/9282/9288/9294/9300/9306/9312/
9318/9324/9330/9336/9342/9348/9354/9360/9366/9372/9378/9384/9390/9396/9402/9408/9414/9420/9426/9432/
9438/9444/9450/9456/9462/9468/9474/9480/9486/9492/9498/9504/9510/9516/9522/9528/9534/9540/9546/9552/
9558/9564/9570/9576/9582/9588/9594/9600/9606/9612/9618/9624/9630/9636/9642/9648/9654/9660/9666/9672/
9678/9684/9690/9696/9702/9708/9714/9720/9726/9732/9738/9744/9750/9756/9762/9768/9774/9780/9786/9792/
9798/9804/9810/9816/9822/9828/9834/9840/9846/9852/9858/9864/9870/9876/9882/9888/9894/9900/9906/9912/
9918/9924/9930/9936/9942/9948/9954/9960/9966/9972/9978/9984/9990/9996/10002/10008/10014/10020/10026/10032/
10038/10044/10050/10056/10062/10068/10074/10080/10086/10092/10098/10104/10110/10116/10122/10128/10134/10140/10146/10152/
10158/10164/10170/10176/10182/10188/10194/10200/10206/10212/10218/10224/10230/10236/10242/10248/10254/10260/10266/10272/
10278/10284/10290/10296/10302/10308/10314/10320/10326/10332/10338/10344/10350/10356/10362/10368/10374/10380/10386/10392/
10398/10404/10410/10416/10422/10428/10434/10440/10446/10452/10458/10464/10470/10476/10482/10488/10494/10500/10506/10512/
10518/10524/10530/10536/10542/10548/10554/10560/10566/10572/10578/10584/10590/10596/10602/10608/10614/10620/10626/10632/
10638/10644/10650/10656/10662/10668/10674/10680/10686/10692/10698/10704/10710/10716/10722/10728/10734/10740/10746/10752/
10758/10764/10770/10776/10782/10788/10794/10800/10806/10812/10818/10824/10830/10836/10842/10848/10854/10860/10866/10872/
10878/10884/10890/10896/10902/10908/10914/10920/10926/10932/10938/10944/10950/10956/10962/10968/10974/10980/10986/10992/
10998/11004/11010/11016/11022/11028/11034/11040/11046/11052/11058/11064/11070/11076/11082/11088/11094/11100/11106/11112/
11118/11124/11130/11136/11142/11148/11154/11160/11166/11172/11178/11184/11190/11196/11202/11208/11214/11220/11226/11232/
11238/11244/11250/11256/11262/11268/11274/11280/11286/11292/11298/11304/11310/11316/11322/11328/11334/11340/11346/11352/
11358/11364/11370/11376/11382/11388/11394/11400/11406/11412/11418/11424/11430/11436/11442/11448/11454/11460/11466/11472/
11478/11484/11490/11496/11502/11508/11514/11520/11526/11532/11538/11544/11550/11556/11562/11568/11574/11580/11586/11592/
11598/11604/11610/11616/11622/11628/11634/11640/11646/11652/11658/11664/11670/11676/11682/11688/11694/11700/11706/11712/
11718/11724/11730/11736/11742/11748/11754/11760/11766/11772/11778/11784/11790/11796/11802/11808/11814/11820/11826/11832/
11838/11844/11850/11856/11862/11868/11874/11880/11886/11892/11898/11904/11910/11916/11922/11928/11934/11940/11946/11952/
11958/11964/11970/11976/11982/11988/11994/12000/12006/12012/12018/12024/12030/12036/12042/12048/12054/12060/12066/12072/
12078/12084/12090/12096/12102/12108/12114/12120/12126/12132/12138/12144/12150/12156/12162/12168/12174/12180/12186/12192/
12198/12204/12210/12216/12222/12228/12234/12240/12246/12252/12258/12264/12270/12276/12282/12288/12294/12300/12306/12312/
12318/12324/12330/12336/12342/12348/12354/12360/12366/12372/12378/12384/12390/12396/12402/12408/12414/12420/12426/12432/
12438/12444/12450/12456/12462/12468/12474/12480/12486/12492/12498/12504/12510/12516/12522/12528/12534/12540/12546/12552/
12558/12564/12570/12582/12588/12594/12600/12606/12612/12618/12624/12630/12636/12642/12648/12654/12660/12666/12672/12678/
12684/12690/12696/12702/12708/12714/12720/12726/12732/12738/12744/12750/12756/12762/12768/12774/12780/12786/12792/12798/
12804/12810/12816/12822/12828/12834/12840/12846/12852/12858/12864/12870/12876/12882/12888/12894/12900/12906/12912/12918/
12924/12930/12936/12942/12948/12954/12960/12966/12972/12978/12984/12990/12996/13002/13008/13014/13020/13026/13032/13038/
13044/13050/13056/13062/13068/13074/13080/13086/13092/13098/13104/13110/13116/13122/13128/13134/13140/13146/13152/13158/
13164/13170/13176/13182/13188/13194/13200/13206/13212/13218/13224/13230/13236/13242/13248/13254/13260/13266/13272/13278/
13284/13290/13296/13302/13308/13314/13320/13326/13332/13338/13344/13350/13356/13362/13368/13374/13380/13386/13392/13398/
13404/13410/13416/13422/13428/13434/13440/13446/13452/13458/13464/13470/13476/13482/13488/13494/13500/13506/13512/13518/
13524/13530/13536/13542/13548/13554/13560/13566/13572/13578/13584/13590/13596/13602/13608/13614/13620/13626/13632/13638/
13650/13656/13662/13668/13674/13680/13686/13692/13698/13704/13710/13722/13728/13734/13740/13746/13752/13758/13764/13770/
13776/13782/13788/13794/13800/13806/13812/13818/13824/13830/13836/13842/13848/13854/13860/13866/13872/13878/13884/13890/
13896/13902/13908/13914/13920/13926/13932/13938/13944/13950/13956/13962/13968/13974/13980/13986/13992/13998/14004/14010/
14016/14022/14028/14034/14040/14046/14052/14058/14064/14070/14076/14082/14088/14094/14100/14106/14112/14118/14124/14130/
14136/14142/14148/14154/14160/14172/14178/14184/14190/14196/14202/14208/14214/14220/14226/14232/14238/14244/14250/14256/
14262/14268/14274/14280/14286/14292/14298/14304/14310/14316/14322/14328/14340/14352/14358/14364/14370/14376/14382/14388/
14394/14400/14406/14412/14418/14424/14430/14436/14442/14448/14454/14460/14466/14472/14478/14484/14490/14496/14502/14508/
14514/14520/14532/14538/14544/14550/14556/14562/14568/14574/14580/14586/14592/14598/14604/14610/14616/14622/14628/14640/
14646/14652/14658/14664/14670/14676/14682/14688/14694/14700/14706/14712/14718/14724/14730/14736/14742/14748/14754/14760/
14766/14772/14778/14784/14790/14796/14802/14808/14820/14826/14838/14844/14850/14856/14862/14868/14874/14880/14886/14892/
14898/14904/14910/14916/14922/14928/14934/14940/14946/14952/14958/14964/14970/14976/14982/14988/14994/15000/15006/15012/
15018/15024/15030/15036/15048/15054/15060/15066/15072/15078/15084/15090/15096/15102/15108/15114/15120/15132/15138/15144/
15150/15156/15162/15168/15174/15180/15186/15192/15198/15204/15210/15216/15222/15228/15240/15246/15252/15258/15270/15276/
15282/15288/15300/15306/15312/15318/15330/15336/15342/15348/15360/15366/15372/15378/15390/15396/15402/15408/15414/15420/
15426/15432/15438/15444/15450/15456/15462/15468/15474/15480/15486/15492/15498/15504/15510/15516/15522/15528/15540/15546/
15552/15558/15564/15570/15576/15582/15588/15594/15600/15612/15618/15624/15630/15636/15642/15648/15654/15660/15666/15672/
15678/15690/15696/15702/15708/15714/15720/15726/15732/15738/15744/15750/15756/15762/15768/15774/15780/15786/15792/15798/
15804/15810/15822/15828/15834/15840/15846/15852/15858/15870/15876/15882/15888/15894/15900/15906/15912/15918/15930/15936/
15942/15948/15960/15966/15972/15978/15984/15990/15996/16002/16008/16014/16020/16026/16032/16038/16044/16050/16056/16062/
16068/16074/16080/16086/16092/16098/16104/16110/16116/16122/16128/16134/16140/16146/16152/16158/16164/16170/16176/16182/
16188/16194/16200/16212/16218/16224/16230/16242/16248/16254/16260/16266/16272/16278/16290/16296/16302/16308/16320/16326/
16332/16338/16344/16350/16356/16362/16368/16374/16380/16386/16392/16398/16410/16416/16422/16428/16440/16452/16458/16464/
16470/16476/16482/16488/16494/16500/16506/16512/16518/16524/16530/16548/16554/16560/16566/16572/16578/16584/16590/16596/
16602/16608/16614/16620/16626/16632/16638/16644/16650/16662/16668/16674/16680/16686/16692/16698/16710/16716/16722/16728/
16740/16746/16752/16758/16764/16770/16776/16782/16788/16794/16800/16806/16812/16818/16830/16842/16848/16860/16872/16878/
16890/16896/16902/16908/16920/16926/16932/16938/16950/16962/16968/16980/16986/16992/16998/17010/17016/17022/17028/17040/
17052/17058/17070/17076/17082/17088/17094/17100/17112/17118/17130/17136/17142/17154/17160/17166/17178/17190/17196/17202/
17208/17220/17226/17232/17238/17244/17250/17256/17262/17268/17274/17280/17292/17298/17304/17310/17316/17328/17334/17340/
17346/17352/17358/17370/17376/17382/17388/17400/17406/17412/17418/17430/17436/17442/17448/17460/17466/17472/17478/17490/
17502/17508/17514/17520/17526/17532/17538/17550/17556/17562/17568/17574/17580/17598/17610/17616/17628/17634/17640/17646/
17652/17658/17664/17670/17676/17682/17688/17694/17700/17712/17718/17724/17730/17736/17754/17766/17772/17778/17790/17808/
17820/17826/17832/17838/17850/17856/17862/17868/17874/17880/17892/17898/17904/17910/17922/17940/17946/17952/17958/17970/
17976/17982/17988/18000/18012/18018/18024/18030/18036/18042/18048/18054/18060/18066/18078/18084/18090/18102/18108/18120/
18144/18150/18156/18162/18168/18180/18198/18204/18210/18216/18222/18228/18240/18246/18252/18258/18270/18276/18282/18288/
18294/18300/18306/18312/18318/18324/18342/18348/18354/18360/18366/18384/18390/18396/18402/18408/18420/18432/18438/18444/
18450/18456/18462/18468/18474/18480/18486/18492/18498/18504/18516/18522/18528/18540/18558/18564/18582/18588/18600/18606/
18624/18630/18642/18648/18660/18672/18678/18684/18690/18696/18702/18714/18720/18732/18738/18744/18750/18762/18768/18774/
18780/18792/18804/18810/18828/18840/18852/18858/18864/18870/18876/18882/18894/18900/18912/18918/18924/18930/18942/18960/
18972/19002/19008/19020/19050/19062/19068/19092/19098/19110/19116/19140/19152/19158/19170/19182/19188/19200/19206/19212/
19230/19260/19272/19278/19290/19296/19308/19320/19350/19356/19362/19368/19392/19398/19440/19446/19488/19536/19560/19578/
19608/19626/19650/19698/19716/19788/19860/
结果显示除了如下12个数值，能被6整除的大于0的偶数被全覆盖了，这12个数如下：6，96，402，516，786，
906，1116，1146，1266，1356，3246，4206。（其他的在10000内不缺少了，仅考察10000内的）
查前面孪中数表，除了6以外，其他都不是孪中数。则孪中数除了6以外被全覆盖。

[此贴子已经被作者于2020-8-27 14:18编辑过]

Private Sub Command1_Click()
Dim a, b
a = Val(Text1)
a1 = a
Q = Val(Text2)
m = Sqr(Q)
If Right(a, 1) Mod 2 = 0 Then
a = a + 1
Else
a = a
End If
s = 0
Do While a <= m
b = a + 2
c = fenjieyinzi0(Val(a))
d = fenjieyinzi0(Val(b))
If InStr(c, "*") = 0 And InStr(d, "*") = 0 Then
s = s + 1
Print a, b, a + 1
Text3 = Text3 & "/" & a + 1 & vbCrLf
Else
s = s
End If
a = a + 2
Loop
a2 = a
s1 = s
Do While a2 <= Q
B1 = a2 + 2
c1 = fenjieyinzi0(Val(a2))
D1 = fenjieyinzi0(Val(B1))

If InStr(c1, "*") = 0 And InStr(D1, "*") = 0 Then
s1 = s1 + 1
Print a2, B1, a2 + 1
Text3 = Text3 & "/" & a2 + 1 & vbCrLf
Else
s1 = s1
End If
a2 = a2 + 2

Loop
Combo1 = a1 & "与" & Q & "之间有" & s1 & "对p,p+2素数对:" & vbCrLf & Text3
s103 = DeleteSpace1(Text3)
s103 = Mid(s103, 3)
Dim i As Integer
Dim ak(), s105, cr(), f
Set f = CreateObject("Scripting.Dictionary")
s105 = Split(s103, "/")
   j1 = UBound(s105)
   Print j1
   For k = 1 To j1
      n1 = n1 + 1
       ReDim Preserve ak(1 To n1)
      ak(n1) = s105(n1)
    Next
    Print ak(1)
     n = 0
        For k = 1 To j1
           For i = 1 To j1
             n = n + 1
             ReDim Preserve cr(1 To n)
            m = Val(ak(k)) + Val(ak(i))
            f(m) = ""
      Next
    Next
      n = 0
      m = f.Keys
      For i = 0 To f.Count - 1
          ReDim Preserve cr(1 To i + 1)
          cr(i + 1) = m(i)
      Next
     For i = 1 To UBound(cr) - 1
        For j = i + 1 To UBound(cr)
            If cr(i) > cr(j) Then
                temp = cr(j)
                cr(j) = cr(i)
                cr(i) = temp  'c数组是排序好的
            End If
        Next j
        
       ' If i Mod 20 = 0 Then
       ' s104 = s104 & temp & "/" & vbCrLf
       ' Else
       ' s104 = s104 & temp & "/"
       ' End If
    Next i
   
      For i = 1 To UBound(cr)
        If i Mod 20 = 0 Then
          s104 = s104 & cr(i) & "/" & vbCrLf
        Else
          s104 = s104 & cr(i) & "/"
        End If
     Next
         Print temp
         MsgBox "ok"
     MsgBox s104  '显示数组
Text4 = s104
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""
Form1.Cls
End Sub

Private Function fenjieyinzi0(n As String) As String
If Len(n) < 10 Then
fenjieyinzi0 = fenjieyinzi(Trim(n))
Else
Dim a
n = Trim(n)
n1 = MPC(Trim(n), 1)
a = 123
'a为明文
a1 = zzxc(Trim(n), Trim(a))
If Val(a1) > 1 Then
fenjieyinzi0 = a1 & "*"
Else
c = 999
'c为公约
Do While zzxc(Trim(n1), Trim(c)) > 1
c = Val(c - 1)
Loop
d = qniyuan(Trim(c), Trim(n1))
'd为逆元为私钥
a2 = qksmimo(Trim(a), Trim(c), Trim(n))
'a2为密文
a3 = qksmimo(Trim(a2), Trim(d), Trim(n))
If MBJC(Trim(a3), Trim(a)) = 0 Then
fenjieyinzi0 = "这是素数有" & Len(n) & "位"
Else
fenjieyinzi0 = "2*2"
End If
End If
 
 
 End If
End Function



Private Function fenjieyinzi1(a As String) As String
If Len(a) < 6 Then
fenjieyinzi1 = fenjieyinzi(Trim(a))
Else
x = 3
 Do While InStr(MCC(Trim(a), 2), "/") = 0 And MBJC(Trim(a), 4) >= 0
 
  
 If b = 0 Then
fenjieyinzi1 = fenjieyinzi1 & "2"
 b = 1
 Else
 fenjieyinzi1 = fenjieyinzi1 & "*2"
 End If
 a = MCC(Trim(a), 2)
 k = a
  
 Loop
 
Do While MBJC(Trim(a), "0001") > 0
 Do While MBJC(Trim(x), zhengchuqy(MBBC(Trim(a)))) <= 0
 Do While InStr(MCC1(Trim(a), Trim(x)), "/") = 0 And MBJC(Trim(a), MbC(Trim(x), Trim(x))) >= 0
  
 If b = 0 Then
 fenjieyinzi1 = fenjieyinzi1 & x
 b = 1
 Else
 fenjieyinzi1 = fenjieyinzi1 & "*" & x
 End If
 a = MCC1(Trim(a), Trim(x))
 Loop
  
 x = MPC1(Trim(x), 2)
 Loop
  
 k = a
 a = 1
 Loop
  
 If b = 1 Then
 fenjieyinzi1 = fenjieyinzi1 & "*" & k
 Else
 fenjieyinzi1 = "这是一个质数"
 End If
 
 End If
End Function



Private Function fenjieyinzi(sa As String) As String
Dim x, a, b
x = sa
b = Int(Sqr(Val(x)) / 2)
If x = 3 Or x = 2 Then
a = True
Else
If x Mod 2 = 0 Then
a = False
Else

For i = 3 To 2 * b + 1 Step 2
If x Mod i = 0 Then
a = False
Exit For

Else: a = True

End If
Next
End If
End If
If a = True Then
fenjieyinzi = "这是个素数"
Else
fenjieyinzi = "2*2"
End If


End Function
 Public Function DeleteSpace1(Tmp As String) As String
  '删掉字符串中的换行符和空格的程序
  Dim a As String, b As String
Dim i As Long, j As Long, k As Long

a = Tmp
b = ""
k = Len(a)
For i = 1 To k
j = Asc(Mid(a, i))
If j <> 10 And j <> 13 And j <> 32 And j <> Asc(" ") Then '最后一个百条件是全角空格
b = b & Chr(j)
End If
Next
DeleteSpace1 = b
End Function

 Private Function zzxc(sa As String, sb As String) As String
 Dim a, b, c, d, r
  a = Trim(sa)
  b = Trim(sb)
  If Len(a) < 10 And Len(b) < 10 Then
  
  If Val(a) > Val(b) Then
     c = a
     d = b
  Else
     c = b
     d = a
  End If
 Do Until Val(c) Mod Val(d) = 0
     r = c Mod d
     c = d
     d = r
  Loop
  
  Else
  
  If MBJC(Trim(a), Trim(b)) >= 1 Then
  c = a
  d = b
  Else
  c = b
  d = a
  End If
  Do Until zhengchuqyushu(MCC1(Trim(c), Trim(d))) = 0
  r = zhengchuqyushu(MCC1(Trim(c), Trim(d)))
  c = d
  d = r
  Loop
  End If
 
  
  zzxc = d
  
End Function

 Private Function qniyuan(sa As String, sb As String) As String
 Dim n, p, a, b, c, d, r
  n = Trim(sa)
  p = Trim(sb)
  a = 1
  b = 0
  c = 0
  d = 1
  If Len(n) < 10 And Len(p) < 10 Then
  
  If Val(n) > Val(p) Then
     m = n
     Q = p
     s1 = 1
  Else
     m = p
     Q = n
     s1 = 0
  End If
 Do Until Val(m) Mod Val(Q) = 0
    s = m \ Q
     r = m Mod Q
     s1 = s1 + 1
     If s1 Mod 2 = 1 Then
     a = a
     b = a * s + b
     c = c
     d = c * s + d
     Else
     b = b
     a = a + b * s
     d = d
     c = c + d * s
     End If
     m = Q
     Q = r
  Loop
  If Val(a + b * m) = p Then
  b = b
  a = a + b * (m - 1)
  d = d
  c = c + d * (m - 1)
  Else
  If Val(b + a * m) = p Then
  a = a
  b = b + a * m
  c = c
  d = d + c * m
  Else
  b = b
  a = a + b * (m - 1)
  d = d
  c = c + d * (m - 1)
  End If
  End If
 x = (a + b) Mod p
  y = (c + d) Mod n
  
  
  Else
  
  If MBJC(Trim(n), Trim(p)) >= 1 Then
  m = n
  Q = p
  s1 = 1
  Else
  m = p
  Q = n
  s1 = 0
  End If
  Do Until zhengchuqyushu(MCC1(Trim(m), Trim(Q))) = 0
  s = zhengchuqy(MCC1(Trim(m), Trim(Q)))
  r = zhengchuqyushu(MCC1(Trim(m), Trim(Q)))
  s1 = s1 + 1
  If s1 Mod 2 = 1 Then
  a = a
  b = MPC1(MbC(Trim(a), Trim(s)), Trim(b))
  c = c
  d = MPC1(MbC(Trim(c), Trim(s)), Trim(d))
  Else
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), Trim(s)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), Trim(s)))
  End If
  
  m = Q
  Q = r
  Loop
  
  If MPC1(Trim(a), MbC(Trim(b), Trim(m))) = p Then
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  Else
  If MPC1(Trim(b), MbC(Trim(a), Trim(m))) = p Then
  a = a
  b = MPC1(Trim(b), MbC(Trim(a), Trim(m)))
  c = c
  d = MPC1(Trim(d), MbC(Trim(c), Trim(m)))
  Else
  b = b
  a = MPC1(Trim(a), MbC(Trim(b), MPC(Trim(m), 1)))
  d = d
  c = MPC1(Trim(c), MbC(Trim(d), MPC(Trim(m), 1)))
  End If
  End If
Do While Left(a, 1) = "0"
    a = Mid(a, 2)
Loop
  
  End If
  
  qniyuan = a
 End Function
 
 Private Function qksmimo(sa As String, sb As String, sc As String) As String
 Dim c, e, n, d
c = Trim(sa)
e = Trim(sb)
n = Trim(sc)
d = 1
If Len(c) < 5 And Len(e) < 5 And Len(n) < 5 Then
c = Val(c): n = Val(n)
Do While e > 0
If Right(e, 1) Mod 2 = 0 Then
c = c * c Mod n
e = e / 2

Else
d = d * c Mod n
e = e - 1
End If
Loop
Else
c = c
Do While MBJC(Trim(e), 1) >= 0
If Right(e, 1) Mod 2 = 0 Then
c = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(c)), Trim(n)))
e = zhengchuqy(MCC1(Trim(e), 2))
Else
d = zhengchuqyushu(MCC1(MbC(Trim(c), Trim(d)), Trim(n)))
e = MPC(Trim(e), 1)
End If
Loop
End If

qksmimo = d
 End Function




Private Function zhengchuqyushu(sa As String) As String
If InStr(sa, "/") = 0 Then
 zhengchuqyushu = 0
 Else
 zhengchuqyushu = Mid(sa, InStr(sa, "/") + 1)
 End If
 

End Function


Private Function zhengchuqy(sa As String) As String
If InStr(sa, "/") = 0 Then
 zhengchuqy = sa
 Else
 zhengchuqy = Left(sa, InStr(sa, "/") - 1)
 End If
 

End Function


Public Function MBBC(D1 As String) As String 'kai pingfang
If Len(D1) < 10 Then
 jss = Int(Sqr(D1))
 JW = Val(D1) - (jss) ^ 2
  If JW = 0 Then
  MBBC = jss
  Else
  MBBC = jss & "/" & JW
    End If
 Else
Dim x 'shuju changdu
x = Len(D1) \ 4
D2 = String(4 - Len(D1) + 4 * x, "0") & D1
Dim a() As String
ReDim a(4 To 4 * x + 4)
Dim b() As String
ReDim b(2 To 2 * x)
Dim i, j, js
  For i = 4 To 4 * x + 4 Step 4
  
a(i) = Mid(D2, i - 3, 4)
js = Int(Sqr(Val(a(4) & a(8))))
 JW = Val(a(4) & a(8)) - (js) ^ 2
 Next
   j = 4
   Do While j <= 2 * x
   
   jws = MPC1(JW & "0000", a(2 * j + 4))
   If MBJC(Trim(jws), MbC(Trim(js), 200)) <= 0 Then
    b(j) = "00"
    Else
    jwc = Left(jws, Len(jws) - Len(MbC(Trim(js), 200)) + 2) \ Left(MbC(Trim(js), 200), 2)
    If Len(jwc) > 2 Then
     b(j) = 99
     Else
     b(j) = jwc
     End If
   
     
     Do While MBJC(Trim(jws), MbC(MPC1(b(j), MbC(Trim(js), 200)), b(j))) = -1
     
     b(j) = b(j) - 1
     
               Loop
          End If
          JW = MPC(Trim(jws), MbC(MPC1(MbC(200, Trim(js)), b(j)), b(j)))
      
     js = MPC1(MbC(Trim(js), 100), Trim(b(j)))
     
      
   j = j + 2
   If JW = 0 Then
      
   MBBC = js
   Else
   MBBC = js & "/" & JW
   End If
   Loop
   
 End If
End Function

Public Function MBJC(D1 As String, D2 As String) As String ';bijiao
If Len(D1) <= 10 And Len(D2) <= 10 Then
If Val(D1) > Val(D2) Then
MBJC = 1
Else
If Val(D1) = Val(D2) Then
MBJC = 0
Else
MBJC = -1
End If
End If
Else

If Len(D1) > Len(D2) Then
MBJC = 1
Else
If Len(D1) < Len(D2) Then
MBJC = -1
Else
If Len(D1) = Len(D2) Then
 Dim x, y
 x = Len(D1) \ 4: y = Len(D2) \ 4
 Dim a() As String, b() As String
 ReDim a(4 To 4 * x + 4)
 ReDim b(4 To 4 * y + 4)
 If Val(Left(D1, Len(D1) - 4 * x)) > Val(Left(D2, Len(D2) - 4 * y)) Then
  MBJC = 1
  Else
  If Val(Left(D1, Len(D1) - 4 * x)) < Val(Left(D2, Len(D2) - 4 * y)) Then
  MBJC = -1
  Else
  For i = 4 To 4 * x Step 4
  a(i) = Mid(D1, Len(D1) - i + 1, 4)
  b(i) = Mid(D2, Len(D2) - i + 1, 4)
  Next
  j = 4 * x
  Do While a(j) = b(j) And j >= 8
  
  j = j - 4
     Loop
     
     
   If Val(a(j)) - Val(b(j)) > 0 Then
   MBJC = 1
   Else
   If Val(a(j)) - Val(b(j)) < 0 Then
   MBJC = -1
   Else
   MBJC = 0
   End If
   
  End If
  
  
  
 End If
End If
End If
End If
End If
End If
End Function

Public Function MCC(D1 As String, D2 As String) As String ';除数少于8位的除法
If Len(D1) < Len(D2) Then
   MCC = "0" & "/" & D1
   Else
   If Len(D1) < 9 Then
    MCC = Val(D1) \ Val(D2) & "/" & Val(D1) - (Val(D1) \ Val(D2)) * Val(D2)
     If Mid(MCC, InStr(MCC, "/") + 1) = 0 Then
  MCC = Left(MCC, InStr(MCC, "/") - 1)
 Else
MCC = MCC
End If
   
    Else
   
   Dim x ';fen duan changdu
   x = Len(D1)
   
     
   
     Dim a() As String
      ReDim a(1 To x)  ';定义数组的储存空间
      For i = 1 To x Step 1  ';把被除数各位放在a()中
       a(i) = Mid(D1, i, 1)
        
      
       Next i
      Dim b() As String
      JW = 0
     ReDim b(1 To x)
     For j = 1 To x Step 1
    b(j) = Val(JW & a(j)) \ Val(D2)
      JW = Val(JW & a(j)) - Val(b(j)) * Val(D2)
       Next j
       For r = 1 To x
       If JW = 0 Then
          MCC = MCC & b(r)
          Else
          CJ = CJ & b(r)
          MCC = CJ & "/" & JW
      
    End If
   
    For i = 1 To Len(MCC)
   If Not Mid(MCC, i, 1) = "0" Then
       Exit For
   End If
Next
strtmp = Mid(MCC, i)
 If Len(strtmp) = 0 Then
 MCC = "0"
 Else
MCC = strtmp
End If
   
   Next
   
   End If
     
     End If
   
End Function
 
 Public Function MCC1(D1 As String, D2 As String) As String ';大整数的除法
Dim ss
 ss = MBJC(D1, D2)
If ss = -1 Then
 MCC1 = "0" & "/" & D1
  Else
  If ss = 0 Then
   MCC1 = 1
   Else
   If Len(D1) = Len(D2) Then
     s = Val(Left(D1, 1)) \ Val(Left(D2, 1))
 
 Do While MBJC(MbC(Trim(s), Trim(D2)), D1) = 1
  s = s - 1
  Loop
  If MBJC(MbC(Trim(s), Trim(D2)), D1) = 0 Then
   MCC1 = s
   Else
   MCC1 = s & "/" & MPC(Trim(D1), MbC(Trim(s), Trim(D2)))
 
 End If
    Else
    If Len(D2) < 9 Then
     MCC1 = MCC(D1, D2)
     Else
    Dim x, y ';定义分段长度
    x = Len(D1): y = Len(D2)
   
Dim JW, jcc, jss, jcs
 
  Dim a() As String, b() As String
  
  ReDim a(1 To x)
  ReDim b(1 To y)
  For i = 1 To x
  a(i) = Mid(D1, i, 1)
  Next
  For j = 1 To y
  b(j) = Mid(D2, j, 1)
  Next
  jcc = Val(a(1) & a(2)) \ Val(b(1) & b(2))
   
      
        
  jss = MbC(Trim(jcc), D2)
   For i1 = 1 To y
    jws = jws & a(i1)
      Next
      
      Do While MBJC(Trim(jws), Trim(jss)) = -1
      jcc = jcc - 1
      jss = MbC(Trim(jcc), D2)
      Loop
  JW = MPC(Trim(jws), Trim(jss))
  
    z = x - y
   
    Dim c() As String
    ReDim c(1 To z)
    For s = 1 To z
     If MBJC(JW & a(s + y), D2) = -1 Then
       c(s) = "0"
       Else
     jwc = Val(Left(JW & a(s + y), 3)) \ Val(Left(D2, 2))
      If Len(jwc) > 1 Then
      c(s) = "9"
       Else
        c(s) = jwc
         End If
      
     Do While MBJC(JW & a(s + y), MbC(Val(c(s)), D2)) = -1
    c(s) = Right(10000 + Val(c(s) - 1), 1)
     Loop
     End If
   
     JW = MPC(JW & a(s + y), MbC(Val(c(s)), D2))
     
    jcc = jcc & c(s)
    Next s
    If JW = 0 Then
    MCC1 = jcc
    Else
    MCC1 = jcc & "/" & JW
    End If
   
  For i = 1 To Len(MCC1)
    If Not Mid(MCC1, i, 1) = "0" Then
        Exit For
    End If
Next
strtmp = Mid(MCC1, i)
  If Len(strtmp) = 0 Then
  MCC1 = "0"
  Else
MCC1 = strtmp
 End If
   
   
   
    End If
   
   
   
   
   
  
  End If
End If
End If
End Function
Public Function MbC(D1 As String, D2 As String) As String '乘法
Dim x, y '两数长度
x = Len(D1): y = Len(D2)
Dim a() As Integer
ReDim a(1 To x + y, 1 To y)
Dim i, j, c1, C2, CJ, JW
For j = y To 1 Step -1 'D2
JW = 0 '进位清0
C2 = Mid$(D2, j, 1) '每位数
For i = x To 1 Step -1 'D1
  c1 = Mid$(D1, i, 1) '每位数
  CJ = c1 * C2 + JW '计算乘积
  c = i + j: r = y + 1 - j
  a(c, r) = CJ Mod 10 '本位
  JW = CJ \ 10 '进位
Next
a(c - 1, r) = JW
Next
Dim b() As Integer
ReDim b(1 To x + y)
JW = 0
For i = x + y To 1 Step -1
Bit = JW
For j = 1 To y
  Bit = Bit + a(i, j)
Next
b(i) = Bit Mod 10
JW = Bit \ 10
Next
If b(1) > 0 Then
MbC = MbC & b(1)
Else
MbC = MbC
End If
For i = 2 To x + y
MbC = MbC & b(i)
Next
End Function

 Public Function MPC(D1 As String, D2 As String) As String ';jianfaqi
Dim x, y ';两数长度
If Len(D1) >= Len(D2) Then
D4 = String(Len(D1) - Len(D2), "0") & D2
D3 = D1
Else
D4 = D2
D3 = String(Len(D2) - Len(D1), "0") & D1
End If
x = Len(D3): y = Len(D4)
Dim a() As Integer, B1() As Integer, c1() As Integer, E1() As Integer
ReDim a(1 To x)
ReDim B1(1 To y)
ReDim c1(1 To x)
ReDim E1(1 To x)
Dim i, j, C2, CJ, JW
For j = y To 1 Step -1 ';D2
JW = 1 ';yu jie weichuzhi
B1(j) = Mid(D4, j, 1) ';每位数
For i = x To 1 Step -1  ';D1
   a(i) = Mid(D3, i, 1) ';每位数
   c1(i) = 10 + a(i) - B1(i) - 1 + JW ';计算jia
   JW = c1(i) \ 10
   E1(i) = c1(i) Mod 10
  Next
  Next
  For r = 1 To x
  MPC = MPC & E1(r)
  For i = 1 To Len(MPC)
    If Not Mid(MPC, i, 1) = "0" Then
        Exit For
    End If
Next
strtmp = Mid(MPC, i)
  If Len(strtmp) = 0 Then
  MPC = "0"
  Else
MPC = strtmp
End If
  Next
  
  
End Function
  Public Function MPC1(D1 As String, D2 As String) As String 'jiafa
Dim x, y '两数长度

If Len(D1) >= Len(D2) Then
D4 = String(Len(D1) - Len(D2), "0") & D2
D3 = D1
Else
D4 = D2
D3 = String(Len(D2) - Len(D1), "0") & D1
End If
x = Len(D3): y = Len(D4)
Dim a() As Integer, B1() As Integer, c1() As Integer, E1() As Integer
ReDim a(1 To x)
ReDim B1(1 To y)
ReDim c1(1 To x)
ReDim E1(1 To x)
Dim i, j, C2, CJ, JW
For j = y To 1 Step -1 'D2
JW = 0 '进位清0
B1(j) = Mid$(D4, j, 1) '每位数
For i = x To 1 Step -1  'D1
   a(i) = Mid$(D3, i, 1) '每位数
   c1(i) = a(i) + B1(i) + JW '计算jia
   JW = c1(i) \ 10
   E1(i) = c1(i) Mod 10
  Next
  Next
  For r = 1 To x
  If JW = 0 Then
  MPC1 = MPC1 & E1(r)
  Else
  jc = jc & E1(r)
  MPC1 = JW & jc
  End If
  Next
  
End Function

不会快速乘法除法程序，希望老师指点！谢谢！