素?cái)?shù)又稱質(zhì)數(shù)，指在一個(gè)大于1的自然數(shù)中，除了1和此整數(shù)自身外，沒(méi)法被其他自然數(shù)整除的數(shù)．超級(jí)素?cái)?shù)的定義：當(dāng)一個(gè)素?cái)?shù)從低位到高位依次去掉一位數(shù)后剩下的數(shù)仍然是素?cái)?shù)，則此數(shù)為超級(jí)素?cái)?shù)．例如：7331、733、73、7均為素?cái)?shù)，所以7331為超級(jí)素?cái)?shù)．小明設(shè)計(jì)了一個(gè)程序查找四位正整數(shù)中的超級(jí)素?cái)?shù)．程序運(yùn)行時(shí)，單擊Command1，則在列表框List1中顯示所有四位數(shù)的超級(jí)素?cái)?shù)，并在標(biāo)簽Label1中顯示超級(jí)素?cái)?shù)的數(shù)量．程序運(yùn)行效果如第17題圖所示．實(shí)現(xiàn)上述功能的VB程序如下：
Private Sub Command1_Click （　?。?br />Dim i As Integer,tmp As Integer,c As Integer
Dim flag As Boolean
c=0
For i=1001To 9999Step 2
①
flag=True
Do While tmp＜＞0
If Not prime（tem） Then
flag=False
Exit Do
End If
tmp=tmp\10
Loop
If flag Then
List1．AddItem Str（i）
②
End If
Next i
Label1．Caption=“四位超級(jí)素?cái)?shù)共有“+Str（c）+“個(gè)“
End Sub
Function prime（x As Integer） As Boolean'判斷是否是素?cái)?shù)
Dim i As Integer
prime=True
For i=2To x-1
If     ③Then
prime=False
Exit Function
End If
Next i
End Function
請(qǐng)?jiān)跈M線處填入對(duì)應(yīng)①②③處的合適代碼．
①

tmp=i

tmp=i

②

c=c+1

c=c+1

③

x mod i=0

x mod i=0

．