40．孿生素?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ǔ)充說(shuō)明：素?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ù)的變量
=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
Then
x=0
End If
Next i
If x=l Then
Print n,n+2；“是孿生素?cái)?shù)”
Else
Print
；“不是孿生素?cái)?shù)”
End If
End Sub
