条形码39码生成与识别VB源代码