用VB来实现,急,在线等待,谢谢.