几个vb小程序

ysr

3  5
5  7
11  13
17  19
29  31
41  43
59  61
71  73
101  103
107  109
137  139
149  151
179  181
191  193
197  199
227  229
239  241
269  271
281  283
311  313
347  349
419  421
431  433
461  463
521  523
569  571
599  601
617  619
641  643
659  661
809  811
821  823
827  829
857  859
881  883
1019  1021
1031  1033
1049  1051
1061  1063
1091  1093
1151  1153
1229  1231
1277  1279
1289  1291
1301  1303
1319  1321
1427  1429
1451  1453
1481  1483
1487  1489
1607  1609
1619  1621
1667  1669
1697  1699
1721  1723
1787  1789
1871  1873
1877  1879
1931  1933
1949  1951
1997  1999
2027  2029
2081  2083
2087  2089
2111  2113
2129  2131
2141  2143
2237  2239
2267  2269
2309  2311
2339  2341
2381  2383
2549  2551
2591  2593
2657  2659
2687  2689
2711  2713
2729  2731
2789  2791
2801  2803
2969  2971
2999  3001
3119  3121
3167  3169
3251  3253
3257  3259
3299  3301
3329  3331
3359  3361
3371  3373
3389  3391
3461  3463
3467  3469
3527  3529
3539  3541
3557  3559
3581  3583
3671  3673
3767  3769
3821  3823
3851  3853
3917  3919
3929  3931
4001  4003
4019  4021
4049  4051
4091  4093
4127  4129
4157  4159
4217  4219
4229  4231
4241  4243
4259  4261
4271  4273
4337  4339
4421  4423
4481  4483
4517  4519
4547  4549
4637  4639
4649  4651
4721  4723
4787  4789
4799  4801
4931  4933
4967  4969
5009  5011
5021  5023
5099  5101
5231  5233
5279  5281
5417  5419
5441  5443
5477  5479
5501  5503
5519  5521
5639  5641
5651  5653
5657  5659
5741  5743
5849  5851
5867  5869
5879  5881
6089  6091
6131  6133
6197  6199
6269  6271
6299  6301
6359  6361
6449  6451
6551  6553
6569  6571
6659  6661
6689  6691
6701  6703
6761  6763
6779  6781
6791  6793
6827  6829
6869  6871
6947  6949
6959  6961
7127  7129
7211  7213
7307  7309
7331  7333
7349  7351
7457  7459
7487  7489
7547  7549
7559  7561
7589  7591
7757  7759
7877  7879
7949  7951
8009  8011
8087  8089
8219  8221
8231  8233
8291  8293
8387  8389
8429  8431
8537  8539
8597  8599
8627  8629
8819  8821
8837  8839
8861  8863
8969  8971
8999  9001
9011  9013
9041  9043
9239  9241
9281  9283
9341  9343
9419  9421
9431  9433
9437  9439
9461  9463
9629  9631
9677  9679
9719  9721
9767  9769
9857  9859
9929  9931

ysr

23   ×   89   ×   239   ×   113   ×   49   ×   199   ×   127   ×   161   ×   73   ×   463 =372,543,329,524,168,337,087

11   ×   31   ×   59   ×   19   ×   55   ×   89   ×   71   ×   109   ×   155   ×   79   ×   179 =31,740,177,770,736,792,775

ysr

ysr 发表于 2023-11-16 17:33
3  5
5  7
11  13

10000内的孪生素数对只有此楼中只有此楼中的205对

ysr

解四次方程的代码如下：


Private Sub Command1_Click()
Dim a, b, c, d, f, g
Dim ja, jb, jc
k = DeleteSpace(Text1.Text)
ja = DeleteSpace(Text2.Text)
jb = DeleteSpace(Text3.Text)
jc = DeleteSpace(Text4.Text)
jd = DeleteSpace(Text5.Text)
sd1 = DeleteSpace(Text15.Text)
If Abs(Val(sd1)) <= 10 Then
sd = 10 + 2
Else
If Len(sd1) > 3 And Abs(Val(sd1)) > 300 Then
sd = 300 + 2
Else
sd = Int(Abs(Val(sd1))) + 2
End If
End If

a2 = zhengliys2(Trim(ja), Val(sd))
b2 = zhengliys2(Trim(jb), Val(sd))

c2 = zhengliys2(Trim(jc), Val(sd))
D2 = zhengliys2(Trim(jd), Val(sd))
k2 = zhengliys2(Trim(k), Val(sd))
If MBJC(Trim(k2), 0) = 0 Then
Text4.Text = "a 不能为 0"
   Text5.Text = "a 为 0可能已不是1元4次方程"
  Else
   
a3 = mcc2(Trim(a2), Trim(k2), Val(sd))
b3 = mcc2(Trim(b2), Trim(k2), Val(sd))
c3 = mcc2(Trim(c2), Trim(k2), Val(sd))
d3 = mcc2(Trim(D2), Trim(k2), Val(sd))
jk = 8 & String(sd, "0")
ja1 = mbc2("-4" & String(sd, "0"), Trim(b3), Val(sd))
jb1 = mpc2(mbc2(2 & String(sd, "0"), mbc2(Trim(a3), Trim(c3), Val(sd)), Val(sd)), mbc2(8 & String(sd, "0"), Trim(d3), Val(sd)))
jc1 = mpc2(mbc2(Trim(d3), mpc2(mbc2(4 & String(sd, "0"), Trim(b3), Val(sd)), mbc2(Trim(a3), Trim(a3), Val(sd))), Val(sd)), mbc2(Trim(c3), Trim(c3), Val(sd)))
y = jie3cifc(Trim(ja1), Trim(jb1), Trim(jc1), Trim(jk), Val(sd))
Y1 = zhengliys2(Trim(y), Val(sd))
End If
Text6 = zhengliys2(Trim(y), Val(sd))
Text8 = y
za = 1 & String(sd, "0")
z2 = mpc2(mpc3(mbc2(8 & String(sd, "0"), Trim(Y1), Val(sd)), mbc2(Trim(a3), Trim(a3), Val(sd))), mbc2(4 & String(sd, "0"), Trim(b3), Val(sd)))
z2 = mbbc2(qdfh(Trim(z2)), Val(sd))

zb1 = mcc2(mpc3(Trim(a3), Trim(z2)), 2 & String(sd, "0"), Val(sd))
zb2 = mcc2(mpc2(Trim(a3), Trim(z2)), 2 & String(sd, "0"), Val(sd))
zc1 = mpc3(Trim(Y1), mcc2(mpc2(mbc2(Trim(a3), Trim(Y1), Val(sd)), Trim(c3)), Trim(z2), Val(sd)))
zc2 = mpc2(Trim(Y1), mcc2(mpc2(mbc2(Trim(a3), Trim(Y1), Val(sd)), Trim(c3)), Trim(z2), Val(sd)))
y3 = jie2cifc(Trim(za), Trim(zb1), Trim(zc1), Val(sd))
y4 = jie2cifc(Trim(za), Trim(zb2), Trim(zc2), Val(sd))
Text9 = y3
Text10 = y4

Text14.Text = Text14.Text & "  输入" & ":  " & "a=" & k & ",  b=" & ja & ",  c=" & jb & ",  d=" & jc _
  & "，e=" & jd & ";  输出结果" & ":    " & "x1,2=" & Text9.Text & ",  x3,4=" & Text10.Text
End Sub