用VB验证歌德巴赫猜想：一个大偶数可以分解为两个素数之和.验证歌德巴赫猜想：一个大偶数可以分解为两个素数之和.试编成将500~1000之间的全部偶数表示为两个素数之和.---

来源：学生作业帮助网编辑：作业帮时间：2024/04/28 12:18:36

用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
我不知道为什么修改答案时会出现那么多
总之你就假装没有看见就行了呵呵!