作业帮 > 综合 > 作业

急求:VB编程验证歌德巴赫猜想.即一个大于等于6的偶数可以表示为两个素数之和.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/03/29 14:41:59
急求:VB编程验证歌德巴赫猜想.即一个大于等于6的偶数可以表示为两个素数之和.
Private Sub Command1_Click()
x = InputBox("请输入任意大于6的偶数","输入")
If Not IsNumeric(x) Then MsgBox "输入错误":Exit Sub
If x Mod 2 0 Or x < 6 Then MsgBox "请输入大于6的偶数":Exit Sub
Dim i As Integer,z As Integer
For i = 1 To x \ 2
z = x - i
If IsPrime(i) And IsPrime(z) Then Print x & "=" & i & "+" & z
Next
End Sub
Private Function IsPrime(n As Integer) As Boolean '判断一个数是否是素数
IsPrime = True
For j = 2 To n - 1
If n Mod j = 0 Then IsPrime = False:Exit For
Next
End Function