下列程序的功能是求出所有的1-100之间的孪生素数。孪生素数是指

问题填空题

下列程序的功能是求出所有的1-100之间的孪生素数。孪生素数是指两个素数的差为 2，如3和5，11和13等，请填空。
Private Sub Form_Click()
Dim i As Integer
For i = 3 To 97 Step 2
If 【9】 Then
Print i, i + 2
End If
Next i
End Sub
Public Funtion Prime (ByVal n As Integer) As Boolean
Dim i as Integer
For i = 2 To n - 1
If 【10】 Then
Exit For
End If
Next i
If i = n Then
Prime = True
Else
Prime = False
End If
End Function

答案

参考答案：Prime(i)And Prime(i+2) n Mod i=0

解析：此题Prime函数用来判断参数n是否为素数，如果是，则返回False，否则返回0，所以【10】处应填“n Mod i=0”。要找出100以内的所有孪生素数可采用以下方法：可用循环变量i从第一个素数3开始判断该数和它的下一个奇数(只有奇数才有可能是素数)是否同时为素数，如果是，则把该数和它的下一个奇数输出，然后循环变量加2，接着进行判断。此处判断某数是否为素数，可以通过调用函数Prime来实现，故【9】处应填写“Prime(i) And Prime(i +2)”。