vb导线间接平差

代码说明：

Option Explicit Option Base 1     Dim sAngle() As Double, sdAngle() As Double, sEdge() As Double, s0Edge() As Double     "分别存放角度观测值、坐标方位角、观测边长和近似边长     Dim ajk() As Double, bjk() As Double    "坐标方位角改正数的系数     Dim detX() As Double, detY() As Double, reX() As Double, reY() As Double     "分别存放各测站相对于导线中前一结点的X、Y坐标增量和坐标闭合差     Dim strFileName As String               "存放数据文件名（含路径）     Dim iType%, iAngleType%, Xa#,