[填空題] 下列程序的功能是求出所有的1-100之間的孿生素?cái)?shù)。孿生素?cái)?shù)是指兩個(gè)素?cái)?shù)的差為 2，如3和5，11和13等，請?zhí)羁铡?Private Sub Form_Click() Dim i As Integer For i = 3 To 97 Step 2If 【9】 Then Print i, i + 2End If Next i End Sub Public Funtion Prime (ByVal n As Integer) As Boolean Dim i as Integer For i = 2 To n - 1If 【10】 Then Exit ForEnd If Next i If i = n ThenPrime = True ElsePrime = 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)”。