很实用,是VB程序设计与应用209页第10-1的例题,