用VB編程式驗證哥德巴赫猜想，即一個大於等於6的偶數可以表示為兩個素數之和 儘量別用太複雜高端的語句，我們很多都沒學過 Private Sub Form_Click（） Dim a As Long，b As Long，c As Long，i As Long，t As Long c = a - b Do a = Val（InputBox（“輸入不小於6的偶數”）） Loop Until a >= 6 And a Mod 2 = 0 If（b = 2 Or b = 3）And（c = 2 Or c = 3）Then Print a +“=”+ b +“+”+ c Else For i = 2 To Sqr（b） If b Mod i = 0 Then For t = 2 To Sqr（c） If c Mod t = 0 Then Print a +“=”+ b +“+”+ c Next t Next i If i > Sqr（b）Then If t > Sqr（c）Then Print a +“=”+ b +“+”+ c End If End If End Sub 求修正

用VB編程式驗證哥德巴赫猜想，即一個大於等於6的偶數可以表示為兩個素數之和 儘量別用太複雜高端的語句，我們很多都沒學過 Private Sub Form_Click（） Dim a As Long，b As Long，c As Long，i As Long，t As Long c = a - b Do a = Val（InputBox（“輸入不小於6的偶數”）） Loop Until a >= 6 And a Mod 2 = 0 If（b = 2 Or b = 3）And（c = 2 Or c = 3）Then Print a +“=”+ b +“+”+ c Else For i = 2 To Sqr（b） If b Mod i = 0 Then For t = 2 To Sqr（c） If c Mod t = 0 Then Print a +“=”+ b +“+”+ c Next t Next i If i > Sqr（b）Then If t > Sqr（c）Then Print a +“=”+ b +“+”+ c End If End If End Sub 求修正

思路與方法：
1，輸入一個大於等於6的偶數n.
2，採用迴圈：
For i = 2 to n-2
if i是素數And n-i是素數Then
輸出：i，n-i
Exit For
End If
Next i