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

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函數(shù)用來判斷參數(shù)n是否為素?cái)?shù)，如果是，則返回False，否則返回0，所以【10】處應(yīng)填“n Mod i=0”。要找出100以內(nèi)的所有孿生素?cái)?shù)可采用以下方法：可用循環(huán)變量i從第一個(gè)素?cái)?shù)3開始判斷該數(shù)和它的下一個(gè)奇數(shù)(只有奇數(shù)才有可能是素?cái)?shù))是否同時(shí)為素?cái)?shù)，如果是，則把該數(shù)和它的下一個(gè)奇數(shù)輸出，然后循環(huán)變量加2，接著進(jìn)行判斷。此處判斷某數(shù)是否為素?cái)?shù)，可以通過調(diào)用函數(shù)Prime來實(shí)現(xiàn)，故【9】處應(yīng)填寫“Prime(i) And Prime(i +2)”。