Question

VB实验题：验证哥德巴赫猜想。任意一个大于2的偶数都可以表示成两个素数之和。

编程将6~100之间的全部偶数表示为两个素数之和，在列表框显示结果，最后LABEL1显示共有多少对素数之和。

Answer 1

Private Sub Command1_Click()
Dim n As Integer
For n = 6 To 100 Step 2
list1.additem str(n) & "=" & f(n)
Next n
label1.caption="共有48对素数之和。"
End Sub
Function f(n As Integer) As String
Dim x As Integer, y As Integer
For x = 3 To n / 2
If S(x) And S(n - x) Then
f = CStr(x) + "+" + CStr(n - x)
Exit For
End If
Next x

End Function
Function S(ByVal x As Integer) As Boolean
Dim i As Integer
For i = 2 To Sqr(x)
If x Mod i = 0 Then
S = False
Exit For
End If
Next i
If i > Sqr(x) Then S = True
End Function

Answer 2

adf

Answer 3

用穷举法就行了

Answer 4

哇,好熟悉的问题啊,我初中学电脑学到这个难住了不学了,高中学电脑又是这个,最后还是没搞会.现在嘛,还不会......