用VB验证歌德巴赫猜想:一个大偶数可以分解为两个素数之和.验证歌德巴赫猜想:一个大偶数可以分解为两个素数之和.试编成将500~1000之间的全部偶数表示为两个素数之和.---
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 15:52:05
![用VB验证歌德巴赫猜想:一个大偶数可以分解为两个素数之和.验证歌德巴赫猜想:一个大偶数可以分解为两个素数之和.试编成将500~1000之间的全部偶数表示为两个素数之和.---](/uploads/image/z/2794305-57-5.jpg?t=%E7%94%A8VB%E9%AA%8C%E8%AF%81%E6%AD%8C%E5%BE%B7%E5%B7%B4%E8%B5%AB%E7%8C%9C%E6%83%B3%EF%BC%9A%E4%B8%80%E4%B8%AA%E5%A4%A7%E5%81%B6%E6%95%B0%E5%8F%AF%E4%BB%A5%E5%88%86%E8%A7%A3%E4%B8%BA%E4%B8%A4%E4%B8%AA%E7%B4%A0%E6%95%B0%E4%B9%8B%E5%92%8C.%E9%AA%8C%E8%AF%81%E6%AD%8C%E5%BE%B7%E5%B7%B4%E8%B5%AB%E7%8C%9C%E6%83%B3%EF%BC%9A%E4%B8%80%E4%B8%AA%E5%A4%A7%E5%81%B6%E6%95%B0%E5%8F%AF%E4%BB%A5%E5%88%86%E8%A7%A3%E4%B8%BA%E4%B8%A4%E4%B8%AA%E7%B4%A0%E6%95%B0%E4%B9%8B%E5%92%8C.%E8%AF%95%E7%BC%96%E6%88%90%E5%B0%86500%7E1000%E4%B9%8B%E9%97%B4%E7%9A%84%E5%85%A8%E9%83%A8%E5%81%B6%E6%95%B0%E8%A1%A8%E7%A4%BA%E4%B8%BA%E4%B8%A4%E4%B8%AA%E7%B4%A0%E6%95%B0%E4%B9%8B%E5%92%8C.---)
用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
我不知道为什么修改答案时会出现那么多
总之你就假装没有看见就行了呵呵!