很经典的小程序VB做的,附代码,可以做练习并研究