篩選法求素?cái)?shù)的核心思想是先找最小素?cái)?shù)，然后剔除其所有的倍數(shù)，在留 下的數(shù)中再剔除最小素?cái)?shù)的倍數(shù)，重復(fù)執(zhí)行，直到剔除所有的非素?cái)?shù)。小張編寫了一個(gè)2 查找孿生素?cái)?shù)對(duì)（差值為2）的VB程序，功能如下：在文本框Text1中輸入一個(gè)整數(shù)n（n≤1000000），單擊“求素?cái)?shù)對(duì)”按鈕Command1，在列表框List1中 顯示2 到n 范圍內(nèi)的素?cái)?shù)，在標(biāo)簽Label2中顯示素?cái)?shù)個(gè)數(shù)，在標(biāo)簽Label3中顯示孿生素?cái)?shù)對(duì)個(gè)數(shù)。程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
PrivateSubCommand1_Click （　　）
DimnAsLong,iAsLong,jAsLong
DimtAsLong'存儲(chǔ)素?cái)?shù)個(gè)數(shù)
DimcountAsInteger'存儲(chǔ)素?cái)?shù)對(duì)個(gè)數(shù)
DimpAsLong
Dima（2To10000000）AsInteger n=Val（Text1．Text）
Fori=2Ton a（i）=1
Nexti
p=2
DoWhilep＜=Int（Sqr（n）） Ifa（p）=1Then
j=2
DoWhilej＜=n\p
'（1）
j=j+1
Loop
EndIf
p=p+1
Loop t=0
Fori=2Ton
Ifa（i）=1Thent=t+1
Nexti count=0
Fori=2Ton-2
IfThen'（2）
count=count+1
List1．AddItemads（i,1）&ads（i+2，5）EndIf
Nexti
Label2．Caption=“總共有“+Str（t）+“個(gè)素?cái)?shù)“
Label3．Caption=“其中有“+Str（count）+“個(gè)孿生素?cái)?shù)對(duì)“
EndSub
Functionads（xAsInteger,nAsInteger）As String
'整數(shù)轉(zhuǎn)換成長(zhǎng)度固定的字符串，代碼略
EndFunction