UC知道VB高手赐教！！！！
来源：百度知道 编辑：UC知道 时间：2024/06/08 06:43:06
现实100-500之间能分解为2个素数之和的所有偶数及分解出的素数
下面一段代码哪里有错误
Public Function isp(m) As Boolean
isp = True
For i = 2 To Int(Sqr(x))
If x Mod 2 = 0 Then isp = False
Next i
End Function
Private Sub Command1_Click()
For i = 100 To 500 Step 2
For o = 1 To i
n = i - o
p1 = isp(n)
p2 = isp(o)
If p1 = True And p2 = True Then Print i, n, o;
Next o, i
End Sub
下面一段代码哪里有错误
Public Function isp(m) As Boolean
isp = True
For i = 2 To Int(Sqr(x))
If x Mod 2 = 0 Then isp = False
Next i
End Function
Private Sub Command1_Click()
For i = 100 To 500 Step 2
For o = 1 To i
n = i - o
p1 = isp(n)
p2 = isp(o)
If p1 = True And p2 = True Then Print i, n, o;
Next o, i
End Sub
Public Function isp(ByVal m As Long) As Boolean
isp = True
For i = 2 To m - 1
If m Mod i = 0 Then isp = False
Next i
End Function
Private Sub Command1_Click()
Dim p1, p2 As Boolean
Dim i, n, o As Long
For i = 100 To 500 Step 2
For o = 1 To i
n = i - o
p1 = isp(n)
p2 = isp(o)
If p1 = True And p2 = True Then Text1.Text = Text1.Text & Chr(32) & i & Chr(32) & n & Chr(32) & o & Chr(13)
Next o
Next i
End Sub
这个对是对了，可是计算量太大了，要算好久.100-500有很多个的
建议你减小范围。光100就有好几个，我2.93的cpu算了好久