|
|
楼主 |
发表于 2020-9-26 07:13
|
显示全部楼层
重发一下代码：（这是完整代码），（30页299#楼也有。）
Private Function fenjieyinzi(sa As String) As String
Dim x, a, b, k As String
a = Val(sa)
x = 3
If a <= 1 Or a > Int(a) Then
If a = 1 Then
fenjieyinzi = "它既不是质数，也不是合数"
Else
MsgBox "error"
End If
Else
Do While a / 2 = Int(a / 2) And a >= 4
If b = 0 Then
fenjieyinzi = fenjieyinzi & "2"
b = 1
Else
fenjieyinzi = fenjieyinzi & "*2"
End If
a = a / 2
k = a
Loop
Do While a > 1
Do While x <= Sqr(a)
Do While a / x = Int(a / x) And a >= x * x
If b = 0 Then
fenjieyinzi = fenjieyinzi & x
b = 1
Else
fenjieyinzi = fenjieyinzi & "*" & x
End If
a = a / x
Loop
x = x + 2
Loop
k = a
a = 1
Loop
If b = 1 Then
fenjieyinzi = fenjieyinzi & "*" & k
Else
fenjieyinzi = "这是一个质数"
End If
End If
End Function
Private Sub Command1_Click()
Dim a, b
a = Val(Text1)
a3 = a
q = Val(Text2)
Do While a <= q
s = 0
m = Sqr(a)
a1 = 3
Do While a1 <= m
b = a - a1
c = fenjieyinzi(Val(a1))
d = fenjieyinzi(Val(b))
If InStr(c, "*") = 0 And InStr(d, "*") = 0 Then
s = s + 1
Else
s = s
End If
a1 = a1 + 2
Loop
a2 = a1
s1 = s
Do While a2 <= a / 2
B1 = a - a2
c1 = fenjieyinzi(Val(a2))
D1 = fenjieyinzi(Val(B1))
If InStr(c1, "*") = 0 And InStr(D1, "*") = 0 Then
s1 = s1 + 1
Else
s1 = s1
End If
a2 = a2 + 2
Loop
Text3 = Text3 & CStr(a) & " " & CStr(s) & " " & CStr(s1) & vbCrLf
Print a, s, s1
s2 = s2 & "/" & s
If s = 0 Then s5 = s5 & CStr(a) & " " & CStr(s) & " " & CStr(s1) & vbCrLf: s7 = s7 + 1
a = a + 2
Loop
s3 = Mid(s2, 2)
s4 = min(Trim(s3))
s6 = "（偶数） （偶数方根内的素数和对个数） （总素数和对个数）"
s8 = "含有0个小根拆的偶数有" & s7 & "个分别如下："
Combo1.Text = "偶数" & a3 & "和" & q & "之间的偶数的方根内最少拆分个数为：" & s4 & "， 分别列表如下：" & vbCrLf & s6 & vbCrLf & Text3.Text
Text4 = s8 & vbCrLf & s5
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Combo1 = ""
Form1.Cls
End Sub
Private Function min(ByVal lists As String) As String
Dim temp As Long
Dim a() As String
a = Split(lists, "/")
Dim b As Long
temp = a(0)
For b = 0 To UBound(a)
If temp > a(b) Then temp = a(b)
Next
min = temp
End Function
|
|
IP卡
狗仔卡
显身卡