Question

按键精灵，TracePrint显示结不会显示，大家帮我看看什么问题

Dim 包裹（5，4）
For i = 0 To ubound(包裹, 1)
For j = 0 To UBound(包裹, 2)
If GetPixelColor(24 + 38 + i * 38, 216 + 38 + j * 38) = "000000" Then

包裹(i, j) = "没有东西"
Else

包裹(i, j) = "有东西"

End If

TracePrint "包裹 第"&I&"行，第"&J&"列 结果;"&包裹（I,J）

Next
Next

Answer 1

很明显，就是参数不匹配，TracePrint函数参数不匹配。建议你不要用二维数组，用两个一维数组方便多了，何必给自己找麻烦。

追问

就是TracePrint那里出问题了，关键是不知道在哪里，我是刚学的

追答

结果;"&包裹（I,J）
字符串是不能和二维数组连接的，你这里有问题，所以建议你定义两个一维数组，逻辑又清晰，写程序也方便。

追问

TracePrint "包裹 第"&I&"行，第"&J&"列 结果;"&包裹（I,J）

这一行怎么写可以 帮我修改下不，谢谢

追答

解决办法我都说了两遍了，你自己看着办吧。

追问

谢谢