调试时一次有效，一次无效，找不到原因，求指教 [复制链接]

目标是写个数字识别，识图环节调试总是一次有效，退出在调试无效，然后又有效，是什么问题
Dim 索引, 图片列表
//索引 = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)//设置按键码
索引 = Array("Attachment:\0.bmp","Attachment:\1.bmp","Attachment:\2.bmp","Attachment:\3.bmp","Attachment:\4.bmp","Attachment:\5.bmp","Attachment:\6.bmp","Attachment:\7.bmp","Attachment:\8.bmp","Attachment:\9.bmp")
//Function 找图(图片)//100以下数字
图片列表 = split("Attachment:\0.bmp|Attachment:\1.bmp|Attachment:\2.bmp|Attachment:\3.bmp|Attachment:\4.bmp|Attachment:\5.bmp|Attachment:\6.bmp|Attachment:\7.bmp|Attachment:\8.bmp|Attachment:\9.bmp", "|")

For dd = 0 To 9

FindPic 510, 208, 584, 261, 索引(dd), 0.5, intX, intY

If intX > 0 And intY > 0 Then
Form1.InputBox1.Text = "----------------------------找到 图片" & 索引(dd)
Else
Form1.InputBox1.Text = "--------------没找到" & 图片列表(dd)
End If
FindPic 510, 208, 584, 261, 图片列表(dd), 0.5, intX, intY

If intX > 0 And intY > 0 Then

TracePrint "+++++++++找到" & 图片列表(dd)
Else

TracePrint "--------------没找到" & 图片列表(dd)



End If

Delay 500
Next