变量溢出引发的错误

前几天II型隧道广告由于安装位置由边墙调整到中墙，这一改动相当于列车到来的方向发生了逆转，程序需要改动才能适应这种情况。worker_1983网友曾留言说，“还好地铁只是朝一个方向开.如果反着开可就有意思了”，可谓一针见血，不过对我们来说不是有意思，麻烦大了。

在改动方面，其实对软件来说改动量不大，仅对下载的数据有一定调整，由于早期的程序用VB开发（唉，已经几年没用VB编写程序了，代码看起来很亲切），倒是在哪里插入这段代码费了我不少时间（由此想到了一个流传甚广的小故事，一个有名的工程师解决电机问题后，面对别人的质问时说，画一根线一美元，知道在哪里画需要999美元）。

程序很简单，如下：

PublicSubPicData(bytData()AsByte)
……
'------------------------------------------------
ConstintDataSize=6144'G_PicWidth*24
DimbytData3(intDataSize)AsByte
DimbytData6(intDataSize)AsByte
OnErrorGoToToExit'打开错误陷阱

'第3块数据缓存
CopyMemorybytData3(0),bytData(intDataSize*3),intDataSize
'第5块数据移到第3块位置
CopyMemorybytData(intDataSize*3),bytData(intDataSize*5),intDataSize
'第6块数据移到第5块数据位置
CopyMemorybytData(intDataSize*5),bytData(intDataSize*6),intDataSize
'第3块数据移动到第6块位置
CopyMemorybytData(intDataSize*6),bytData3(0),intDataSize
'------------------------------------------------
……
ExitSub
'----------------
ToExit:
EndSub

程序修改编译后，信心满满的给硬件人员进行下载调试了，过了近一天的时间，一问硬件技术人员，说下载数据后，画面异常，不知道是硬件问题还是软件问题。只好把笔记本带到测试室，和硬件人员一起调试确认。就这么几句代码，费了我不少时间，我才发现问题的所在，第一我发现6144*6一定大于3万2千多，意味做对integer整型有可能溢出，第二错误处理直接退出了，没有提示（这种做法真危险！），第三定义intDataSize没有定义类型，默认也就是integer了。

把Const intDataSize = 6144 代码修改为Const intDataSize As Long = 6144。

问题搞定。幸好修改的代码不多，否则这点错误还真要命，此外得到教训是，调试程序时最好把程序错误处理暂时关掉（或错误存在文件里，不过这个时候够呛想到去看）。