孪生素数是指间隔为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 ‘判断是否为季生素数的变量
= 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
答案:【1】n【2】(n+2) mod i=0【3】n,n+2