利用VB语言编程通过相似变换法进行坐标变换