算法描述如图所示,请将程序补充完整。
Private Sub Form_Click()
Dim n As Integer, i As Integer
Dim x As Integer ‘判断是否为季生素数的变量
= Val(InputBox("输入自然数 n"))
x=1
If n<=1 Then x = 0
End If
For i = 2 To Sqr(n+2)
If n Mod i = 0 OrThen
x = 0
End If
Next i
If x=1 Then
Print n,n+2 ;"是孪生素数”
Else
Print ;"不是孪生素数”
End If
End Sub