S7200 VB源程序，VB运行通过，很实用的。