If fwj(i + 1) > 360 Then
   fwj(i + 1) = fwj(i + 1) - 360
   End If
 Text9.Text = Text9.Text & Format(Str(zhuanhua(fwj(i + 1))), "###.0000") & vbCrLf
  Next
   For i = 0 To UBound(xj1)
    sxj = sxj + Val(xj1(i))
    Next
    Text20.Text = Str(Format(sxj, "####.000"))
    For i = 0 To UBound(xj1) - 1
    zx(i) = Val(xj1(i)) * Cos(hudu(fwj(i + 1)))
   zy(i) = Val(xj1(i)) * Sin(hudu(fwj(i + 1)))
   fx1 = fx1 + zx(i)
   fy1 = fy1 + zy(i)
   Text10.Text = Text10.Text & Format(Str(zx(i)), "####.00") & vbCrLf
   Text11.Text = Text11.Text & Format(Str(zy(i)), "####.00") & vbCrLf
   Next
  fx = fx1 - (Val(Text2.Text) - Val(Text1.Text))
  fy = fy1 - (Val(Text4.Text) - Val(Text3.Text)) 测量基本计算软件包设计+源代码(3):http://www.youerw.com/jisuanji/lunwen_41549.html