
算法描述如右图所示,请将程序补充完整。
Private Sub Form_Click()
Dim n As Integer, i As Integer
Dim x As Integer ‘判断是否为季生素数的变量
_______ = Val(InputBox("输入自然数 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 ;"是孪生素数”
Else
Print ____;"不是孪生素数”
End If
End Sub

同类型试题

y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2


y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2

