说明：  该程序为VB程序,是用于计算出来的坐标需要进行坐标系转换使用.感谢站长
(procedure for the VB program is used to calculate the coordinates of the need for the use of coordinate system conversion. Grateful to the station! !)