sss=sss3
ElseIf n=4
sss=sss4
ElseIf n=5
sss=sss5
ElseIf n=6
sss=sss6
ElseIf n=7
sss=sss7
ElseIf n=8
sss=sss8
ElseIf n=9
sss=sss9
ElseIf n=10
sss=sss10
ElseIf n=11
sss=sss11
ElseIf n=12
sss=sss12
End If 
jiag=wupin(geshu,sss) //获取物品价钱
'Call xiejiage(geshu,jiag,sss)
'BeginThread 输出信息
Exit For 
End If 
n=n+1 
Next 
qian=qian+jiag //计算总价格
jiag=0 //价格清零
ux=ux+30 //x坐标加30，扫描下一个框内物品
geshu=geshu+1 //个数循环
n=0
Next 
jiage=qian //参数传递

End Function 

Function wupin(GS,JQ) //计算物品总价格 LX 查找类型
//代码太他妈有才了
//此代码论坛中有，个人觉得很好。
dim a(100) 
dim b(100) 
dim q(100) 
number0="Attachment:\0.bmp" 
number1="Attachment:\1.bmp" 
number2="Attachment:\2.bmp" 
number3="Attachment:\3.bmp" 
number4="Attachment:\4.bmp" 
number5="Attachment:\5.bmp" 
number6="Attachment:\6.bmp" 
number7="Attachment:\7.bmp" 
number8="Attachment:\8.bmp" 
number9="Attachment:\9.bmp" 
cishu=1
leftx=72+(GS-1)*30 //132
upy=174 //155
rightx=99+(GS-1)*30 //162
downy=185 //235 
Similar=1
lx=leftx 
Dim n,m,p,i,j

n=0
m=1
p=1 
While n<>m 
m=n 
FindPic leftx,upy,rightx,downy,number0,Similar,fx,fy
If fx>=0 and fy>=0 
n=n+1 
leftx=fx+1
a(n)=fx
b(n)=0 
EndIf 
wend 
leftx=lx
m=m-1 
While n<>m 
m=n
FindPic leftx,upy,rightx,downy,number1,Similar,fx,fy
If fx>=0 and fy>=0 
n=n+1 
leftx=fx+1 
a(n)=fx 
b(n)=1 
EndIf 
wend 
leftx=lx 
m=m-1 
While n<>m 
m=n 
FindPic leftx,upy,rightx,downy,number2,Similar,fx,fy
If fx>=0 and fy>=0 
n=n+1 
leftx=fx+1 
a(n)=fx 
b(n)=2 
EndIf 
wend 
leftx=lx