[填空題] 下列程序的功能是求出所有的1～100之間的孿生素數(shù)。孿生素數(shù)是指兩個素數(shù)的差為2，如3和5，11和13等，請?zhí)羁铡?/p>

Private Sub Form_Click()

Dim i As Integer

For i=3 To 97 Step 2

If 【14】 Then

Print i，i+2

End If

Next i

End Sub

Public Function prime(ByVal n As Integer)As Boolean

Dim i As Integer

For i=2 To n-1

If 【15】 Then

Exit For

End If

Next i

If i=n Then

prime=True

Else

prime=False

End If

[14] prime(i) And prime(i+2) [15]n Mod i=0

此題prime函數(shù)用來判斷參數(shù)n是否為素數(shù)，如果是，則返回True，否則返回0，判斷素數(shù)的算法請參看相應(yīng)章節(jié)，[15]處應(yīng)填“n Mod i=0”。要找出100以內(nèi)的所有孿生素數(shù)，可采用以下方法：可用循環(huán)變量i從第一個素數(shù)3開始判斷該數(shù)和它的下一個奇數(shù)(只有奇數(shù)才有可能是素數(shù))是否同時為素數(shù)，如果是，則把該數(shù)和它的下一個奇數(shù)輸出，然后循環(huán)變量加2，接著進行判斷……，此處判斷某數(shù)是否為素數(shù)，可以通過調(diào)用函數(shù)Prime來實現(xiàn)，故[14]處應(yīng)填“prime(i)And prime(i+2)”。