VB实例与案例,有用才好