四、驗證哥德巴赫猜想

　　(任意一個大于等于6的偶數都可以分解為兩個素數之和)

　　基本思想：n為大于等于6的任一偶數，可分解為n1和n2兩個數，分別檢查n1和n2是否為素數，如都是，則為一組解。如n1不是素數，就不必再檢查n2是否素數。先從n1=3開始，檢驗n1和n2(n2=N-n1)是否素數。然后使n1+2 再檢驗n1、n2是否素數，… 直到n1=n/2為止。

　　利用上面的prime函數，驗證哥德巴赫猜想的程序代碼如下：

　　Dim n%,n1%,n2%

　　n=Val(InputBox("輸入大于6的正整數"))

　　For n1=3 to n\2 step 2

　　n2=n-n1

　　If prime(n1) Then

　　If prime(n2) then

　　Print n & "=" & n1 & "+" & n2

　　Exit For '結束循環

　　End if

　　End if

　　Next n1

　　相關推薦：

　　2012年下半年計算機等級考試報名時間及入口匯總

　　計算機等級考試三級PC技術過關心得技巧

　　2012年3月計算機二級考試真題匯總