VB6.0 数据采集 CRC 校验代码实现