用VB验证歌德巴赫猜想：一个大偶数可以分解为两个素数之和.验证歌德巴赫猜想：一个大偶数可以分解为两个素数之和.试编成将500~1000之间的全部偶数表示为两个素数之和.---
来源：学生作业帮助网 编辑：六六作业网 时间：2025/01/30 13:36:13
用VB验证歌德巴赫猜想：一个大偶数可以分解为两个素数之和.验证歌德巴赫猜想：一个大偶数可以分解为两个素数之和.试编成将500~1000之间的全部偶数表示为两个素数之和.---
用VB验证歌德巴赫猜想：一个大偶数可以分解为两个素数之和.
验证歌德巴赫猜想：
一个大偶数可以分解为两个素数之和.
试编成将500~1000之间的全部偶数表示为两个素数之和.
---
用VB验证歌德巴赫猜想：一个大偶数可以分解为两个素数之和.验证歌德巴赫猜想：一个大偶数可以分解为两个素数之和.试编成将500~1000之间的全部偶数表示为两个素数之和.---
我试试,OK了!但是单击完窗体要等待几秒,因为机器在进行运算,不要着急,等5秒就可以!
Private Sub Form_Click()
Dim Num As Integer‘控制Num个算式换行
Dim n As Integer '大偶数
Dim Pr1 As Integer '两个小素数只需定义一个 Pr2 =n=Pr1
For n = 500 To 1000
For Pr1 = 2 To n / 2 'Pr1是小素数
If IsPrime(Pr1) And IsPrime(n - Pr1) Then '同时成立
Num = Num + 1
Print Tab(20 * Num); n; "="; Pr1; "+"; n - Pr1; " ";
If Num Mod 7 = 0 Then Print:Num=0'7个换行
End If
Next Pr1
Next n
End Sub
Private Function IsPrime(x As Integer) As Boolean '定义函数
’过程求素数
Dim i%,Flag As Boolean
Flag = True '假设是素数
If x >= 3 Then '最小的素数是3把1、2排除素数范围
For i = 2 To x / 2 '从2开始不是从1开始谢谢!
If x Mod i = 0 Then Flag = False:Exit For
Next i
IsPrime = Flag
End If
End Function
我不知道为什么修改答案时会出现那么多
总之你就假装没有看见就行了呵呵!