Question

关于按键精灵的数组和找图 求大神帮我看下问题所在

关于按键精灵的数组和找图 求大神帮我看下问题所在

一下是源码
Dim 测试(7)
测试 (0)="我的文档"
测试 (1)="我的电脑"
测试 (2)="网上邻居"
测试 (3)="回收站"
测试 (4)="QQ游戏"
测试 (5)="宽带连接"
测试 (6)="快捷方式"
测试 (7)="360极速浏览器"
FindPic 0,0,1024,768,"Attachment:\111.bmp",0.9,aX,aY
If aX > 0 And aY > 0 Then
测试(0)=1
End If
FindPic 0,0,1024,768,"Attachment:\111.bmp",0.9,bX,bY
If bX > 0 And bY > 0 Then
测试(1)=1
End If
FindPic 0,0,1024,768,"Attachment:\333.bmp",0.9,cX,cY
If cX > 0 And cY > 0 Then
测试(2)=1
End If
FindPic 0,0,1024,768,"Attachment:\444.bmp",0.9,dX,dY
If dX > 0 And dY > 0 Then
测试(3)=1
End If
FindPic 0,0,1024,768,"Attachment:\555.bmp",0.9,eX,eY
If eX > 0 And eY > 0 Then
测试(4)=1
End If
FindPic 0,0,1024,768,"Attachment:\666.bmp",0.9,fX,fY
If fX > 0 And fY > 0 Then
测试(5)=1
End If
FindPic 0,0,1024,768,"Attachment:\777.bmp",0.9,gX,gY
If gX > 0 And gY > 0 Then
测试(6)=1
End If
FindPic 0,0,1024,768,"Attachment:\888.bmp",0.9,hX,hY
If hX > 0 And hY > 0 Then
测试(7)=1
End If
For p = lbound To ubound(测试)
If 测试(p) = 1 Then
MessageBox "找到," & 测试(p)
Else
MessageBox "没有找到," & 测试(p)
End If
Next

为什么找到图了 不显示 找到，我的电脑 而显示 找到0

为什么没找到的就显示了 没有找到，我的文档
For p = lbound To ubound(测试)

发现这地方写错了 LBound(测试) 改过来了还是没用

Answer 1

//应该是两个数组，你之前用一个数组，判断找图后就从新给数组赋值了，所以显示的是最新的值。已测试通过

Dim 测试(7),找到(7)
测试 (0)="我的文档"
测试 (1)="我的电脑"
测试 (2)="网上邻居"
测试 (3)="回收站"
测试 (4)="QQ游戏"
测试 (5)="宽带连接"
测试 (6)="快捷方式"
测试 (7)="360极速浏览器"
i=0
for i = 0 To ubound(测试)
FindPic 0,0,1024,768,"Attachment:\"&测试 (i)&".bmp",0.9,aX,aY
If aX > 0 Then
找到(i)=1
Else
找到(i)=0
End If
i=i+1
next

for i = 0 To ubound(测试)
if 找到(i)=1 then
MessageBox "找到," & 测试(i)
ElseIf 找到(i)=0 then
MessageBox "没有找到," & 测试(i)
End If
next