用VB验证哥德巴赫猜想
csu周 2009-05-22 03:55:47 题目要求:用VB验证哥德巴赫猜想(只验证偶数)。最好只对此程序进行修改,不要写新的程序。
由于本人不会VB,别人问的问题又不好拒绝,所以请教一下会的,帮忙解决一下,谢谢!
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, f As Integer
Dim p As Integer, q As Integer, t As Integer
f = 6
While f = 6
k = Val(InputBox("请输入偶数>=6"), "哥德巴赫猜想")
While k < 6 Or k / 2 <> Int(k / 2)
k = Val(InputBox("数据输入错误!!请重新输入偶数>=6"), "哥德巴赫猜想")
Wend
For i = 2 To k - 1
p = 1
For j = 2 To i - 1
If i / j = Int(i / j) Then
p = 0
End If
Next j
If p = 1 Then '说明i是素数'
t = k - 1
q = 1
For j = 2 To t - 1
If t / j = Int(t / j) Then
q = 0
Next j
If q = 1 Then '说明t也是素数'
Print k; "="; i; "+"; t
End If
Next i
f = MsgBox("继续输入吗", 4 + 32 + 0, "哥德巴赫猜想")
Wend
End Sub