VB做的一个小程序。程序有一小点的问题。但不会引响程序实现的功能。文件包中有程序相关的说明: