EXCEL VBA测量平差程序编写7-输入方位角

1、起始边、终边方位角是已知的，将起始边、终边方位角输入到程序中，进行后续的角度平差计算。

2、程序如下：'(2) 输入起始、终边方位角Sub jisuan3f()Dim n 钽吟篑瑜As Integern = ThisWork芟鲠阻缒book.Worksheets("sheet1").Range("v8").ValueDim ef As StringDim sf As StringDim nRow As IntegerDim rstart, rend As RangenRow = 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、程序运行结果如下：