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

n,n+2

n,n+2

；“不是孿生素?cái)?shù)”
End If
End Sub