用VB计算坐标方位角,在VB环境中可以打开代码,可以修改其中代码,谢谢