VB写的，可以用的，计算要买新股应该卖掉多少旧股，让您有所准备。