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

tmp=i

tmp=i

②

c=c+1

c=c+1

③

x mod i=0

x mod i=0

．