作业帮 > 综合 > 作业

验证哥德巴赫猜想,将4~100的偶数分解为2个素数的和

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/01 13:32:38
验证哥德巴赫猜想,将4~100的偶数分解为2个素数的和
请用BASIC语言编写,
Private Sub Command1_Click()
Dim n As Integer,i As Integer
n = Val(InputBox("N="))
For i = 2 To n / 2
If ss(i) And ss(n - i) Then Print n; "="; i; "+"; n - i
Next i
End Sub
Function ss(x As Integer) As Boolean
Dim i As Integer
ss = False
For i = 2 To Sqr(x)
If x Mod i = 0 Then Exit Function
Next i
ss = True
End Function