用VB实现做实用放大镜个人做的。。。。。。。。。。