【正文】 0 Then m6 = m6 + pi End If Else m6 = x End If If Text16(0) Or Text17(0) Then If m2 0 And m3 0 Then m6 = m6 + 2 * pi End If Else m6 = x End If If Text16(3) Or Text17(3) Then If m4 0 Then m7 = m5 / m4 m7 = Atn(m7) If m4 0 And m5 0 Then m7 = m7 + pi If m4 0 And m5 0 Then m7 = m7 + pi If m4 0 And m5 0 Then m7 = m7 + 2 * pi End If End If End If Else m7 = 0 End If Else m7 = u End If If Text16(3) Or Text17(3) Then If m4 0 And m5 0 Then m7 = m7 + pi End If Else m7 = u End If If Text16(3) Or Text17(3) Then If m4 0 And m5 0 Then m7 = m7 + 2 * pi End If Else m7 = u End IfFor i = 5 To 13 If Text5(i 5) Then n = n + 1 End IfNextm9 = 0For j = 5 To 13 39。將觀測角度變?yōu)橐远葹閱挝? G(j) = (Val(Text5(j 5)) + Val(Text6(j 5)) / 60 + Val(Text7(j 5)) / 3600) * pi / 180 m9 = m9 + G(j) NextFor i = 5 To 13 If Text5(i 5) Then a(i) = 1 Else a(i) = 0 End IfNextFor i = 14 To 21 a(i) = 0 NextE(4) = m6For i = 5 To 12b(i) = pi * (Val(Text5(i 5).Text) + Val(Text6(i 5).Text) / 60 + Val(Text7(i 5).Text) / 3600) / 180 If Then E(i) = E(i 1) + b(i) pi l = m6 + m9 m7 n * pi Else E(i) = E(i 1) b(i) + pi l = m6 m9 m8 + n * 180 * 3600 End IfNextFor i = 5 To 12 39。判斷方位角是否大于360度，若大于則減去360度If E(i) 2 * pi Then E(i) = E(i) 2 * pi End IfNext For i = 5 To 12If E(i) 0 Then 39。判斷方位角是否小于0度，若小于則加上360度 E(i) = E(i) + 2 * pi End IfNextFor i = 5 To 12c(i) = Sin(E(i))d(i) = Cos(E(i))NextFor i = 5 To 12 If Text2(i) = Then c(i) = 0 End IfNextFor i = 5 To 12 If Text2(i) = Then d(i) = 0 End IfNextc(13) = 0: d(13) = 0For i = 5 To 12F(i) = Val(Text2(i)) * d(i)H(i) = Val(Text2(i)) * c(i)NextFor i = 5 To 12o1 = F(i) + o1 39。y方向的坐標(biāo)增量o2 = H(i) + o2 39。y方向的坐標(biāo)增量Nextm = Val(Text16(1)) Val(Text16(2)) + o1o = Val(Text17(1)) Val(Text17(2)) + o2l1 = l * 180 * 3600 / piW(1) = l1: W(2) = m * 1000: W(3) = o * 1000If W(1) 100 ThenMsgBox 輸入數(shù)據(jù)出錯，請檢查！: Exit SubEnd IfIf W(2) 150 ThenMsgBox 輸入數(shù)據(jù)出錯，請檢查！: Exit SubEnd IfIf W(3) 150 ThenMsgBox 輸入數(shù)據(jù)出錯，請檢查！: Exit Sub 39。進行系數(shù)矩陣計算End IfDim c1, c2, c4, c3, c5, c6, c7, c8Dim b1, b2, b4, b3, b5, b6, b7, b8c1 = 0: c2 = 0: c3 = 0: c4 = 0: A5 = 0: a6 = 0: a7 = 0: a8 = 0b1 = 0: b2 = 0: b3 = 0: b4 = 0: b5 = 0: b6 = 0: b7 = 0: b8 = 0m12 = 1 / 206265For i = 5 To 12 If i = 5 Then c1 = c1 Val(Text2(i)) * c(i) b1 = b1 + Val(Text2(i)) * d(i) If i = 6 Then c2 = c2 Val(Text2(i)) * c(i) b2 = b2 + Val(Text2(i)) * d(i) If i = 7 Then c3 = c3 Val(Text2(i)) * c(i) b3 = b3 + Val(Text2(i)) * d(i) If i = 8 Then c4 = c4 Val(Text2(i)) * c(i) b4 = b4 + Val(Text2(i)) * d(i) If i = 9 Then c5 = c5 Val(Text2(i)) * c(i) b5 = b5 + Val(Text2(i)) * d(i) If i = 10 Then c6 = c6 Val(Text2(i)) * c(i) b6 = b6 + Val(Text2(i)) * d(i) If i = 11 Then c7 = c7 Val(Text2(i)) * c(i) b7 = b7 + Val(Text2(i)) * d(i) If i = 12 Then c8 = c8 Val(Text2(i)) * c(i) b8 = b8 + Val(Text2(i)) * d(i) End If End If End If End If End If End If End If End IfNextA1(5) = m12 * c1 * 1000: A1(6) = m12 * c2 * 1000: A1(7) = m12 * c3 * 1000: A1(8) = m12 * c4 * 1000: A1(9) = m12 * c5 * 1000: A1(10) = m12 * c6 * 1000: A1(11) = m12 * c7 * 1000: A1(12) = m12 * c8 * 1000: A1(13) = 0A2(5) = m12 * b1 * 1000: A2(6) = m12 * b2 * 1000: A2(7) = m12 * b3 * 1000: A2(8) = m12 * b4 * 1000: A2(9) = m12 * b5 * 1000: A2(10) = m12 * b6 * 1000: A2(11) = m12 * b7 * 1000: A2(12) = m12 * b8 * 1000: A2(13) = 0For i = 14 To 21A1(i) = d(i 9)A2(i) = c(i 9)NextFor i = 1 To 17A3(1, i) = a(i + 4)A3(2, i) = A1(i + 4)A3(3, i) = A2(i + 4)Nextm11 = Val(Text22): q = Val(Text23)For i = 1 To 9 For j = 1 To 9 If i = j Then P(i, j) = 1 Else P(i, j) = 0 End If NextNextFor i = 10 To 17 For j = 10 To 17 If i = j Then P(i, j) = q * q * Val(Text2(i 5)) / (m11 * m11) Else P(i, j) = 0 End If NextNext 39。確定好系數(shù)矩陣A3，K,掉用矩陣代碼進行法方程計算，最后求得結(jié)果Dim N1(1 To 3, 1 To 17) As Double jzcf A3(), P(), N1() Dim A4(1 To 17, 1 To 3) As Double jzzz A3(), A4() Dim N2(1 To 3, 1 To 3) As Double jzcf N1(), A4(), N2() Dim N3(1 To 3, 1 To 3) As Double jzqn N2(), N3() Dim K(1 To 3) As Double jzcf1 N3(), W(), K() K(1) = K(1): K(2) = K(2): K(3) = K(3) Dim V1(1 To 17, 1 To 3) As Double jzcf P(), A4(), V1() Dim V2(1 To 17) As Double jzcf1 V1(), K(), V2() For i = 1 To 9 Text14(i 1).ForeColor = amp。HFF 39。 對改正數(shù)賦予顏色與精度進行輸出 Text14(i 1) = Format(V2(i), ) Next For i = 10 To 17 Text3(i 10).ForeColor = amp。HFF Text3(i 10) = Format(V2(i), ) 39。 對改正數(shù)賦予顏色與精度進行輸出 NextEnd Sub（2）平差結(jié)果輸出代碼Private Sub Command3_Click()Open d:\ For Output As 1 39。打開和新建了一個txt文本文件 Dim ab1 As String, ab2 As String, ab3 As String, ab4 As String, ab5 As String, ab6 As String, ab7 As StringDim ad1 As String, ad2 As String, ad3 As String, ad4 As String, ad5 As String, ad6 As String, ad7 As Stringab1 = 點號: ab2 = 邊長: ab3 = 改正數(shù): ab4 = 平差值: ab5 = 觀測角: ab6 = 改正數(shù): ab7 = 平差值ac1 = : ac2 = : ac3 = 176。: ac4 = ′: ac5 = ″: ac6 = 176。: ac7 = ′: ac8 = ″ad1 = A: ad2 = B: ad3 = C: ad4 = DPrint 1, ab1。 Spc(4)。 ab2。 Spc(5)。 ab3。 Spc(5)