孿生素數是指間隔為2的相鄰素數,它們之間的距離已經近得不能再近了,就像孿生兄弟一樣,也稱為雙生素數。例如,素數11和13,其間隔為2,就是一組孿生素數。請編寫程序,輸入自然數n(n<1000),判斷n和n+2是否為孿生素數。(補充說明:素數是指在一個大于1的自然數中,除了1和此數自身外,無法被其他自然數整除的數) 算法描述如圖所示,請將程序補充完整。 Private Sub Form_Click ( ) Dim n As Integer,i As Integer Dim x As Integer‘判斷是否為孿生素數的變量
n
n
=Val(InputBox(“輸入自然數 n“)) x=l If n<=l Then x=0 End If For i=2 To Sqr(n+2) If n Mod i=0 Or
(n+2)mod i=0
(n+2)mod i=0
Then x=0 End If Next i If x=l Then Print n,n+2;“是孿生素數” Else Print