几个vb小程序

ysr · 发表于 2023-1-11 06:21

Private Function paixu(a As String) As String
Dim i As Integer
Dim ak(), s105, cr(), f
s103 = a
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  '显示数组
   paixu = s104
End Function
Private Function paixu1(a As String) As String
Dim i As Integer
Dim ak(), s105, cr(), f
s103 = a
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)

      For k = 1 To j1

         ReDim Preserve cr(1 To k)
         m = Val(ak(k))
         f(m) = ""
   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  '显示数组
   paixu1 = s104
End Function

Private Function paixu0(a As String, B As String) As String
Dim i As Integer
Dim ak(), s105, cr(), f, bk()
s103 = a
Set f = CreateObject("Scripting.Dictionary")
s105 = Split(s103, "/")
s205 = Split(B, "/")
j1 = UBound(s105)
j2 = UBound(s205)
Print j1
For k = 1 To j1
   n1 = n1 + 1
   ReDim Preserve ak(1 To n1)
   ak(n1) = s105(n1)
Next
For k = 1 To j2
   n2 = n2 + 1
      ReDim Preserve bk(1 To n2)
   bk(n2) = s205(n2)
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(bk(i))
         f(m) = ""
   Next
Next
   n = 0
   m = f.Keys
   For i = 0 To j1
      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  '显示数组
   paixu0 = s104
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 Right(X, 1) Mod 2 = 0 Then
a = False
Else

For i = 3 To 2 * B + 1 Step 2
If InStr(X / 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

Private Sub Command1_Click()
'李明波幂和猜想的验证程序
Dim a, B, s2
a = Val(Text1)
B = Val(Text2)
a1 = Val(a)
ja1 = 2
Do While a1 <= B And a1 ^ ja1 < 2000

s2 = s2 & "/" & a1 ^ 2

s3 = s3 & "/" & a1 ^ 3

s5 = s5 & "/" & a1 ^ 5

s6 = s6 & "/" & a1 ^ 7
s7 = s7 & "/" & a1 ^ 11
s8 = s8 & "/" & a1 ^ 13
s9 = s9 & "/" & a1 ^ 17

Do While ja2 < B And InStr(fenjieyinzi(Val(ja2)), "*") > 0
ja2 = ja2 + 1
Loop
ja1 = ja2
a1 = a1 + 1
Loop
s10 = s2 & s3 & s5 & s6 & s7 & s8 & s9
s11 = paixu(Trim(s10))
s11 = "/" & Mid(s11, 1, Len(s11) - 1)
s12 = s10 & s11
s13 = paixu0(Trim(s10), Trim(s11))
s13 = "/" & s13
s14 = s10 & s11 & s13
s15 = paixu1(Trim(s14))
s15 = Mid(s15, 2)
Text3 = s11
Combo1 = "输入：" & a & "~" & B & "输出：" & vbCrLf & s15

End Sub

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

ysr · 发表于 2023-1-11 08:50

本帖最后由 ysr 于 2023-1-11 02:46 编辑

Private Function paixu(a As String) As String
Dim i As Integer
Dim ak(), s105, cr(), f
s103 = a
Set f = CreateObject("Scripting.Dictionary")
s105 = Split(s103, "/")
j1 = UBound(s105)
Print j1
j2 = Val(2000)
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 2000
      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  '显示数组
   paixu = s104
End Function
Private Function paixu1(a As String) As String
Dim i As Integer
Dim ak(), s105, cr(), f
s103 = a
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)

      For k = 1 To j1

         ReDim Preserve cr(1 To k)
         m = Val(ak(k))
         f(m) = ""
   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  '显示数组
   paixu1 = s104
End Function

Private Function paixu0(a As String, B As String) As String
Dim i As Integer
Dim ak(), s105, cr(), f, bk()
s103 = a
Set f = CreateObject("Scripting.Dictionary")
s105 = Split(s103, "/")
s205 = Split(B, "/")
j1 = UBound(s105)
j2 = UBound(s205)
j3 = Val(2000)
If Val(j1) > 2000 Then
j1 = j3
Else
j1 = j1
End If

Print j1
For k = 1 To j1
   n1 = n1 + 1
   ReDim Preserve ak(1 To n1)
   ak(n1) = s105(n1)
Next
For k = 1 To j2
   n2 = n2 + 1
      ReDim Preserve bk(1 To n2)
   bk(n2) = s205(n2)
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(bk(i))
         f(m) = ""
   Next
Next
   n = 0
   m = f.Keys
   For i = 0 To j3
      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  '显示数组
   paixu0 = s104
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 Right(X, 1) Mod 2 = 0 Then
a = False
Else

For i = 3 To 2 * B + 1 Step 2
If InStr(X / 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

Private Sub Command1_Click()
'李明波幂和猜想的验证程序
Dim a, B, s2, js()
a = Val(Text1)
B = Val(Text2)
a1 = Val(a)
ja1 = 2
Do While a1 <= B And a1 ^ ja1 < 2000

s2 = s2 & "/" & a1 ^ 2

s3 = s3 & "/" & a1 ^ 3

s5 = s5 & "/" & a1 ^ 5

s6 = s6 & "/" & a1 ^ 7
s7 = s7 & "/" & a1 ^ 11
s8 = s8 & "/" & a1 ^ 13
s9 = s9 & "/" & a1 ^ 17
Do While ja1 > 20
js(ja1) = a1 ^ ja1
js1 = js1 & "/" & js(ja1)
Loop

Do While ja2 < B And InStr(fenjieyinzi(Val(ja2)), "*") > 0
ja2 = ja2 + 1
Loop
ja1 = ja2
a1 = a1 + 1
Loop
Dim ak(), cr()

s10 = s2 & s3 & s5 & s6 & s7 & s8 & s9 & js1
s105 = Split(s10, "/")
j1 = UBound(s105)
If Val(j1) > 2000 Then
j1 = 2000
Else
j1 = j1
End If

Print j1
For k = 1 To j1
   n1 = n1 + 1
   ReDim Preserve ak(1 To n1)
   ak(n1) = s105(n1)
Next
Print ak(1)

      For k = 1 To j1

         ReDim Preserve cr(1 To k)
         m = m & "/" & Val(ak(k))

   Next
   s10 = m
s11 = paixu(Trim(s10))
s11 = "/" & Mid(s11, 1, Len(s11) - 1)
s12 = s10 & s11
s13 = paixu0(Trim(s10), Trim(s11))
s13 = "/" & s13
s14 = s10 & s11 & s13
s15 = paixu1(Trim(s14))
s15 = Mid(s15, 2)
Text3 = s11
Combo1 = "输入：" & a & "~" & B & "输出：" & vbCrLf & s15

End Sub

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

ysr · 发表于 2023-1-11 09:37

本帖最后由 ysr 于 2023-1-11 02:53 编辑

输入：1~50输出：
/1/2/3/4/5/6/8/9/10/11/12/13/14/16/17/18/19/20/21/
22/24/25/26/27/28/29/30/31/32/33/34/35/36/37/38/40/41/42/43/
44/45/46/47/48/49/50/51/52/53/54/56/57/58/59/60/61/62/63/64/
65/66/67/68/69/70/72/73/74/75/76/77/78/79/80/81/82/83/84/85/
86/88/89/90/91/92/93/94/95/96/97/98/99/100/101/102/104/105/106/107/
108/109/110/112/113/114/115/116/117/118/120/121/122/123/124/125/126/127/128/129/
130/131/132/133/134/135/136/137/138/139/140/141/142/143/144/145/146/147/148/149/
150/151/152/153/154/155/156/157/158/159/160/161/162/163/164/165/166/168/169/170/
171/172/173/174/175/176/177/178/179/180/181/182/183/184/185/186/187/188/189/190/
191/192/193/194/195/196/197/198/199/200/201/202/203/204/205/206/207/208/209/210/
211/212/213/214/215/216/217/218/219/220/221/222/223/224/225/226/227/228/229/230/
231/232/233/234/235/236/237/238/239/240/241/242/243/244/245/246/247/248/249/250/
251/252/253/254/255/256/257/258/259/260/261/262/263/264/265/266/267/268/269/270/
271/272/273/274/275/276/277/278/279/280/281/282/283/284/285/286/287/288/289/290/
291/292/293/294/295/296/297/298/299/300/301/302/303/304/305/306/307/308/309/310/
311/312/313/314/315/316/317/318/319/320/321/322/323/324/325/326/327/328/329/330/
331/332/333/334/336/337/338/339/340/341/342/343/344/345/346/347/348/349/350/351/
352/353/354/355/356/357/358/359/360/361/362/363/364/365/366/367/368/369/370/371/
372/373/374/375/376/377/378/379/380/381/382/383/384/385/386/387/388/389/390/391/
392/393/394/395/396/397/398/399/400/401/402/403/404/405/406/407/408/409/410/411/
412/413/414/415/416/417/418/419/420/421/422/423/424/425/426/427/428/429/430/431/
432/433/434/435/436/437/438/439/440/441/442/443/444/445/446/447/448/449/450/451/
452/453/454/455/456/457/458/459/460/461/462/463/464/465/466/467/468/469/470/471/
472/473/474/475/476/477/478/479/480/481/482/483/484/485/486/487/488/489/490/491/
492/493/494/495/496/497/498/499/500/501/502/503/504/505/506/507/508/509/510/511/
512/513/514/515/516/517/518/520/521/522/523/524/525/526/527/528/529/530/531/532/
533/534/535/536/537/538/539/540/541/542/543/544/545/546/547/548/549/550/551/552/
553/554/555/556/557/558/560/561/562/563/564/565/566/567/568/569/570/571/572/573/
574/575/576/577/578/579/580/581/582/583/584/585/586/587/588/589/590/591/592/593/
594/595/596/597/598/600/601/602/603/604/605/606/607/608/609/610/611/612/613/614/
615/616/617/618/619/620/621/622/624/625/626/627/628/629/630/631/632/633/634/635/
636/637/638/639/640/641/642/643/644/645/646/647/648/649/650/651/652/653/654/655/
656/657/658/659/660/661/662/663/664/665/666/667/668/669/670/671/672/673/674/675/
676/677/678/679/680/681/682/683/684/685/686/688/689/690/691/692/693/694/696/697/
698/699/700/701/702/703/704/705/706/707/708/709/710/712/713/714/715/716/717/718/
719/720/721/722/723/724/725/726/728/729/730/731/733/734/735/736/737/738/739/740/
741/742/743/744/745/746/747/748/749/750/751/752/753/754/755/756/757/758/759/760/
761/762/763/764/765/766/767/768/769/770/771/772/773/774/775/776/777/778/779/780/
781/782/784/785/786/787/788/789/790/791/792/793/794/795/796/797/798/799/800/801/
802/803/804/805/806/807/808/809/810/811/812/813/814/815/816/817/818/819/820/821/
822/823/824/825/826/827/828/829/830/831/832/833/834/835/836/837/838/840/841/842/
843/844/845/846/847/848/849/850/851/852/853/854/855/856/857/858/859/860/861/862/
863/864/865/866/867/868/869/870/872/873/874/875/876/877/878/879/880/881/882/883/
884/885/886/888/889/890/891/892/893/894/896/897/898/899/900/901/902/903/904/905/
906/907/908/909/910/912/913/914/915/916/917/918/920/921/922/923/924/925/926/928/
929/930/931/932/933/934/935/936/937/938/939/940/941/942/943/944/945/946/947/948/
949/950/952/953/954/955/956/957/958/961/962/963/964/965/966/967/968/969/970/971/
972/973/974/975/976/977/978/979/980/981/982/983/984/985/986/987/988/989/990/991/
992/993/994/995/996/997/998/1000/1001/1002/1003/1004/1005/1006/1008/1009/1010/1011/1012/1013/
1014/1015/1016/1017/1018/1019/1020/1021/1022/1023/1024/1025/1026/1027/1028/1029/1030/1031/1032/1033/
1034/1035/1036/1037/1038/1040/1041/1042/1043/1044/1045/1046/1047/1048/1049/1050/1051/1052/1053/1054/
1055/1056/1057/1058/1059/1060/1061/1062/1063/1064/1065/1066/1067/1068/1069/1070/1072/1073/1074/1075/
1076/1077/1078/1080/1081/1082/1083/1085/1086/1087/1088/1089/1090/1091/1092/1093/1094/1095/1096/1097/
1098/1099/1100/1101/1102/1104/1105/1106/1107/1108/1109/1110/1111/1112/1113/1114/1115/1116/1117/1118/
1120/1121/1122/1123/1124/1125/1126/1128/1129/1130/1131/1132/1133/1134/1135/1136/1137/1138/1139/1140/
1141/1142/1143/1144/1145/1146/1147/1148/1149/1150/1152/1153/1154/1155/1156/1157/1158/1159/1160/1161/
1162/1163/1164/1165/1166/1167/1168/1169/1170/1171/1172/1173/1174/1176/1177/1178/1179/1180/1181/1182/
1184/1185/1186/1187/1188/1189/1190/1191/1192/1193/1194/1195/1196/1197/1198/1199/1200/1201/1202/1203/
1204/1205/1206/1207/1208/1209/1210/1211/1212/1213/1214/1215/1216/1217/1218/1219/1220/1221/1222/1223/
1224/1225/1226/1227/1228/1229/1230/1232/1233/1234/1235/1236/1237/1238/1239/1240/1241/1242/1243/1244/
1245/1246/1247/1248/1249/1250/1251/1252/1253/1254/1256/1257/1258/1259/1260/1261/1262/1263/1264/1265/
1266/1267/1268/1269/1270/1271/1272/1273/1274/1275/1276/1277/1278/1279/1281/1282/1283/1284/1285/1286/
1288/1289/1290/1291/1292/1293/1294/1295/1296/1297/1298/1299/1300/1301/1302/1303/1304/1305/1306/1307/
1308/1309/1310/1312/1313/1314/1315/1316/1317/1318/1320/1321/1322/1323/1324/1325/1326/1327/1328/1329/
1330/1331/1332/1333/1334/1335/1336/1337/1338/1339/1340/1341/1342/1344/1345/1346/1347/1348/1349/1350/
1351/1352/1353/1354/1355/1356/1357/1358/1359/1360/1361/1362/1363/1364/1365/1366/1367/1368/1369/1370/
1371/1372/1373/1374/1375/1376/1377/1378/1379/1380/1381/1382/1383/1384/1385/1386/1387/1388/1389/1390/
1392/1393/1394/1395/1396/1397/1398/1399/1400/1401/1402/1403/1404/1405/1406/1408/1409/1410/1411/1412/
1413/1414/1415/1416/1417/1418/1419/1420/1421/1422/1424/1425/1426/1427/1428/1429/1430/1431/1432/1433/
1434/1435/1436/1437/1438/1440/1441/1442/1443/1444/1445/1446/1448/1449/1450/1451/1453/1454/1456/1457/
1458/1459/1460/1461/1462/1463/1464/1465/1466/1467/1468/1469/1470/1472/1473/1474/1475/1476/1477/1478/
1480/1481/1482/1483/1484/1485/1486/1488/1489/1490/1491/1492/1493/1494/1496/1497/1498/1499/1500/1501/
1502/1503/1504/1505/1506/1507/1508/1509/1510/1512/1513/1514/1515/1516/1517/1518/1520/1521/1522/1523/
1524/1525/1526/1528/1529/1530/1531/1532/1533/1534/1535/1537/1538/1539/1540/1541/1542/1543/1544/1545/
1546/1547/1548/1549/1550/1552/1553/1554/1555/1556/1557/1558/1560/1561/1562/1563/1564/1565/1566/1568/
1569/1570/1571/1572/1573/1574/1575/1576/1577/1578/1579/1580/1581/1582/1584/1585/1586/1587/1588/1589/
1590/1592/1593/1594/1595/1598/1600/1601/1602/1603/1604/1605/1606/1609/1610/1611/1612/1613/1616/1617/
1618/1619/1620/1621/1622/1624/1625/1626/1627/1629/1630/1632/1633/1634/1635/1636/1637/1638/1640/1641/
1643/1644/1645/1646/1648/1649/1650/1651/1653/1654/1655/1656/1657/1658/1661/1662/1664/1665/1666/1667/
1669/1670/1672/1673/1674/1675/1676/1677/1678/1680/1681/1682/1683/1684/1685/1686/1688/1689/1690/1691/
1692/1693/1694/1697/1698/1699/1700/1701/1702/1703/1704/1705/1706/1707/1709/1710/1712/1713/1714/1715/
1716/1717/1718/1720/1721/1723/1725/1726/1728/1729/1730/1731/1732/1733/1734/1736/1737/1738/1739/1740/
1741/1742/1744/1745/1746/1747/1748/1749/1750/1753/1754/1755/1757/1758/1760/1761/1762/1763/1764/1765/
1766/1768/1769/1770/1771/1773/1774/1777/1778/1779/1780/1781/1782/1784/1785/1786/1788/1789/1790/1792/
1793/1794/1795/1796/1797/1800/1801/1802/1803/1804/1805/1806/1809/1810/1811/1812/1813/1814/1816/1817/
1818/1819/1820/1822/1824/1825/1826/1827/1828/1829/1830/1833/1834/1835/1836/1837/1838/1841/1842/1843/
1844/1845/1846/1848/1849/1850/1851/1853/1854/1857/1858/1859/1861/1862/1864/1865/1866/1867/1868/1869/
1870/1872/1873/1874/1875/1876/1877/1881/1882/1883/1885/1886/1888/1889/1890/1894/1896/1897/1898/1899/
1901/1902/1904/1905/1906/1908/1909/1910/1913/1914/1916/1917/1921/1922/1923/1925/1926/1928/1929/1930/
1931/1933/1934/1936/1937/1938/1939/1940/1941/1942/1944/1945/1946/1947/1949/1950/1952/1953/1954/1955/
1956/1957/1958/1960/1961/1962/1963/1964/1965/1966/1970/1971/1972/1973/1976/1977/1979/1981/1982/1985/
1986/1988/1989/1990/1993/1994/1997/1998/2000/2001/2002/2003/2004/2005/2006/2008/2010/2011/2013/2014/
2017/2018/2021/2022/2025/2026/2028/2029/2033/2034/2035/2036/2038/2040/2041/2042/2045/2046/2048/2049/
2050/2051/2052/2053/2054/2057/2058/2059/2060/2061/2064/2065/2066/2067/2070/2072/2073/2074/2075/2078/
2081/2082/2084/2086/2088/2089/2090/2091/2092/2093/2096/2097/2098/2099/2102/2105/2106/2112/2114/2115/
2116/2117/2118/2120/2121/2122/2125/2126/2129/2130/2131/2133/2134/2137/2138/2141/2142/2144/2146/2147/
2149/2150/2153/2157/2160/2161/2162/2165/2166/2170/2172/2173/2174/2177/2179/2181/2182/2184/2186/2187/
2188/2189/2190/2191/2192/2194/2195/2196/2197/2198/2200/2201/2202/2203/2205/2206/2211/2212/2213/2214/
2216/2218/2220/2221/2222/2223/2226/2227/2229/2232/2233/2234/2235/2236/2237/2241/2242/2244/2245/2246/
2249/2250/2251/2253/2254/2258/2260/2261/2265/2266/2267/2268/2270/2273/2274/2277/2278/2281/2282/2285/
2289/2293/2294/2297/2298/2300/2305/2306/2309/2312/2313/2315/2316/2318/2321/2323/2324/2329/2330/2332/
2336/2338/2339/2345/2350/2356/2360/2363/2369/2377/2378/2382/2384/2385/2386/2389/2390/2394/2401/2744/
2745/2748/2753/2760/2769/2780/2793/2808/2825/3125/3126/3129/3134/3141/3150/3161/3174/3189/3206/3375/
3376/3379/3384/3391/3400/3411/3424/3439/3456/4096/4097/4100/4105/4112/4121/4132/4145/4160/4177/4913/
4914/4917/4922/4929/4938/4949/4962/4977/4994/5832/5833/5836/5841/5848/5857/5868/5881/5896/5913/6859/
6860/6863/6868/6875/6884/6895/6908/6923/6940/7776/7777/7780/7785/7792/7801/7812/7825/7840/7857/8000/
8001/8004/8009/8016/8025/8036/8049/8064/8081/8192/8193/8196/8201/8208/8217/8228/8241/8256/9261/9262/
9265/9270/9277/9286/9297/9310/9325/9342/10648/10649/10652/10657/10664/10673/10684/10697/10712/10729/12167/12168/
12171/12176/12183/12192/12203/12216/12231/12248/13824/13825/13828/13833/13840/13849/13860/13873/13888/13905/15625/15626/
15629/15634/15641/15650/15661/15674/15689/15706/16384/16385/16388/16393/16400/16409/16420/16433/16448/16465/16807/16808/
16811/16816/16823/16832/16843/16856/16871/16888/17576/17577/17580/17585/17592/17601/17612/17625/17640/17657/19683/19684/
19687/19692/19699/19708/19719/19732/19747/19764/21952/21953/21956/21961/21968/21977/21988/22001/22016/22033/24389/24390/
24393/24398/24405/24414/24425/24438/24453/24470/27000/27001/27004/27009/27016/27025/27036/27049/27064/27081/29791/29792/
29795/29800/29807/29816/29827/29840/29855/29872/32768/32769/32772/32777/32784/32793/32804/32817/32832/32849/35937/35938/
35941/35946/35953/35962/35973/35986/36001/36018/39304/39305/39308/39313/39320/39329/39340/39353/39368/39385/42875/42876/
42879/42884/42891/42900/42911/42924/42939/42956/46656/46657/46660/46665/46672/46681/46692/46705/46720/46737/50653/50654/
50657/50662/50669/50678/50689/50702/50717/50734/54872/54873/54876/54881/54888/54897/54908/54921/54936/54953/59049/59050/
59053/59058/59065/59074/59085/59098/59113/59130/59319/59320/59323/59328/59335/59344/59355/59368/59383/59400/64000/64001/
64004/64009/64016/64025/64036/64049/64064/64081/68921/68922/68925/68930/68937/68946/68957/68970/68985/69002/74088/74089/
74092/74097/74104/74113/74124/74137/74152/74169/78125/78126/78129/78134/78141/78150/78161/78174/78189/78206/79507/79508/
79511/79516/79523/79532/79543/79556/79571/79588/85184/85185/85188/85193/85200/85209/85220/85233/85248/85265/100000/100001/
100004/100009/100016/100025/100036/100049/100064/100081/131072/131073/131076/131081/131088/131097/131108/131121/131136/161051/161052/161055/
161060/161067/161076/161087/161100/161115/161132/177147/177148/177151/177156/177163/177172/177183/177196/177211/248832/248833/248836/248841/
248848/248857/248868/248881/248896/248913/279936/279937/279940/279945/279952/279961/279972/279985/280000/280017/371293/371294/371297/371302/
371309/371318/371329/371342/371357/371374/537824/537825/537828/537833/537840/537849/537860/537873/537888/537905/759375/759376/759379/759384/
759391/759400/759411/759424/759439/759456/823543/823544/823547/823552/823559/823568/823579/823592/823607/823624/1048576/1048577/1048580/1048585/

ysr · 发表于 2023-1-11 09:37

1048592/1048601/1048612/1048625/1048640/1048657/1419857/1419858/1419861/1419866/1419873/1419882/1419893/1419906/1419921/1419938/1594323/1594324/1594327/1594332/
1594339/1594348/1594359/1594372/1594387/1889568/1889569/1889572/1889577/1889584/1889593/1889604/1889617/1889632/1889649/2097152/2097153/2097156/2097161/2097168/
2097177/2097188/2097201/2097216/2097233/2476099/2476100/2476103/2476108/2476115/2476124/2476135/2476148/2476163/2476180/3200000/3200001/3200004/3200009/3200016/
3200025/3200036/3200049/3200064/3200081/4084101/4084102/4084105/4084110/4084117/4084126/4084137/4084150/4084165/4084182/4194304/4194305/4194308/4194313/4194320/
4194329/4194340/4194353/4194368/4782969/4782970/4782973/4782978/4782985/4782994/4783005/4783018/4783033/4783050/5153632/5153633/5153636/5153641/5153648/5153657/
5153668/5153681/5153696/5153713/6436343/6436344/6436347/6436352/6436359/6436368/6436379/6436392/6436407/6436424/7962624/7962625/7962628/7962633/7962640/7962649/
7962660/7962673/7962688/7962705/9765625/9765626/9765629/9765634/9765641/9765650/9765661/9765674/9765689/9765706/10000000/10000001/10000004/10000009/10000016/10000025/
10000036/10000049/10000064/10000081/11881376/11881377/11881380/11881385/11881392/11881401/11881412/11881425/11881440/11881457/14348907/14348908/14348911/14348916/14348923/14348932/
14348943/14348956/14348971/14348988/17210368/17210369/17210372/17210377/17210384/17210393/17210404/17210417/17210432/17210449/19487171/19487172/19487175/19487180/19487187/19487196/
19487207/19487220/19487235/19487252/20511149/20511150/20511153/20511158/20511165/20511174/20511185/20511198/20511213/20511230/24300000/24300001/24300004/24300009/24300016/24300025/
24300036/24300049/24300064/24300081/28629151/28629152/28629155/28629160/28629167/28629176/28629187/28629200/28629215/28629232/33554432/33554433/33554436/33554441/33554448/33554457/
33554468/33554481/33554496/33554513/35831808/35831809/35831812/35831817/35831824/35831833/35831844/35831857/35831872/35831889/39135393/39135394/39135397/39135402/39135409/39135418/
39135429/39135442/39135457/39135474/45435424/45435425/45435428/45435433/45435440/45435449/45435460/45435473/45435488/45435505/48828125/48828126/48828129/48828134/48828141/48828150/
48828161/48828174/48828189/52521875/52521876/52521879/52521884/52521891/52521900/52521911/52521924/52521939/52521956/60466176/60466177/60466180/60466185/60466192/60466201/60466212/
60466225/60466240/60466257/62748517/62748518/62748521/62748526/62748533/62748542/62748553/62748566/62748581/62748598/67108864/67108865/67108868/67108873/67108880/67108889/67108900/
67108913/67108928/69343957/69343958/69343961/69343966/69343973/69343982/69343993/69344006/69344021/69344038/79235168/79235169/79235172/79235177/79235184/79235193/79235204/79235217/
79235232/79235249/90224199/90224200/90224203/90224208/90224215/90224224/90224235/90224248/90224263/90224280/102400000/102400001/102400004/102400009/102400016/102400025/102400036/102400049/
102400064/102400081/105413504/105413505/105413508/105413513/105413520/105413529/105413540/105413553/105413568/105413585/115856201/115856202/115856205/115856210/115856217/115856226/115856237/115856250/
115856265/115856282/129140163/129140164/129140167/129140172/129140179/129140188/129140199/129140212/129140227/130691232/130691233/130691236/130691241/130691248/130691257/130691268/130691281/130691296/
130691313/147008443/147008444/147008447/147008452/147008459/147008468/147008479/147008492/147008507/147008524/164916224/164916225/164916228/164916233/164916240/164916249/164916260/164916273/164916288/
164916305/170859375/170859376/170859379/170859384/170859391/170859400/170859411/170859424/170859439/170859456/268435456/268435457/268435460/268435465/268435472/268435481/268435492/268435505/268435520/
268435537/362797056/362797057/362797060/362797065/362797072/362797081/362797092/362797105/362797120/410338673/410338674/410338677/410338682/410338689/410338698/410338709/410338722/410338737/410338754/
612220032/612220033/612220036/612220041/612220048/612220057/612220068/612220081/612220096/612220113/893871739/893871740/893871743/893871748/893871755/893871764/893871775/893871788/893871803/893871820/
1220703125/1220703126/1220703129/1220703134/1220703141/1220703150/1220703161/1220703174/1220703189/1280000000/1280000001/1280000004/1280000009/1280000016/1280000025/1280000036/1280000049/1280000064/1280000081/1801088541/
1801088542/1801088545/1801088550/1801088557/1801088566/1801088577/1801088590/1801088605/1801088622/1977326743/1977326744/1977326747/1977326752/1977326759/1977326768/1977326779/1977326792/1977326807/2494357888/2494357889/
2494357892/2494357897/2494357904/2494357913/2494357924/2494357937/2494357952/2494357969/3404825447/3404825448/3404825451/3404825456/3404825463/3404825472/3404825483/3404825496/3404825511/3404825528/4586471424/4586471425/
4586471428/4586471433/4586471440/4586471449/4586471460/4586471473/4586471488/4586471505/6103515625/6103515626/6103515629/6103515634/6103515641/6103515650/6103515661/6103515674/6103515689/6103515706/8031810176/8031810177/
8031810180/8031810185/8031810192/8031810201/8031810212/8031810225/8031810240/8031810257/8589934592/8589934593/8589934596/8589934601/8589934608/8589934617/8589934628/8589934641/8589934656/10460353203/10460353204/10460353207/
10460353212/10460353219/10460353228/10460353239/10460353252/10460353267/10460353284/13060694016/13060694017/13060694020/13060694025/13060694032/13060694041/13060694052/13060694065/13060694080/13492928512/13492928513/13492928516/13492928521/
13492928528/13492928537/13492928548/13492928561/13492928576/13492928593/17179869184/17179869185/17179869188/17179869193/17179869200/17179869209/17179869220/17179869233/17179869248/17249876309/17249876310/17249876313/17249876318/17249876325/
17249876334/17249876345/17249876358/17249876373/17249876390/21870000000/21870000001/21870000004/21870000009/21870000016/21870000025/21870000036/21870000049/21870000064/21870000081/27512614111/27512614112/27512614115/27512614120/27512614127/
27512614136/27512614147/27512614160/27512614175/27512614192/31381059609/31381059610/31381059613/31381059618/31381059625/31381059634/31381059645/31381059658/31381059673/34359738368/34359738369/34359738372/34359738377/34359738384/34359738393/
34359738404/34359738417/34359738432/34359738449/42618442977/42618442978/42618442981/42618442986/42618442993/42618443002/42618443013/42618443026/42618443041/42618443058/52523350144/52523350145/52523350148/52523350153/52523350160/52523350169/
52523350180/52523350193/52523350208/52523350225/64339296875/64339296876/64339296879/64339296884/64339296891/64339296900/64339296911/64339296924/64339296939/64339296956/78364164096/78364164097/78364164100/78364164105/78364164112/78364164121/
78364164132/78364164145/78364164160/78364164177/94931877133/94931877134/94931877137/94931877142/94931877149/94931877158/94931877169/94931877182/94931877197/94931877214/96889010407/96889010408/96889010411/96889010416/96889010423/96889010432/
96889010443/96889010456/96889010471/100000000000/100000000001/100000000004/100000000009/100000000016/100000000025/100000000036/100000000049/100000000064/114415582592/114415582593/114415582596/114415582601/114415582608/114415582617/114415582628/114415582641/
114415582656/114415582673/137231006679/137231006680/137231006683/137231006688/137231006695/137231006704/137231006715/137231006728/137231006743/163840000000/163840000001/163840000004/163840000009/163840000016/163840000025/163840000036/163840000049/163840000064/
194754273881/194754273882/194754273885/194754273890/194754273897/194754273906/194754273917/194754273930/194754273945/230539333248/230539333249/230539333252/230539333257/230539333264/230539333273/230539333284/230539333297/230539333312/271818611107/271818611108/
271818611111/271818611116/271818611123/271818611132/271818611143/271818611156/271818611171/285311670611/285311670612/285311670615/285311670620/285311670627/285311670636/285311670647/285311670660/285311670675/319277809664/319277809665/319277809668/319277809673/
319277809680/319277809689/319277809700/319277809713/319277809728/549755813888/549755813889/549755813892/549755813897/549755813904/549755813913/549755813924/549755813937/549755813952/743008370688/743008370689/743008370692/743008370697/743008370704/743008370713/
743008370724/743008370737/743008370752/762939453125/762939453126/762939453129/762939453134/762939453141/762939453150/762939453161/762939453174/762939453189/1792160394037/1792160394038/1792160394041/1792160394046/1792160394053/1792160394062/1792160394073/1792160394086/
1792160394101/2541865828329/2541865828330/2541865828333/2541865828338/2541865828345/2541865828354/2541865828365/2541865828378/2541865828393/4049565169664/4049565169665/4049565169668/4049565169673/4049565169680/4049565169689/4049565169700/4049565169713/4049565169728/8649755859375/
8649755859376/8649755859379/8649755859384/8649755859391/8649755859400/8649755859411/8649755859424/8649755859439/10000000000000/10000000000001/10000000000004/10000000000009/10000000000016/10000000000025/10000000000036/10000000000049/10000000000064/16926659444736/16926659444737/16926659444740/
16926659444745/16926659444752/16926659444761/16926659444772/16926659444785/16926659444800/17592186044416/17592186044417/17592186044420/17592186044425/17592186044432/17592186044441/17592186044452/17592186044465/17592186044480/34271896307633/34271896307634/34271896307637/34271896307642/34271896307649/
34271896307658/34271896307669/34271896307682/34271896307697/34522712143931/34522712143932/34522712143935/34522712143940/34522712143947/34522712143956/34522712143967/34522712143980/34522712143995/64268410079232/64268410079233/64268410079236/64268410079241/64268410079248/64268410079257/64268410079268/
64268410079281/64268410079296/106993205379072/106993205379073/106993205379076/106993205379081/106993205379088/106993205379097/106993205379108/106993205379121/106993205379136/116490258898219/116490258898220/116490258898223/116490258898228/116490258898235/116490258898244/116490258898255/116490258898268/116490258898283/
204800000000000/204800000000001/204800000000004/204800000000009/204800000000016/204800000000025/204800000000036/204800000000049/204800000000064/232630513987207/232630513987208/232630513987211/232630513987216/232630513987223/232630513987232/232630513987243/232630513987256/232630513987271/302875106592253/302875106592254/
302875106592257/302875106592262/302875106592269/302875106592278/302875106592289/302875106592302/302875106592317/350277500542221/350277500542222/350277500542225/350277500542230/350277500542237/350277500542246/350277500542257/350277500542270/350277500542285/584318301411328/584318301411329/584318301411332/584318301411337/
584318301411344/584318301411353/584318301411364/584318301411377/584318301411392/793714773254144/793714773254145/793714773254148/793714773254153/793714773254160/793714773254169/793714773254180/793714773254193/793714773254208/952809757913927/952809757913928/952809757913931/952809757913936/952809757913943/952809757913952/
952809757913963/952809757913976/952809757913991/1.52168114316902E+15/1.52168114316903E+15/1.52168114316904E+15/1.52168114316905E+15/1.52168114316906E+15/1.52168114316907E+15/1.52168114316908E+15/1.94619506835938E+15/1.94619506835939E+15/1.9461950683594E+15/1.94619506835941E+15/1.94619506835942E+15/1.94619506835943E+15/1.94619506835944E+15/2.25179981368525E+15/2.25179981368526E+15/2.25179981368527E+15/
2.25179981368528E+15/2.25179981368529E+15/2.2517998136853E+15/2.25179981368531E+15/2.38418579101563E+15/2.38418579101564E+15/2.38418579101565E+15/2.38418579101566E+15/2.38418579101567E+15/2.38418579101568E+15/2.38418579101569E+15/3.67034448698778E+15/3.67034448698779E+15/3.6703444869878E+15/3.67034448698781E+15/3.67034448698782E+15/3.67034448698783E+15/3.67034448698784E+15/4.5035996273705E+15/4.50359962737051E+15/
4.50359962737052E+15/4.50359962737053E+15/4.50359962737054E+15/4.50359962737055E+15/4.50359962737056E+15/5.55906056655552E+15/5.55906056655553E+15/5.55906056655554E+15/5.55906056655555E+15/5.55906056655556E+15/5.55906056655557E+15/5.55906056655558E+15/8.29350946747187E+15/8.29350946747188E+15/8.29350946747189E+15/8.2935094674719E+15/8.29350946747191E+15/8.29350946747192E+15/8.29350946747193E+15/9.90457803290594E+15/
9.90457803290595E+15/9.90457803290596E+15/9.90457803290598E+15/9.90457803290599E+15/9.904578032906E+15/1.22005097657058E+16/1.22005097657059E+16/1.66771816996666E+16/1.66771816996667E+16/1.77147E+16/1.77147000000001E+16/2.08229648656712E+16/2.08229648656713E+16/2.54084768964048E+16/2.54084768964049E+16/3.6028797018964E+16/3.60287970189641E+16/4.20529834622571E+16/4.20529834622572E+16/5.05421065137268E+16/
5.05421065137269E+16/7.01888436380324E+16/7.01888436380325E+16/8.192E+16/8.19200000000001E+16/9.65491573730469E+16/9.6549157373047E+16/1E+17/1.31621703842267E+17/1.54472377739119E+17/1.7791762177946E+17/2.38572050223553E+17/2.82810057883083E+17/3.17475837322472E+17/4.194304E+17/5.04036361936467E+17/5.05447028499294E+17/5.50329031716248E+17/7.17368321110469E+17/8.76488338465358E+17/
9.29293739471223E+17/1.1966838812904E+18/1.49011611938477E+18/2.21861110674044E+18/2.48115287320374E+18/4.05255515301898E+18/6.50211142249795E+18/8.65041591938134E+18/1.02606287129586E+19/1.594323E+19/2.4417546297445E+19/3.04913467293312E+19/3.68934881474191E+19/5.50403539934485E+19/8.11383032455654E+19/9.85261253356934E+19/1.18272717781982E+20/1.70581728179578E+20/2.43569224216081E+20/2.95147905179353E+20/
3.4449804052281E+20/4.82880748567481E+20/6.7108864E+20/8.27240261886337E+20/9.25103102315014E+20/1.26543771843887E+21/1.71826412428229E+21/2.1859115597387E+21/2.31677999417821E+21/5.4803868577848E+21/1.31072E+22/3.00419424950817E+22/6.62499529194594E+22/1.41050039560663E+23/2.90797794982683E+23/5.82076609134674E+23/1.13382731538515E+24/2.15369396307556E+24/3.9965617985069E+24/7.25714773673007E+24/
1.29140163E+25/2.25501167741627E+25/3.86856262276681E+25/6.52735116482644E+25/1.08428035605966E+26/1.77482997121587E+26/2.8651179995807E+26/4.56487940826035E+26/7.1832526622357E+26/1.1171161218467E+27/1.7179869184E+27/2.61412026750078E+27/3.93765748671535E+27/5.87440310636042E+27/8.68351382905939E+27/

ysr · 发表于 2023-1-11 17:27

Private Sub Command1_Click()
'李明波幂和猜想的验证程序
Dim a, B, s2, js()
a = Val(Text1)
B = Val(Text2)
a1 = Val(a)
ja1 = 2
Do While a1 <= B And a1 ^ ja1 < 2000

s2 = s2 & "/" & a1 ^ ja1

's3 = s3 & "/" & a1 ^ 3

's5 = s5 & "/" & a1 ^ 5

's6 = s6 & "/" & a1 ^ 7
's7 = s7 & "/" & a1 ^ 11
's8 = s8 & "/" & a1 ^ 13
's9 = s9 & "/" & a1 ^ 17
ja2 = 3
ReDim js(1 To B)
Do While ja2 < B And a1 ^ ja2 < 5000

If InStr(fenjieyinzi(Val(ja2)), "*") = 0 Then
js(ja2) = a1 ^ ja2
js1 = js1 & "/" & js(ja2)
Else
js1 = js1
End If
ja2 = ja2 + 1
Loop

a1 = a1 + 1
Loop
Dim ak(), cr()

s10 = js1 & s2 & s5 & s6 & s7 & s8 & s9 & s3

s11 = paixu(Trim(s10))
s11 = "/" & Mid(s11, 1, Len(s11) - 1)
s12 = s10 & s11
s13 = paixu0(Trim(s10), Trim(s11))
s13 = "/" & s13
s14 = s10 & s11 & s13
s15 = paixu1(Trim(s14))
s15 = Mid(s15, 2)
Text3 = s10
Combo1 = "输入：" & a & "~" & B & "输出：" & vbCrLf & s15

End Sub

ysr · 发表于 2023-1-11 18:14

s103 = Mid(s103, 1)
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  '显示数组

ysr · 发表于 2023-1-11 20:19

输入：1~100输出：
/1/2/3/4/5/6/8/9/10/11/12/13/14/16/17/18/19/20/21/
22/24/25/26/27/28/29/30/31/32/33/34/35/36/37/38/39/40/41/42/
43/44/45/46/47/48/49/50/51/52/53/54/55/56/57/58/59/60/61/62/
63/64/65/66/67/68/69/70/71/72/73/74/75/76/77/78/79/80/81/82/
83/84/85/86/88/89/90/91/92/93/94/95/96/97/98/99/100/101/102/103/
104/105/106/107/108/109/110/112/113/114/115/116/117/118/120/121/122/123/124/125/
126/127/128/129/130/131/132/133/134/135/136/137/138/139/140/141/142/143/144/145/
146/147/148/149/150/151/152/153/154/155/156/157/158/159/160/161/162/163/164/165/
166/168/169/170/171/172/173/174/175/176/177/178/179/180/181/182/183/184/185/186/
187/188/189/190/191/192/193/194/195/196/197/198/199/200/201/202/203/204/205/206/
207/208/209/210/211/212/213/214/215/216/217/218/219/220/221/222/223/224/225/226/
227/228/229/230/231/232/233/234/235/236/237/238/239/240/241/242/243/244/245/246/
247/248/249/250/251/252/253/254/255/256/257/258/259/260/261/262/263/264/265/266/
267/268/269/270/271/272/273/274/275/276/277/278/279/280/281/282/283/284/285/286/
287/288/289/290/291/292/293/294/295/296/297/298/299/300/301/302/303/304/305/306/
307/308/309/310/311/312/313/314/315/316/317/318/319/320/321/322/323/324/325/326/
327/328/329/330/331/332/333/334/336/337/338/339/340/341/342/343/344/345/346/347/
348/349/350/351/352/353/354/355/356/357/358/359/360/361/362/363/364/365/366/367/
368/369/370/371/372/373/374/375/376/377/378/379/380/381/382/383/384/385/386/387/
388/389/390/391/392/393/394/395/396/397/398/399/400/401/402/403/404/405/406/407/
408/409/410/411/412/413/414/415/416/417/418/419/420/421/422/423/424/425/426/427/
428/429/430/431/432/433/434/435/436/437/438/439/440/441/442/443/444/445/446/447/
448/449/450/451/452/453/454/455/456/457/458/459/460/461/462/463/464/465/466/467/
468/469/470/471/472/473/474/475/476/477/478/479/480/481/482/483/484/485/486/487/
488/489/490/491/492/493/494/495/496/497/498/499/500/501/502/503/504/505/506/507/
508/509/510/511/512/513/514/515/516/517/518/519/520/521/522/523/524/525/526/527/
528/529/530/531/532/533/534/535/536/537/538/539/540/541/542/543/544/545/546/547/
548/549/550/551/552/553/554/555/556/557/558/559/560/561/562/563/564/565/566/567/
568/569/570/571/572/573/574/575/576/577/578/579/580/581/582/583/584/585/586/587/
588/589/590/591/592/593/594/595/596/597/598/599/600/601/602/603/604/605/606/607/
608/609/610/611/612/613/614/615/616/617/618/619/620/621/622/623/624/625/626/627/
628/629/630/631/632/633/634/635/636/637/638/639/640/641/642/643/644/645/646/647/
648/649/650/651/652/653/654/655/656/657/658/659/660/661/662/663/664/665/666/667/
668/669/670/671/672/673/674/675/676/677/678/679/680/681/682/683/684/685/686/687/
688/689/690/691/692/693/694/695/696/697/698/699/700/701/702/703/704/705/706/707/
708/709/710/711/712/713/714/715/716/717/718/719/720/721/722/723/724/725/726/727/
728/729/730/731/732/733/734/735/736/737/738/739/740/741/742/743/744/745/746/747/
748/749/750/751/752/753/754/755/756/757/758/759/760/761/762/763/764/765/766/767/
768/769/770/771/772/773/774/775/776/777/778/779/780/781/782/783/784/785/786/787/
788/789/790/791/792/793/794/795/796/797/798/799/800/801/802/803/804/805/806/807/
808/809/810/811/812/813/814/815/816/817/818/819/820/821/822/823/824/825/826/827/
828/829/830/831/832/833/834/835/836/837/838/839/840/841/842/843/844/845/846/847/
848/849/850/851/852/853/854/855/856/857/858/859/860/861/862/863/864/865/866/867/
868/869/870/871/872/873/874/875/876/877/878/879/880/881/882/883/884/885/886/887/
888/889/890/891/892/893/894/895/896/897/898/899/900/901/902/903/904/905/906/907/
908/909/910/911/912/913/914/915/916/917/918/919/920/921/922/923/924/925/926/927/
928/929/930/931/932/933/934/935/936/937/938/939/940/941/942/943/944/945/946/947/
948/949/950/951/952/953/954/955/956/957/958/959/960/961/962/963/964/965/966/967/
968/969/970/971/972/973/974/975/976/977/978/979/980/981/982/983/984/985/986/987/
988/989/990/991/992/993/994/995/996/997/998/999/1000/1001/1002/1003/1004/1005/1006/1007/
1008/1009/1010/1011/1012/1013/1014/1015/1016/1017/1018/1019/1020/1021/1022/1023/1024/1025/1026/1027/
1028/1029/1030/1031/1032/1033/1034/1035/1036/1037/1038/1039/1040/1041/1042/1043/1044/1045/1046/1047/
1048/1049/1050/1051/1052/1053/1054/1055/1056/1057/1058/1059/1060/1061/1062/1063/1064/1065/1066/1067/
1068/1069/1070/1071/1072/1073/1074/1075/1076/1077/1078/1079/1080/1081/1082/1083/1084/1085/1086/1087/
1088/1089/1090/1091/1092/1093/1094/1095/1096/1097/1098/1099/1100/1101/1102/1103/1104/1105/1106/1107/
1108/1109/1110/1111/1112/1113/1114/1115/1116/1117/1118/1119/1120/1121/1122/1123/1124/1125/1126/1127/
1128/1129/1130/1131/1132/1133/1134/1135/1136/1137/1138/1139/1140/1141/1142/1143/1144/1145/1146/1147/
1148/1149/1150/1151/1152/1153/1154/1155/1156/1157/1158/1159/1160/1161/1162/1163/1164/1165/1166/1167/
1168/1169/1170/1171/1172/1173/1174/1175/1176/1177/1178/1179/1180/1181/1182/1183/1184/1185/1186/1187/
1188/1189/1190/1191/1192/1193/1194/1195/1196/1197/1198/1199/1200/1201/1202/1203/1204/1205/1206/1207/
1208/1209/1210/1211/1212/1213/1214/1215/1216/1217/1218/1219/1220/1221/1222/1223/1224/1225/1226/1227/
1228/1229/1230/1231/1232/1233/1234/1235/1236/1237/1238/1239/1240/1241/1242/1243/1244/1245/1246/1247/
1248/1249/1250/1251/1252/1253/1254/1255/1256/1257/1258/1259/1260/1261/1262/1263/1264/1265/1266/1267/
1268/1269/1270/1271/1272/1273/1274/1275/1276/1277/1278/1279/1280/1281/1282/1283/1284/1285/1286/1287/
1288/1289/1290/1291/1292/1293/1294/1295/1296/1297/1298/1299/1300/1301/1302/1303/1304/1305/1306/1307/
1308/1309/1310/1311/1312/1313/1314/1315/1316/1317/1318/1319/1320/1321/1322/1323/1324/1325/1326/1327/
1328/1329/1330/1331/1332/1333/1334/1335/1336/1337/1338/1339/1340/1341/1342/1343/1344/1345/1346/1347/
1348/1349/1350/1351/1352/1353/1354/1355/1356/1357/1358/1359/1360/1361/1362/1363/1364/1365/1366/1367/
1368/1369/1370/1371/1372/1373/1374/1375/1376/1377/1378/1379/1380/1381/1382/1383/1384/1385/1386/1387/
1388/1389/1390/1392/1393/1394/1395/1396/1397/1398/1399/1400/1401/1402/1403/1404/1405/1406/1407/1408/
1409/1410/1411/1412/1413/1414/1415/1416/1417/1418/1419/1420/1421/1422/1423/1424/1425/1426/1427/1428/
1429/1430/1431/1432/1433/1434/1435/1436/1437/1438/1439/1440/1441/1442/1443/1444/1445/1446/1447/1448/
1449/1450/1451/1452/1453/1454/1456/1457/1458/1459/1460/1461/1462/1463/1464/1465/1466/1467/1468/1469/
1470/1471/1472/1473/1474/1475/1476/1477/1478/1479/1480/1481/1482/1483/1484/1485/1486/1487/1488/1489/
1490/1491/1492/1493/1494/1495/1496/1497/1498/1499/1500/1501/1502/1503/1504/1505/1506/1507/1508/1509/
1510/1511/1512/1513/1514/1515/1516/1517/1518/1519/1520/1521/1522/1523/1524/1525/1526/1527/1528/1529/
1530/1531/1532/1533/1534/1535/1536/1537/1538/1539/1540/1541/1542/1543/1544/1545/1546/1547/1548/1549/
1550/1551/1552/1553/1554/1555/1556/1557/1558/1559/1560/1561/1562/1563/1564/1565/1566/1567/1568/1569/
1570/1571/1572/1573/1574/1575/1576/1577/1578/1579/1580/1581/1582/1583/1584/1585/1586/1587/1588/1589/
1590/1591/1592/1593/1594/1595/1596/1597/1598/1599/1600/1601/1602/1603/1604/1605/1606/1608/1609/1610/
1611/1612/1613/1614/1615/1616/1617/1618/1619/1620/1621/1622/1623/1624/1625/1626/1627/1628/1629/1630/
1631/1632/1633/1634/1635/1636/1637/1638/1639/1640/1641/1642/1643/1644/1645/1646/1647/1648/1649/1650/
1651/1652/1653/1654/1655/1656/1657/1658/1659/1660/1661/1662/1663/1664/1665/1666/1667/1668/1669/1670/
1671/1672/1673/1674/1675/1676/1677/1678/1680/1681/1682/1683/1684/1685/1686/1687/1688/1689/1690/1691/
1692/1693/1694/1695/1696/1697/1698/1699/1700/1701/1702/1703/1704/1705/1706/1707/1708/1709/1710/1711/
1712/1713/1714/1715/1716/1717/1718/1719/1720/1721/1722/1723/1724/1725/1726/1727/1728/1729/1730/1731/
1732/1733/1734/1735/1736/1737/1738/1739/1740/1741/1742/1743/1744/1745/1746/1747/1748/1749/1750/1751/
1752/1753/1754/1755/1756/1757/1758/1759/1760/1761/1762/1763/1764/1765/1766/1767/1768/1769/1770/1771/
1772/1773/1774/1775/1776/1777/1778/1779/1780/1781/1782/1783/1784/1785/1786/1787/1788/1789/1790/1791/
1792/1793/1794/1795/1796/1797/1798/1799/1800/1801/1802/1803/1804/1805/1806/1807/1808/1809/1810/1811/
1812/1813/1814/1815/1816/1817/1818/1819/1820/1821/1822/1823/1824/1825/1826/1827/1828/1829/1830/1831/
1832/1833/1834/1835/1836/1837/1838/1839/1840/1841/1842/1843/1844/1845/1846/1847/1848/1849/1850/1851/
1852/1853/1854/1855/1856/1857/1858/1859/1860/1861/1862/1863/1864/1865/1866/1867/1868/1869/1870/1871/
1872/1873/1874/1875/1876/1877/1878/1879/1880/1881/1882/1883/1884/1885/1886/1887/1888/1889/1890/1891/
1892/1893/1894/1895/1896/1897/1898/1899/1900/1901/1902/1903/1904/1905/1906/1907/1908/1909/1910/1911/
1912/1913/1914/1915/1916/1917/1918/1919/1920/1921/1922/1923/1924/1925/1926/1927/1928/1929/1930/1931/
1932/1933/1934/1935/1936/1937/1938/1939/1940/1941/1942/1943/1944/1945/1946/1947/1948/1949/1950/1951/
1952/1953/1954/1955/1956/1957/1958/1959/1960/1961/1962/1963/1964/1965/1966/1967/1968/1969/1970/1971/
1972/1973/1974/1975/1976/1977/1978/1979/1980/1981/1982/1983/1984/1985/1986/1987/1988/1989/1990/1992/
1993/1994/1995/1996/1997/1998/1999/2000/2001/2002/2003/2004/2005/2006/2007/2008/2009/2010/2011/2012/
2013/2014/2015/2016/2017/2018/2019/2020/2021/2022/2023/2024/2025/2026/2027/2028/2029/2030/2031/2032/
2033/2034/2035/2036/2037/2038/2039/2040/2041/2042/2043/2044/2045/2046/2047/2048/2049/2050/2051/2052/
2053/2054/2055/2056/2057/2058/2059/2060/2061/2062/2063/2064/2065/2066/2067/2068/2069/2070/2071/2072/
2073/2074/2075/2076/2077/2078/2079/2080/2081/2082/2083/2084/2085/2086/2087/2088/2089/2090/2091/2092/
2093/2094/2095/2096/2097/2098/2099/2100/2101/2102/2103/2104/2105/2106/2107/2108/2109/2110/2111/2112/
2113/2114/2115/2116/2117/2118/2119/2120/2121/2122/2123/2124/2125/2126/2127/2128/2129/2130/2131/2132/
2133/2134/2135/2136/2137/2138/2139/2140/2141/2142/2143/2144/2145/2146/2147/2148/2149/2150/2151/2152/
2153/2154/2155/2156/2157/2158/2159/2160/2161/2162/2163/2164/2165/2166/2167/2168/2169/2170/2171/2172/
2173/2174/2175/2176/2177/2178/2179/2180/2181/2182/2183/2184/2185/2186/2187/2188/2189/2190/2191/2192/
2193/2194/2195/2196/2197/2198/2199/2200/2201/2202/2203/2204/2205/2206/2207/2208/2209/2210/2211/2212/
2213/2214/2215/2216/2217/2218/2219/2220/2221/2222/2223/2224/2225/2226/2227/2228/2229/2230/2231/2232/
2233/2234/2235/2236/2237/2238/2239/2240/2241/2242/2243/2244/2245/2246/2247/2248/2249/2250/2251/2252/
2253/2254/2255/2256/2257/2258/2259/2260/2261/2262/2263/2264/2265/2266/2267/2268/2269/2270/2271/2272/
2273/2274/2275/2276/2277/2278/2279/2280/2281/2282/2283/2284/2285/2286/2287/2288/2289/2290/2291/2292/
2293/2294/2295/2296/2297/2298/2299/2300/2301/2302/2303/2304/2305/2306/2307/2308/2309/2310/2311/2312/
2313/2314/2315/2316/2317/2318/2319/2320/2321/2322/2323/2324/2325/2326/2327/2328/2329/2330/2331/2332/
2333/2334/2335/2336/2337/2338/2339/2340/2341/2342/2343/2344/2345/2346/2347/2348/2349/2350/2351/2352/
2353/2354/2355/2356/2357/2358/2359/2360/2361/2362/2363/2364/2365/2366/2367/2368/2369/2370/2371/2372/
2373/2374/2375/2376/2377/2378/2379/2380/2381/2382/2383/2384/2385/2386/2387/2388/2389/2390/2391/2392/
2393/2394/2395/2396/2397/2398/2399/2400/2401/2402/2403/2404/2405/2406/2407/2408/2409/2410/2411/2412/
2413/2414/2415/2416/2417/2418/2419/2420/2421/2422/2423/2424/2425/2426/2427/2428/2429/2430/2431/2432/
2433/2434/2435/2436/2437/2438/2439/2440/2441/2442/2443/2444/2445/2446/2447/2448/2449/2450/2451/2452/
2453/2454/2455/2456/2457/2458/2459/2460/2461/2462/2463/2464/2465/2466/2467/2468/2469/2470/2471/2472/
2473/2474/2475/2476/2477/2478/2479/2480/2481/2482/2483/2484/2485/2486/2487/2488/2489/2490/2491/2492/
2493/2494/2495/2496/2497/2498/2499/2500/2501/2502/2503/2504/2505/2506/2507/2508/2509/2510/2511/2512/
2513/2514/2515/2516/2517/2518/2519/2520/2521/2522/2523/2524/2525/2526/2527/2528/2529/2530/2531/2532/

ysr · 发表于 2023-1-11 20:20

本帖最后由 ysr 于 2023-1-11 12:52 编辑

2533/2534/2535/2536/2537/2538/2539/2540/2541/2542/2543/2544/2545/2546/2547/2548/2549/2550/2551/2552/
2553/2554/2555/2556/2557/2558/2559/2560/2561/2562/2563/2564/2565/2566/2567/2568/2569/2570/2571/2572/
2573/2574/2575/2576/2577/2578/2579/2580/2581/2582/2583/2584/2585/2586/2587/2588/2589/2590/2591/2592/
2593/2594/2595/2596/2597/2598/2599/2600/2601/2602/2603/2604/2605/2606/2607/2608/2609/2610/2611/2612/
2613/2614/2615/2616/2617/2618/2619/2620/2621/2622/2623/2624/2625/2626/2627/2628/2629/2630/2631/2632/
2633/2634/2635/2636/2637/2638/2639/2640/2641/2642/2643/2644/2645/2646/2647/2648/2649/2650/2651/2652/
2653/2654/2655/2656/2657/2658/2659/2660/2661/2662/2663/2664/2665/2666/2667/2668/2669/2670/2671/2672/
2673/2674/2675/2676/2677/2678/2679/2680/2681/2682/2683/2684/2685/2686/2687/2688/2689/2690/2691/2692/
2693/2694/2695/2696/2697/2698/2699/2700/2701/2702/2703/2704/2705/2706/2707/2708/2709/2710/2711/2712/
2713/2714/2715/2716/2717/2718/2719/2720/2721/2722/2723/2724/2725/2726/2727/2728/2729/2730/2731/2732/
2733/2734/2735/2736/2737/2738/2739/2740/2741/2742/2743/2744/2745/2746/2747/2748/2749/2750/2751/2752/
2753/2754/2755/2756/2757/2758/2759/2760/2761/2762/2763/2764/2765/2766/2767/2768/2769/2770/2771/2772/
2773/2774/2775/2776/2777/2778/2779/2780/2781/2782/2783/2784/2785/2786/2787/2788/2789/2790/2791/2792/
2793/2794/2795/2796/2797/2798/2799/2800/2801/2802/2803/2804/2805/2806/2807/2808/2809/2810/2811/2812/
2813/2814/2815/2816/2817/2818/2819/2820/2821/2822/2823/2824/2825/2826/2827/2828/2829/2830/2831/2832/
2833/2834/2835/2836/2837/2838/2839/2840/2841/2842/2843/2844/2845/2846/2847/2848/2849/2850/2851/2852/
2853/2854/2855/2856/2857/2858/2859/2860/2861/2862/2863/2864/2865/2866/2867/2868/2869/2870/2871/2872/
2873/2874/2875/2876/2877/2878/2879/2880/2881/2882/2883/2884/2885/2886/2887/2888/2889/2890/2891/2892/
2893/2894/2895/2896/2897/2898/2899/2900/2901/2902/2903/2904/2905/2906/2907/2908/2909/2910/2911/2912/
2913/2914/2915/2916/2917/2918/2919/2920/2921/2922/2923/2924/2925/2926/2927/2928/2929/2930/2931/2932/
2933/2934/2935/2936/2937/2938/2939/2940/2941/2942/2943/2944/2945/2946/2947/2948/2949/2950/2951/2952/
2953/2954/2955/2956/2957/2958/2959/2960/2961/2962/2963/2964/2965/2966/2967/2968/2969/2970/2971/2972/
2973/2974/2975/2976/2977/2978/2979/2980/2981/2982/2983/2984/2985/2986/2987/2988/2989/2990/2991/2992/
2993/2994/2995/2996/2997/2998/2999/3000/3001/3002/3003/3004/3005/3006/3007/3008/3009/3010/3011/3012/
3013/3014/3015/3016/3017/3018/3019/3020/3021/3022/3023/3024/3025/3026/3027/3028/3029/3030/3031/3032/
3033/3034/3035/3036/3037/3038/3039/3040/3041/3042/3043/3044/3045/3046/3047/3048/3049/3050/3051/3052/
3053/3054/3055/3056/3057/3058/3059/3060/3061/3062/3063/3064/3065/3066/3067/3068/3069/3070/3071/3072/
3073/3074/3075/3076/3077/3078/3079/3080/3081/3082/3083/3084/3085/3086/3087/3088/3089/3090/3091/3092/
3093/3094/3095/3096/3097/3098/3099/3100/3101/3102/3103/3104/3105/3106/3107/3108/3109/3110/3111/3112/
3113/3114/3115/3116/3117/3118/3119/3120/3121/3122/3123/3124/3125/3126/3127/3128/3129/3130/3131/3132/
3133/3134/3135/3136/3137/3138/3139/3140/3141/3142/3143/3144/3145/3146/3147/3148/3149/3150/3151/3152/
3153/3154/3155/3156/3157/3158/3159/3160/3161/3162/3163/3164/3165/3166/3167/3168/3169/3170/3171/3172/
3173/3174/3175/3176/3177/3178/3179/3180/3181/3182/3183/3184/3185/3186/3187/3188/3189/3190/3191/3192/
3193/3194/3195/3196/3197/3198/3199/3200/3201/3202/3203/3204/3205/3206/3207/3208/3209/3210/3211/3212/
3213/3214/3215/3216/3217/3218/3219/3220/3221/3222/3223/3224/3225/3226/3227/3228/3229/3230/3231/3232/
3233/3234/3235/3236/3237/3238/3239/3240/3241/3242/3243/3244/3245/3246/3247/3248/3249/3250/3251/3252/
3253/3254/3255/3256/3257/3258/3259/3260/3261/3262/3263/3264/3265/3266/3267/3268/3269/3270/3271/3272/
3273/3274/3275/3276/3277/3278/3279/3280/3281/3282/3283/3284/3285/3286/3287/3288/3289/3290/3291/3292/
3293/3294/3295/3296/3297/3298/3299/3300/3301/3302/3303/3304/3305/3306/3307/3308/3309/3310/3311/3312/
3313/3314/3315/3316/3317/3318/3319/3320/3321/3322/3323/3324/3325/3326/3327/3328/3329/3330/3331/3332/
3333/3334/3335/3336/3337/3338/3339/3340/3341/3342/3343/3344/3345/3346/3347/3348/3349/3350/3351/3352/
3353/3354/3355/3356/3357/3358/3359/3360/3361/3362/3363/3364/3365/3366/3367/3368/3369/3370/3371/3372/
3373/3374/3375/3376/3377/3378/3379/3380/3381/3382/3383/3384/3385/3386/3387/3388/3389/3390/3391/3392/
3393/3394/3395/3396/3397/3398/3399/3400/3401/3402/3403/3404/3405/3406/3407/3408/3409/3410/3411/3412/
3413/3414/3415/3416/3417/3418/3419/3420/3421/3422/3423/3424/3425/3426/3427/3428/3429/3430/3431/3432/
3433/3434/3435/3436/3437/3438/3439/3440/3441/3442/3443/3444/3445/3446/3447/3448/3449/3450/3451/3452/
3453/3454/3455/3456/3457/3458/3459/3460/3461/3462/3463/3464/3465/3466/3467/3468/3469/3470/3471/3472/
3473/3474/3475/3476/3477/3478/3479/3480/3481/3482/3483/3484/3485/3486/3487/3488/3489/3490/3491/3492/
3493/3494/3495/3496/3497/3498/3499/3500/3501/3502/3503/3504/3505/3506/3507/3508/3509/3510/3511/3512/
3513/3514/3515/3516/3517/3518/3519/3520/3521/3522/3523/3524/3525/3526/3527/3528/3529/3530/3531/3532/
3533/3534/3535/3536/3537/3538/3539/3540/3541/3542/3543/3544/3545/3546/3547/3548/3549/3550/3551/3552/
3553/3554/3555/3556/3557/3558/3559/3560/3561/3562/3563/3564/3565/3566/3567/3568/3569/3570/3571/3572/
3573/3574/3575/3576/3577/3578/3579/3580/3581/3582/3583/3584/3585/3586/3587/3588/3589/3590/3591/3592/
3593/3594/3595/3596/3597/3598/3599/3600/3601/3602/3603/3604/3605/3606/3607/3608/3609/3610/3611/3612/
3613/3614/3615/3616/3617/3618/3619/3620/3621/3622/3623/3624/3625/3626/3627/3628/3629/3630/3631/3632/
3633/3634/3635/3636/3637/3638/3639/3640/3641/3642/3643/3644/3645/3646/3647/3648/3649/3650/3651/3652/
3653/3654/3655/3656/3657/3658/3659/3660/3661/3662/3663/3664/3665/3666/3667/3668/3669/3670/3671/3672/
3673/3674/3675/3676/3677/3678/3679/3680/3681/3682/3683/3684/3685/3686/3687/3688/3689/3690/3691/3692/
3693/3694/3695/3696/3697/3698/3699/3700/3701/3702/3703/3704/3705/3706/3707/3708/3709/3710/3711/3712/
3713/3714/3715/3716/3717/3718/3719/3720/3721/3722/3723/3724/3725/3726/3727/3728/3729/3730/3731/3732/
3733/3734/3735/3736/3737/3738/3739/3740/3741/3742/3743/3744/3745/3746/3747/3748/3749/3750/3751/3752/
3753/3754/3755/3756/3757/3758/3759/3760/3761/3762/3763/3764/3765/3766/3767/3768/3769/3770/3771/3772/
3773/3774/3775/3776/3777/3778/3779/3780/3781/3782/3783/3784/3785/3786/3787/3788/3789/3790/3791/3792/
3793/3794/3795/3796/3797/3798/3799/3800/3801/3802/3803/3804/3805/3806/3807/3808/3809/3810/3811/3812/
3813/3814/3815/3816/3817/3818/3819/3820/3821/3822/3823/3824/3825/3826/3827/3828/3829/3830/3831/3832/
3833/3834/3835/3836/3837/3838/3839/3840/3841/3842/3843/3844/3845/3846/3847/3848/3849/3850/3851/3852/
3853/3854/3855/3856/3857/3858/3859/3860/3861/3862/3863/3864/3865/3866/3867/3868/3869/3870/3871/3872/
3873/3874/3875/3876/3877/3878/3879/3880/3881/3882/3883/3884/3885/3886/3887/3888/3889/3890/3891/3892/
3893/3894/3895/3896/3897/3898/3899/3900/3901/3902/3903/3904/3905/3906/3907/3908/3909/3910/3911/3912/
3913/3914/3915/3916/3917/3918/3919/3920/3921/3922/3923/3924/3925/3926/3927/3928/3929/3930/3931/3932/
3933/3934/3935/3936/3937/3938/3939/3940/3941/3942/3943/3944/3945/3946/3947/3948/3949/3950/3951/3952/
3953/3954/3955/3956/3957/3958/3959/3960/3961/3962/3963/3964/3965/3966/3967/3968/3969/3970/3971/3972/
3973/3974/3975/3976/3977/3978/3979/3980/3981/3982/3983/3984/3985/3986/3987/3988/3989/3990/3991/3992/
3993/3994/3995/3996/3997/3998/3999/4000/4001/4002/4003/4004/4005/4006/4007/4008/4009/4010/4011/4012/
4013/4014/4015/4016/4017/4018/4019/4020/4021/4022/4023/4024/4025/4026/4027/4028/4029/4030/4031/4032/
4033/4034/4035/4036/4037/4038/4039/4040/4041/4042/4043/4044/4045/4046/4047/4048/4049/4050/4051/4052/
4053/4054/4055/4056/4057/4058/4059/4060/4061/4062/4063/4064/4065/4066/4067/4068/4069/4070/4071/4072/
4073/4074/4075/4076/4077/4078/4079/4080/4081/4082/4083/4084/4085/4086/4087/4088/4089/4090/4091/4092/
4093/4094/4095/4096/4097/4098/4099/4100/4101/4102/4103/4104/4105/4106/4107/4108/4109/4110/4111/4112/
4113/4114/4115/4116/4117/4118/4119/4120/4121/4122/4123/4124/4125/4126/4127/4128/4129/4130/4131/4132/
4133/4134/4135/4136/4137/4138/4139/4140/4141/4142/4143/4144/4145/4146/4147/4148/4149/4150/4151/4152/
4153/4154/4155/4156/4157/4158/4159/4160/4161/4162/4163/4164/4165/4166/4167/4168/4169/4170/4171/4172/
4173/4174/4175/4176/4177/4178/4179/4180/4181/4182/4183/4184/4185/4186/4187/4188/4189/4190/4191/4192/
4193/4194/4195/4196/4197/4198/4199/4200/4201/4202/4203/4204/4205/4206/4207/4208/4209/4210/4211/4212/
4213/4214/4215/4216/4217/4218/4219/4220/4221/4222/4223/4224/4225/4226/4227/4228/4229/4230/4231/4232/
4233/4234/4235/4236/4237/4238/4239/4240/4241/4242/4243/4244/4245/4246/4247/4248/4249/4250/4251/4252/
4253/4254/4255/4256/4257/4258/4259/4260/4261/4262/4263/4264/4265/4266/4267/4268/4269/4270/4271/4272/
4273/4274/4275/4276/4277/4278/4279/4280/4281/4282/4283/4284/4285/4286/4287/4288/4289/4290/4291/4292/
4293/4294/4295/4296/4297/4298/4299/4300/4301/4302/4303/4304/4305/4306/4307/4308/4309/4310/4311/4312/
4313/4314/4315/4316/4317/4318/4319/4320/4321/4322/4323/4324/4325/4326/4327/4328/4329/4330/4331/4332/
4333/4334/4335/4336/4337/4338/4339/4340/4341/4342/4343/4344/4345/4346/4347/4348/4349/4350/4351/4352/
4353/4354/4355/4356/4357/4358/4359/4360/4361/4362/4363/4364/4365/4366/4367/4368/4369/4370/4371/4372/
4373/4374/4375/4376/4377/4378/4379/4380/4381/4382/4383/4384/4385/4386/4387/4388/4389/4390/4391/4392/
4393/4394/4395/4396/4397/4398/4399/4400/4401/4402/4403/4404/4405/4406/4407/4408/4409/4410/4411/4412/
4413/4414/4415/4416/4417/4418/4419/4420/4421/4422/4423/4424/4425/4426/4427/4428/4429/4430/4431/4432/
4433/4434/4435/4436/4437/4438/4439/4440/4441/4442/4443/4444/4445/4446/4447/4448/4449/4450/4451/4452/
4453/4454/4455/4456/4457/4458/4459/4460/4461/4462/4463/4464/4465/4466/4467/4468/4469/4470/4471/4472/
4473/4474/4475/4476/4477/4478/4479/4480/4481/4482/4483/4484/4485/4486/4487/4488/4489/4490/4491/4492/
4493/4494/4495/4496/4497/4498/4499/4500/4501/4502/4503/4504/4505/4506/4507/4508/4509/4510/4511/4512/
4513/4514/4515/4516/4517/4518/4519/4520/4521/4522/4523/4524/4525/4526/4527/4528/4529/4530/4531/4532/
4533/4534/4535/4536/4537/4538/4539/4540/4541/4542/4543/4544/4545/4546/4547/4548/4549/4550/4551/4552/
4553/4554/4555/4556/4557/4558/4559/4560/4561/4562/4563/4564/4565/4566/4567/4568/4569/4570/4571/4572/
4573/4574/4575/4576/4577/4578/4579/4580/4581/4582/4583/4584/4585/4586/4587/4588/4589/4590/4591/4592/
4593/4594/4595/4596/4597/4598/4599/4600/4601/4602/4603/4604/4605/4606/4607/4608/4609/4610/4611/4612/
4613/4614/4615/4616/4617/4618/4619/4620/4621/4622/4623/4624/4625/4626/4627/4628/4629/4630/4631/4632/
4633/4634/4635/4636/4637/4638/4639/4640/4641/4642/4643/4644/4645/4646/4647/4648/4649/4650/4651/4652/
4653/4654/4655/4656/4657/4658/4659/4660/4661/4662/4663/4664/4665/4666/4667/4668/4669/4670/4671/4672/
4673/4674/4675/4676/4677/4678/4679/4680/4681/4682/4683/4684/4685/4686/4687/4688/4689/4690/4691/4692/
4693/4694/4695/4696/4697/4698/4699/4700/4701/4702/4703/4704/4705/4706/4707/4708/4709/4710/4711/4712/
4713/4714/4715/4716/4717/4718/4719/4720/4721/4722/4723/4724/4725/4726/4727/4728/4729/4730/4731/4732/
4733/4734/4735/4736/4737/4738/4739/4740/4741/4742/4743/4744/4745/4746/4747/4748/4749/4750/4751/4752/
4753/4754/4755/4756/4757/4758/4759/4760/4761/4762/4763/4764/4765/4766/4767/4768/4769/4770/4771/4772/
4773/4774/4775/4776/4777/4778/4779/4780/4781/4782/4783/4784/4785/4786/4787/4788/4789/4790/4791/4792/
4793/4794/4795/4796/4797/4798/4799/4800/4801/4802/4803/4804/4805/4806/4807/4808/4809/4810/4811/4812/
4813/4814/4815/4816/4817/4818/4819/4820/4821/4822/4823/4824/4825/4826/4827/4828/4829/4830/4831/4832/
4833/4834/4835/4836/4837/4838/4839/4840/4841/4842/4843/4844/4845/4846/4847/4848/4849/4850/4851/4852/
4853/4854/4855/4856/4857/4858/4859/4860/4861/4862/4863/4864/4865/4866/4867/4868/4869/4870/4871/4872/
4873/4874/4875/4876/4877/4878/4879/4880/4881/4882/4883/4884/4885/4886/4887/4888/4889/4890/4891/4892/
4893/4894/4895/4896/4897/4898/4899/4900/4901/4902/4903/4904/4905/4906/4907/4908/4909/4910/4911/4912/
4913/4914/4915/4916/4917/4918/4919/4920/4921/4922/4923/4924/4925/4926/4927/4928/4929/4930/4931/4932/
4933/4934/4935/4936/4937/4938/4939/4940/4941/4942/4943/4944/4945/4946/4947/4948/4949/4950/4951/4952/
4953/4954/4955/4956/4957/4958/4959/4960/4961/4962/4963/4964/4965/4966/4967/4968/4969/4970/4971/4972/
4973/4974/4975/4976/4977/4978/4979/4980/4981/4982/4983/4984/4985/4986/4987/4988/4989/4990/4991/4992/
4993/4994/4995/4996/4997/4998/4999/5000/5001/5002/5003/5004/5005/5006/5007/5008/5009/5010/5011/5012/
5013/5014/5015/5016/5017/5018/5019/5020/5021/5022/5023/5024/5025/5026/5027/5028/5029/5030/5031/5032/
5033/5034/5035/5036/5037/5038/5039/5040/5041/5042/5043/5044/5045/5046/5047/5048/5049/5050/5051/5052/
5053/5054/5055/5056/5057/5058/5059/5060/5061/5062/5063/5064/5065/5066/5067/5068/5069/5070/5071/5072/
5073/5074/5075/5076/5077/5078/5079/5080/5081/5082/5083/5084/5085/5086/5087/5088/5089/5090/5091/5092/
5093/5094/5095/5096/5097/5098/5099/5100/5101/5102/5103/5104/5105/5106/5107/5108/5109/5110/5111/5112/
5113/5114/5115/5116/5117/5118/5119/5120/5121/5122/5123/5124/5125/5126/5127/5128/5129/5130/5131/5132/
5133/5134/5135/5136/5137/5138/5139/5140/5141/5142/5143/5144/5145/5146/5147/5148/5149/5150/5151/5152/
5153/5154/5155/5156/5157/5158/5159/5160/5161/5162/5163/5164/5165/5166/5167/5168/5169/5170/5171/5172/
5173/5174/5175/5176/5177/5178/5179/5180/5181/5182/5183/5184/5185/5186/5187/5188/5189/5190/5191/5192/
5193/5194/5195/5196/5197/5198/5199/5200/5201/5202/5203/5204/5205/5206/5207/5208/5209/5210/5211/5212/
5213/5214/5215/5216/5217/5218/5219/5220/5221/5222/5223/5224/5225/5226/5227/5228/5229/5230/5231/5232/
5233/5234/5235/5236/5237/5238/5239/5240/5241/5242/5243/5244/5245/5246/5247/5248/5249/5250/5251/5252/
5253/5254/5255/5256/5257/5258/5259/5260/5261/5262/5263/5264/5265/5266/5267/5268/5269/5270/5271/5272/
5273/5274/5275/5276/5277/5278/5279/5280/5281/5282/5283/5284/5285/5286/5287/5288/5289/5290/5291/5292/
5293/5294/5295/5296/5297/5298/5299/5300/5301/5302/5303/5304/5305/5306/5307/5308/5309/5310/5311/5312/
5313/5314/5315/5316/5317/5318/5319/5320/5321/5322/5323/5324/5325/5326/5327/5328/5329/5330/5331/5332/
5333/5334/5335/5336/5337/5338/5339/5340/5341/5342/5343/5344/5345/5346/5347/5348/5349/5350/5351/5352/
5353/5354/5355/5356/5357/5358/5359/5360/5361/5362/5363/5364/5365/5366/5367/5368/5369/5370/5371/5372/
5373/5374/5375/5376/5377/5378/5379/5380/5381/5382/5383/5384/5385/5386/5387/5388/5389/5390/5391/5392/
5393/5394/5395/5396/5397/5398/5399/5400/5401/5402/5403/5404/5405/5406/5407/5408/5409/5410/5411/5412/
5413/5414/5415/5416/5417/5418/5419/5420/5421/5422/5423/5424/5425/5426/5427/5428/5429/5430/5431/5432/
5433/5434/5435/5436/5437/5438/5439/5440/5441/5442/5443/5444/5445/5446/5447/5448/5449/5450/5451/5452/
5453/5454/5455/5456/5457/5458/5459/5460/5461/5462/5463/5464/5465/5466/5467/5468/5469/5470/5471/5472/
5473/5474/5475/5476/5477/5478/5479/5480/5481/5482/5483/5484/5485/5486/5487/5488/5489/5490/5491/5492/
5493/5494/5495/5496/5497/5498/5499/5500/5501/5502/5503/5504/5505/5506/5507/5508/5509/5510/5511/5512/
5513/5514/5515/5516/5517/5518/5519/5520/5521/5522/5523/5524/5525/5526/5527/5528/5529/5530/5531/5532/
5533/5534/5535/5536/5537/5538/5539/5540/5541/5542/5543/5544/5545/5546/5547/5548/5549/5550/5551/5552/
5553/5554/5555/5556/5557/5558/5559/5560/5561/5562/5563/5564/5565/5566/5567/5568/5569/5570/5571/5572/
5573/5574/5575/5576/5577/5578/5579/5580/5581/5582/5583/5584/5585/5586/5587/5588/5589/5590/5591/5592/
5593/5594/5595/5596/5597/5598/5599/5600/5601/5602/5603/5604/5605/5606/5607/5608/5609/5610/5611/5612/
5613/5614/5615/5616/5617/5618/5619/5620/5621/5622/5623/5624/5625/5626/5627/5628/5629/5630/5631/5632/
5633/5634/5635/5636/5637/5638/5639/5640/5641/5642/5643/5644/5645/5646/5647/5648/5649/5650/5651/5652/
5653/5654/5655/5656/5657/5658/5659/5660/5661/5662/5663/5664/5665/5666/5667/5668/5669/5670/5671/5672/
5673/5674/5675/5676/5677/5678/5679/5680/5681/5682/5683/5684/5685/5686/5687/5688/5689/5690/5691/5692/
5693/5694/5695/5696/5697/5698/5699/5700/5701/5702/5703/5704/5705/5706/5707/5708/5709/5710/5711/5712/
5713/5714

ysr · 发表于 2023-1-11 20:21

本帖最后由 ysr 于 2023-1-11 12:49 编辑

Private Function paixu(a As String) As String
Dim i As Integer
Dim ak(), s105, cr(), f
s103 = a
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  '显示数组
   paixu = s104
End Function
Private Function paixu1(a As String) As String
Dim i As Integer
Dim ak(), s105, cr(), f
s103 = a
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

         ReDim Preserve cr(1 To k)
         m = Val(ak(k))
         f(m) = ""

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  '显示数组
   paixu1 = s104
End Function

Private Function paixu0(a As String, B As String) As String
Dim i As Integer
Dim ak(), s105, cr(), f, bk()
s103 = a
Set f = CreateObject("Scripting.Dictionary")
s105 = Split(s103, "/")
s205 = Split(B, "/")
j1 = UBound(s105)
j2 = UBound(s205)
Print j1
For k = 1 To j1
   n1 = n1 + 1
   ReDim Preserve ak(1 To n1)
   ak(n1) = s105(n1)
Next
For k = 1 To j2
   n2 = n2 + 1
      ReDim Preserve bk(1 To n2)
   bk(n2) = s205(n2)
Next
Print ak(1)
   n = 0
      For k = 1 To j1
         For i = 1 To j2
         n = n + 1
         ReDim Preserve cr(1 To n)
         m = Val(ak(k)) + Val(bk(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  '显示数组
   paixu0 = s104
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 Right(X, 1) Mod 2 = 0 Then
a = False
Else

For i = 3 To 2 * B + 1 Step 2
If InStr(X / 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

Private Function paixu2(a As String, B As String) As String

Dim s1() As String, s2() As String, s3() As Long, i&, j&, k&, s4, bk(), s5
s10 = a
s11 = B
s1 = Split(s10, "/")
s2 = Split(s11, "/")
ReDim s3(1 To Val(s1(UBound(s1))) + Val(s2(UBound(s2))))
For i = 1 To UBound(s1)
For j = 1 To UBound(s2)
s3(Val(s1(i)) + Val(s2(j))) = 1
Next j, i
ReDim s1(UBound(s3))
For i = 1 To UBound(s3)
If s3(i) Then s1(k) = i: k = k + 1
Next
ReDim Preserve s1(k - 1)
s4 = Join(s1, "/")
s5 = "/" & Mid(s4, 1)
s205 = Split(s5, "/")
j2 = UBound(s205)
For k = 1 To j2

      ReDim Preserve bk(1 To j2)
   bk(k) = s205(k)
   Print bk(k)
Next

For i = 1 To j2
      If i Mod 20 = 0 Then
      s104 = s104 & bk(i) & "/" & vbCrLf
      Else
      s104 = s104 & bk(i) & "/"
      End If
   Next
paixu2 = s104
End Function

Private Sub Command1_Click()
'李明波幂和猜想的验证程序
Dim a, B, s2, js()
a = Val(Text1)
B = Val(Text2)
a1 = Val(a)
ja1 = 2
Do While a1 <= B And a1 ^ ja1 < 5000

s2 = s2 & "/" & a1 ^ ja1

's3 = s3 & "/" & a1 ^ 3

's5 = s5 & "/" & a1 ^ 5

's6 = s6 & "/" & a1 ^ 7
's7 = s7 & "/" & a1 ^ 11
's8 = s8 & "/" & a1 ^ 13
's9 = s9 & "/" & a1 ^ 17
ja2 = 3
ReDim js(1 To B)
Do While ja2 < B And a1 ^ ja2 < 5000

If InStr(fenjieyinzi(Val(ja2)), "*") = 0 Then
js(ja2) = a1 ^ ja2
js1 = js1 & "/" & js(ja2)
Else
js1 = js1
End If
ja2 = ja2 + 1
Loop

a1 = a1 + 1
Loop
Dim ak(), cr()

s10 = js1 & s2 & s5 & s6 & s7 & s8 & s9 & s3

s11 = paixu(Trim(s10))
s11 = "/" & Mid(s11, 1, Len(s11) - 1)
s12 = s10 & s11
s13 = paixu0(Trim(s10), Trim(s11))
s13 = "/" & s13
s14 = s10 & s11 & s13
s15 = paixu1(Trim(s14))
s15 = Mid(s15, 2)
Text3 = s15
Combo1 = "输入：" & a & "~" & B & "输出：" & vbCrLf & s15

End Sub

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

ysr · 发表于 2023-1-11 20:22

Private Sub Command1_Click()
'验证李明波幂和猜想的程序
Dim a, b
a = Val(Text1)
b = Val(Text2)
a1 = a
Do While a <= b
q = a ^ (1 / 2)
a2 = 2
Do While InStr(Log(a) / Log(a2), ".") > 0 And a2 < q
a2 = a2 + 1
Loop

r = Log(a) / Log(a2)
a3 = a - Int(q) ^ 2
If InStr(r, ".") = 0 Then
Text3 = Text3 & a & "=" & a2 & "^" & r & vbCrLf
ElseIf a3 = 1 Then
Text3 = Text3 & a & "=" & Int(q) & "^" & 2 & "+1" & vbCrLf
ElseIf a3 = 2 Then
Text3 = Text3 & a & "=" & Int(q) & "^" & 2 & "+1+1" & vbCrLf
Else
q1 = Sqr(Val(a3))
a2 = 2
Do While InStr(Log(a3) / Log(a2), ".") > 0 And a2 < q1
a2 = a2 + 1
Loop
r1 = Log(a3) / Log(a2)
a4 = a - Int(q) ^ 2 - Int(q1) ^ 2
If InStr(r1, ".") = 0 Then
Text3 = Text3 & a & "=" & Int(q) & "^2" & "+" & a2 & "^" & r1 & vbCrLf
ElseIf a4 = 1 Then
Text3 = Text3 & a & "=" & Int(q) & "^2" & "+" & Int(q1) & "^" & 2 & "+1" & vbCrLf
Else
q2 = Sqr(Val(a4))
a2 = 2
Do While InStr(Log(a4) / Log(a2), ".") > 0 And a2 < q2
a2 = a2 + 1
Loop
r2 = Log(a4) / Log(a2)
If a4 = 2 Then
js = ksm6(Trim(a), Val(s))
If InStr(js, "+") = 0 Then
s = s + 1
Text3 = Text3 & a & "=无解" & vbCrLf
Else
Text3 = Text3 & js & vbCrLf
End If
ElseIf InStr(r2, ".") = 0 Then
Text3 = Text3 & a & "=" & Int(q) & "^2" & "+" & Int(q1) & "^2+" & a2 & "^" & r2 & vbCrLf

Else

js = ksm6(Trim(a), Val(s))
If InStr(js, "+") = 0 Then
a4 = a - 1
a2 = 2
Do While InStr(Log(a4) / Log(a2), ".") > 0 And a2 < q
a2 = a2 + 1
Loop
r1 = Log(a4) / Log(a2)
If InStr(r1, ".") = 0 Then
Text3 = Text3 & a & "=" & "1+" & a2 & "^" & r1 & vbCrLf
Else
a5 = a - 2
a2 = 2
Do While InStr(Log(a5) / Log(a2), ".") > 0 And a2 < q
a2 = a2 + 1
Loop
r2 = Log(a5) / Log(a2)
If InStr(r2, ".") = 0 Then
Text3 = Text3 & a & "=" & "1+1+" & a2 & "^" & r2 & vbCrLf
Else
ja1 = 2
jc = ksm5(Trim(a), Trim(q))
If InStr(jc, "无解") > 0 Then
s = s + 1
Text3 = Text3 & a & "=无解" & vbCrLf
Else
Text3 = Text3 & jc
End If

End If
End If
Else
Text3 = Text3 & js & vbCrLf
End If
End If
End If
End If
a = a + 1
Loop

Combo1 = a1 & "~" & b & "之间，有" & Val(s) & "个无解：" & vbCrLf & Text3

End Sub

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

End Sub

Private Function ksm6(sa As String, sb As String) As String '某数的快速幂程序
Dim a, b
a = Val(sa)
s = Val(sb)
a1 = a
ja = 2
b = Int(Log(a) / Log(3))
Do Until ja > b
a3 = a - 3 ^ ja

If a3 = 1 Then
ksm = a & "=" & 3 & "^" & ja & "+1" & "  "
ElseIf a3 = 2 Then
ksm = a & "=" & 3 & "^" & ja & "+1+1" & "  "
Else
q1 = Sqr(Val(a3))
a2 = 2
Do While InStr(Log(a3) / Log(a2), ".") > 0 And a2 < q1
a2 = a2 + 1
Loop
r1 = Log(a3) / Log(a2)
a5 = a2
a4 = a3 - Int(Sqr(a3)) ^ 2
If a4 = 1 Then
ksm = a & "=3^" & ja & "+" & a2 & "^" & Int(r1) & "+1" & "  "
ElseIf InStr(r1, ".") = 0 Then
ksm = a & "=3^" & ja & "+" & a2 & "^" & r1 & "  "

Else
q2 = Sqr(Val(a4))
a2 = 2
Do While InStr(Log(a4) / Log(a2), ".") > 0 And a2 < q2
a2 = a2 + 1
Loop
r2 = Log(a4) / Log(a2)
If Val(r2) = 1 Then
ksm = ksm
ElseIf InStr(r2, ".") = 0 Then
ksm = a & "=3^" & ja & "+" & Int(Sqr(a3)) & "^" & 2 & "+" & a2 & "^" & r2 & "  "
Else

s = s + 1
ksm = a & "=无解" & vbCrLf
End If
End If
End If

If InStr(ksm, "+") > 0 Then
ksm6 = ksm6 & ksm
Else
ksm6 = 无解
End If
ja = ja + 1
Loop

End Function
Private Function ksm5(sa As String, sb As String) As String '某数的快速幂程序
Dim a, q
a = Val(sa)
q = Val(sb)
ja1 = 2
Do While ja1 < q
For i = ja1 To Int(q) Step 1
If InStr(ksm4(Trim(a), Val(i)), "+") = 0 Then
ah = False
Exit For

Else: ah = True
js = ksm4(Trim(a), Val(i))
End If
Next

If ah = True Then
s = s + 1
m5 = m5 & a & "=无解" & vbCrLf
Else
If InStr(js, "+") = 0 Then
m5 = m5
Else
s1 = s1 + 1
m5 = m5 & js & vbCrLf
End If
End If
ja1 = ja1 + 1
Loop

If s1 > 0 Then
ksm5 = m5
Else
ksm5 = ksm5 & a & "=无解" & vbCrLf
End If
End Function
Private Function ksm4(sa As String, sb As String) As String '某数的快速幂程序
Dim a, b
a = Val(sa)
ja1 = Val(sb)
a1 = a
ja = 2
b = Int(Log(a) / Log(ja1))
Do Until ja > b
a3 = a - ja1 ^ ja

If a3 = 1 Then
ksm = a & "=" & ja1 & "^" & ja & "+1" & "  "
ElseIf a3 = 2 Then
ksm = a & "=" & ja1 & "^" & ja & "+1+1" & "  "
Else
q1 = Sqr(Val(a3))
a2 = 2
Do While InStr(Log(a3) / Log(a2), ".") > 0 And a2 < q1
a2 = a2 + 1
Loop
r1 = Log(a3) / Log(a2)
a5 = a2
a4 = a3 - Int(Sqr(a3)) ^ 2
If a4 = 1 Then
ksm = a & "=" & ja1 & "^" & ja & "+" & Int(Sqr(a3)) & "^" & 2 & "+1" & "  "
ElseIf InStr(r1, ".") = 0 Then
ksm = a & "=" & ja1 & "^" & ja & "+" & a2 & "^" & r1 & "  "

Else
q2 = Sqr(Val(a4))
a2 = 2
Do While InStr(Log(a4) / Log(a2), ".") > 0 And a2 < q2
a2 = a2 + 1
Loop
r2 = Log(a4) / Log(a2)
If InStr(r2, ".") = 0 And r2 <> 1 Then
ksm = a & "=" & ja1 & "^" & ja & "+" & Int(Sqr(a3)) & "^" & 2 & "+" & a2 & "^" & r2 & "  "
Else

s = s + 1
ksm = a & "=无解"
End If
End If
End If

If InStr(ksm, "无解") > 0 Then
ksm4 = 无解
Else
ksm4 = ksm4 & ksm
End If
ja = ja + 1
Loop

End Function

		自动登录	找回密码
密码			注册