孿生素數(shù)是指間隔為2的相鄰素數(shù)，它們之間的距離已經(jīng)近得不能再近了，就像孿生兄弟一樣，也稱為雙生素數(shù)。例如，素數(shù)11和13，其間隔為2，就是一組孿生素數(shù)。請編寫程序，輸入自然數(shù)n（n＜1000），判斷n和n+2是否為孿生素數(shù)。（補(bǔ)充說明：素數(shù)是指在一個大于1的自然數(shù)中，除了1和此數(shù)自身外，無法被其他自然數(shù)整除的數(shù)）
算法描述如圖所示，請將程序補(bǔ)充完整。
Private Sub Form_Click （　　）
Dim n As Integer,i As Integer
Dim x As Integer‘判斷是否為孿生素數(shù)的變量

n

n

=Val（InputBox（“輸入自然數(shù) 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；“是孿生素數(shù)”
Else
Print

n,n+2

n,n+2

；“不是孿生素數(shù)”
End If
End Sub