本人自写程序 请大家多多指教 利用VB程序编写