【正文】 39。 Trim(Str(iMark)) amp。測站數(shù)加 1 End Sub Private Sub Form_Load() iMark = 1 End Sub Option Explicit Option Base 1 Dim sAngle() As Double, sdAngle() As Double, sEdge() As Double Dim detX() As Double, detY() As Double, reX() As Double, reY() As Double Dim strFileName As String Dim iType%, Xa, Ya, Xb, Yb, Xc, Yc, Xd, Yd Dim iStation As Integer Dim detA As Double 39。X 坐標(biāo)閉合差、 Y坐標(biāo)閉合差、總體閉合差、路線長 Const PI = Private Sub mnuAbout_Click() 1 End Sub Private Sub mnuCalc_Click() 39。 vbCrLf amp。 Format(HuToDo(aAB), ) If iType = 1 Then aDC = DirectAB(Xc, Yc, Xd, Yd) = amp。 終 止 坐 標(biāo) 方 位 角 amp。 vbCrLf amp。 Format(HuToDo(aAB), ) End If 39。 vbCrLf amp。 vbCrLf For i = 1 To iStation sdAngle(i + 1) = sdAngle(i) + PI sAngle(i) = amp。 , Next i = amp。 vbCrLf 39。 Format(HuToDo(detA), ) amp。判斷是否附合限差要求 If detA Int(40 * Sqr(iStation)) Then MsgBox 角度閉合差超限！ , , 計(jì)算終止 = amp。 角度閉合差超限，計(jì)算終止！ Exit Sub End If 39。簡單地平均分配角度值了，后面對秒進(jìn)行四舍五入處理 = amp。 vbCrLf For i = 1 To iStation sAngle(i) = sAngle(i) + detA = amp。 , sdAngle(i) = sdAngle(i) + detA * (i 1) Next i = amp。 改正后的方位角： amp。 Format(HuToDo(sdAngle(i)), ) amp。 vbCrLf 39。 坐標(biāo)增量初值： amp。 Format(detX(i 1), ) amp。 Format(detY(i 1), ) amp。 Next i = amp。計(jì)算坐標(biāo)閉合差 reX(1) = Xb: reY(1) = Yb: Tedge = 0 For i = 2 To iStation reX(i) = reX(i 1) + detX(i 1) reY(i) = reY(i 1) + detY(i 1) Tedge = Tedge + sEdge(i 1) Next i If iType = 1 Then detTX = reX(iStation) Xc detTY = reY(iStation) Yc Else detTX = reX(iStation) Xb detTY = reY(iStation) Yb End If detTT = Sqr(detTX * detTX + detTY * detTY) = amp。 Format(detTX, ) amp。 Format(detTY, ) = amp。 Format(detTT, ) amp。 邊長精度為 1/ amp。 超過限差，計(jì)算終止！ Exit Sub End If = amp。 Str(Fix(Tedge / detTT)) amp。 39。 改正后的坐標(biāo)增量： amp。 Format(detX(i), ) amp。 Format(detY(i), ) amp。 Next i = amp。計(jì)算最后的坐標(biāo) = amp。 vbCrLf For i = 2 To iStation reX(i) = reX(i 1) + detX(i 1) = amp。 , reY(i) = reY(i 1) + detY(i 1) = amp。 。 Format(reX(i 1), ) amp。 Format(reY(i 1), ) amp。 計(jì)算結(jié)束！ amp。循環(huán)變量 = 文本文件（ *.txt） |*.txt|所有文件（ *.*） |*.* 39。獲得選中的文件名和路徑 Open strFileName For Input As 1 39。讀入路線類型和前兩個(gè)起算點(diǎn)坐標(biāo) = amp。 vbCrLf amp。 , amp。 , amp。 , amp。 vbCrLf If iType = 1 Then 39。 Format(Xc, ) amp。 Format(Yc, ) amp。 Format(Xd, ) amp。 Format(Yd, ) amp。讀入測站數(shù)，并用測站數(shù)定義數(shù)組大小 = amp。 vbCrLf ReDim sAngle(iStation) As Double, sdAngle(iStation + 1) As Double, sEdge(iStation 1) As Double ReDim detX(iStation 1) As Double, detY(iStation 1) As Double, reX(iStation) As Double, reY(iStation) As Double For i = 1 To iStation 39。 Format(sAngle(i), ) amp。 vbCrLf For i = 1 To iStation 1 39。 Format(sEdge(i), ) amp。 vbCrLf Close 1 39。 Format(HuToDo(detA), )。 Str(Int(40 * Sqr(iStation)))。39。 Print 1, 坐標(biāo)閉合差： X 方向 。 ， Y方向 。 ，精度 1/。 ，符合要求。 Format(sAngle(i), ) amp。 ts ts = For i = 1 To iStation + 1 ts = ts amp。 ， Next i Print 1, 坐標(biāo)方位角： 。 Format(sEdge(i), ) amp。 ts ts = For i = 1 To iStation 1 ts = ts amp。 ， Next i Print 1, 改正后 X 增量值： 。 Format(detY(i), ) amp。 ts ts = For i = 1 To iStation ts = ts amp。 ， Next i Print 1, 結(jié)果 X 坐標(biāo)： 。 Format(reY(i), ) amp。 ts Print 1, ――計(jì)算者： Print 1, —— 檢核者： Print 1, ――――――――附合導(dǎo)線解算結(jié)果輸出完畢 Close 1 End Sub 39。弧度化為度 .分秒的形式：輸入弧度值，輸出度 .分秒（各占兩位） Public Function HuToDo(ByVal Hu As Double) As Single Dim du%, fen%, miao% Hu = Hu * 180 / PI du = Fix(Hu) Hu = (Hu du) * 60 fen = Fix(Hu) Hu = (Hu fen) * 60 miao = Fix(Hu + ) If miao = 60 Then fen = fen + 1 miao = 0 End If HuToDo = du + fen / 100 + miao / 10000 End Function