【正文】 將度 .分秒形式化為弧度：輸入為度 .分秒形式，輸出為弧度 Public Function DoToHu(ByVal DoFenMiao As Double) As Single Dim du%, fen%, miao%, angle du = Fix(DoFenMiao) DoFenMiao = (DoFenMiao du) * 100 fen = Fix(DoFenMiao) miao = (DoFenMiao fen) * 100 angle = du + fen / 60 + miao / 3600 DoToHu = angle * PI / 180 End Function Option Explicit Private Sub Command1_Click() Unload Me End Sub 。求 AB 的坐標(biāo)方位角，輸出的是弧度值 Public Function DirectAB(Xa, Ya, Xb, Yb) As Double Dim detX, detY, tana detX = Xb Xa detY = Yb Ya If Abs(detX) Then If detY 0 Then DirectAB = PI / 2 Else DirectAB = PI * 3 / 2 End If Else tana = detY / detX DirectAB = Atn(tana) If detX 0 Then DirectAB = PI + DirectAB ElseIf detX 0 And detY 0 Then DirectAB = PI * 2 + DirectAB End If End If End Function 39。 ， Next i Print 1, 結(jié)果 Y坐標(biāo)： 。 ts ts = For i = 1 To iStation ts = ts amp。 Format(reX(i), ) amp。 ， Next i Print 1, 改正后 Y增量值： 。 ts ts = For i = 1 To iStation 1 ts = ts amp。 Format(detX(i), ) amp。 ， Next i Print 1, 邊長觀測值 :。 ts ts = For i = 1 To iStation 1 ts = ts amp。 Format(sdAngle(i), ) amp。 ， Next i Print 1, 改正后的角度觀測值： 。 Dim ts As String, i% For i = 1 To iStation ts = ts amp。 Trim(Fix(Tedge / detTT))。 Format(detTY, +)。 Format(detTX, )。符合要求。 39。 ，角度限差： 。不要忘記關(guān)閉文件 End Sub Private Sub mnuSave_Click() = 文本文件（ *.txt） |*.txt|所有文件（ *.*） |*.* strFileName = Open strFileName For Output As 1 Print 1, ＝＝＝＝附合導(dǎo)線解算結(jié)果＝＝＝＝ detA = detA * iStation Print 1, 角度閉合差： 。 , Next i = amp。讀入邊長觀測值 Input 1, sEdge(i) = amp。 , sAngle(i) = DoToHu(sAngle(i)) Next i = amp。讀入角度觀測值 Input 1, sAngle(i) = amp。 Str(iStation) amp。 vbCrLf End If Input 1, iStation 39。 , amp。 , amp。 , amp。是否繼續(xù)讀起算坐標(biāo)，要根據(jù)路線類型來判斷 Input 1, Xc, Yc, Xd, Yd = amp。 Format(Yb, ) amp。 Format(Xb, ) amp。 Format(Ya, ) amp。 Format(Xa, ) amp。 Str(iType) amp。打開文件 Input 1, iType, Xa, Ya, Xb, Yb 39。打開對話框 strFileName = 39。 vbCrLf End Sub Private Sub mnuExit_Click() End End Sub Private Sub mnuOpen_Click() Dim i As Integer 39。 vbCrLf amp。 , amp。 Next i = amp。 Format(reY(i 1), ) amp。 Format(reX(i 1), ) amp。 坐標(biāo)計算結(jié)果： amp。 vbCrLf 39。 。 , detY(i) = detY(i) sEdge(i) * detTY / Tedge = amp。 vbCrLf For i = 1 To iStation 1 detX(i) = detX(i) sEdge(i) * detTX / Tedge = amp。改正坐標(biāo)增量：以邊長為權(quán) = amp。 附合要求。 邊長精度為 1/ amp。 Str(Fix(Tedge / detTT)) amp。 vbCrLf If Abs(detTT / Tedge) 1 / 2020 Then MsgBox 坐標(biāo)閉合差超限！ , , 計算終止 = amp。 , ddetTotal amp。 , detY amp。 坐標(biāo)閉合差： detX amp。 vbCrLf 39。 。 , detY(i 1) = sEdge(i 1) * Sin(sdAngle(i)) = amp。 vbCrLf For i = 2 To iStation detX(i 1) = sEdge(i 1) * Cos(sdAngle(i)) = amp。計算初始坐標(biāo)增量 = amp。 , Next i = amp。 vbCrLf For i = 1 To iStation = amp。 vbCrLf amp。 Format(HuToDo(sAngle(i)), ) amp。 改正后的角度： amp。若沒有超限，則分配角度閉合差，重新計算角度值和推算坐標(biāo)方位角 detA = detA / iStation 39。 vbCrLf amp。 vbCrLf 39。計算角度閉合差 If iType = 1 Then detA = sdAngle(i) aDC Else detA = sdAngle(i) aAB End If = amp。 Format(HuToDo(sdAngle(i)), ) amp。 Format(HuToDo(sdAngle(i)), ) amp。 方位角初值： amp。推算坐標(biāo)方位角，把推算得到的方位角初值給 sdAngle 數(shù)組 sdAngle(1) = aAB = amp。 終 止 坐 標(biāo) 方 位 角 amp。 Format(HuToDo(aDC), ) Else = amp。 vbCrLf amp。 起始坐標(biāo)方位角 amp。計算坐標(biāo)方位角 Dim aAB, aDC Dim i% aAB = DirectAB(Xa, Ya, Xb, Yb) = amp。角度閉合差 Dim detTX, detTY, detTT, Tedge 39。 站 iMark = iMark + 1 39。若還沒有輸完，初始化輸入界面輸入下一個測站 = = End If = 觀測數(shù)據(jù)輸入：第 amp。 vbCrLf If iMark = nMarks Then 39。 高差中數(shù)： amp。 距離： amp。 站： amp。 第 amp。卸載輸入窗體 Unload Me End Sub Private Sub cmdOK_Click() dist = Val() dH