1、起始边、终边方位角是已知的，将起始边、终边方位角输入到程序中，进行后续的角度平差计算。
2、程序如下：
'(2) 输入起始、终边方位角
Sub jisuan3f()
Dim n As Integer
n = ThisWorkbook.Worksheets("sheet1").Range("v8").Value
Dim ef As String
Dim sf As String
Dim nRow As Integer
Dim rstart, rend As Range
nRow = 5
sf = InputBox("********请输入起始边方位角**********", "方位角")
Set rstart = ThisWorkbook.Worksheets("sheet1").Cells(nRow, 8)
rstart.Value = dfm1(sf)
nRow = 5 + n * 2
ef = InputBox("********请输入终边方位角*********", "方位角")
Set rend = ThisWorkbook.Worksheets("sheet1").Cells(nRow, 8)
rend.Value = dfm1(ef)
End Sub
3、运行程序，输入起始边方位角。0度53分49秒直接输0.5349即可。
4、运行程序，输入终边方位角。
5、程序运行结果如下：
