逐步回归VB程序代码，已通过测试，可直接使用，欢迎大家下载，谢谢支持。