变量溢出引发的错误

 

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

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

程序很简单，如下：

Public   Sub  PicData(bytData()  As   Byte )
    … … 
     ' ------------------------------------------------
    Const  intDataSize  =   6144   ' G_PicWidth * 24
     Dim  bytData3(intDataSize)  As   Byte
     Dim  bytData6(intDataSize)  As   Byte     
     On   Error   GoTo  ToExit  ' 打开错误陷阱

     ' 第3块数据缓存
    CopyMemory bytData3( 0 ), bytData(intDataSize  *   3 ), intDataSize
     ' 第5块数据移到第3块位置
    CopyMemory bytData(intDataSize  *   3 ), bytData(intDataSize  *   5 ), intDataSize
     ' 第6块数据移到第5块数据位置
    CopyMemory bytData(intDataSize  *   5 ), bytData(intDataSize  *   6 ), intDataSize
     ' 第3块数据移动到第6块位置
    CopyMemory bytData(intDataSize  *   6 ), bytData3( 0 ), intDataSize
     ' ------------------------------------------------
    … …
     Exit Sub
     ' ----------------
ToExit:
End Sub

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

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

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