素数又称质数，指在一个大于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

．