VB与哥德巴赫猜想

不用函数还不如用笔和纸去算

Private Sub Command1_Click()
n = 2000
For a = 3 To n Step 2
Dim isAp As Boolean
isAp = False
For i = 3 To Math.Sqr(a)
If a Mod i = 0 Then isAp = True
Next
If isAp Then GoTo this0

For b = 3 To n - a Step 2
Dim isBp As Boolean
isBp = False
For j = 3 To Math.Sqr(b)
If b Mod j = 0 Then isBp = True
Next
If isBp Then GoTo this1
If a + b = n Then
Print a & " " & b
End If
this1:
Next

this0:
Next a

End Sub

当n为 5678时，程序会运行不过来！当为2000的时候就完全可以！！

我们要知道任何人造的计算机，也不能计算到无穷大的数字，那对于证明哥德巴赫猜想是没有必要的。就像1+1=2，反之2-1=1就是证明。无限大的数字也一样，哥德巴赫猜想也一样，证明就是可以验证的，众所公认的一种事实。
陈景润用“0.67”这个非正整数组成的代数式来证明“1+1”是否错在于那怕其证明的数字接近于0.999，在这个问题