素數(shù)又稱質(zhì)數(shù)，指在一個大于1的自然數(shù)中，除了1和此整數(shù)自身外，沒法被其他自然數(shù)整除的數(shù)．超級素數(shù)的定義：當(dāng)一個素數(shù)從低位到高位依次去掉一位數(shù)后剩下的數(shù)仍然是素數(shù)，則此數(shù)為超級素數(shù)．例如：7331、733、73、7均為素數(shù)，所以7331為超級素數(shù)．小明設(shè)計了一個程序查找四位正整數(shù)中的超級素數(shù)．程序運行時，單擊Command1，則在列表框List1中顯示所有四位數(shù)的超級素數(shù)，并在標(biāo)簽Label1中顯示超級素數(shù)的數(shù)量．程序運行效果如第17題圖所示．實現(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=“四位超級素數(shù)共有“+Str（c）+“個“
End Sub
Function prime（x As Integer） As Boolean'判斷是否是素數(shù)
Dim i As Integer
prime=True
For i=2To x-1
If     ③Then
prime=False
Exit Function
End If
Next i
End Function
請在橫線處填入對應(yīng)①②③處的合適代碼．
①

tmp=i

tmp=i

②

c=c+1

c=c+1

③

x mod i=0

x mod i=0

．