适合高中VB教学,可以作为案例,在第一节课使用