m=n 
FindPic leftx,upy,rightx,downy,number6,Similar,fx,fy 
If fx>=0 and fy>=0 
n=n+1 
leftx=fx+1 
a(n)=fx 
b(n)=6 
EndIf 
wend 
leftx=lx 
m=m-1 
While n<>m 
m=n 
FindPic leftx,upy,rightx,downy,number7,Similar,fx,fy 
If fx>=0 and fy>=0 
n=n+1 
leftx=fx+1 
a(n)=fx 
b(n)=7 
EndIf 
wend 
leftx=lx 
m=m-1 
While n<>m 
m=n 
FindPic leftx,upy,rightx,downy,number8,Similar,fx,fy 
If fx>=0 and fy>=0 
n=n+1 
leftx=fx+1 
a(n)=fx 
b(n)=8 
EndIf 
wend 
leftx=lx 
m=m-1 
While n<>m 
m=n 
FindPic leftx,upy,rightx,downy,number9,Similar,fx,fy
If fx>=0 and fy>=0 
n=n+1 
leftx=fx+1 
a(n)=fx 
b(n)=9 
EndIf 
wend 
leftx=lx 
m=m-1
While p<n+2 
j=a(1) 
i=1 
h=1 
While i<n+2 
If j>a(i) 
Else 
j=a(i) 
h=i 
EndIf 
i=i+1 
wend 
a(h)=0 
q(p)=h 
p=p+1 
wend 
g=1 
u=1 
num=0
//读取到有数字返回值为 num， 没读取到有数字返回值为0
If n=0 then
num=1
Else 
For n 
num=num+b(q(g))*10^(g-1) 
g=g+1 
Next 
End If 
'jiaqian(cishu)=num //这些都是测试时用的，可以不必理
'lx=leftx+30
'leftx=leftx+30
'rightx=rightx+30 
'cishu=cishu+1
wupin=JQ*num //改初始坐标
End Function