利用inputbox方法输入起始边、终边方位角。
工具/原料
1
电脑
2
EXCEL
方法/步骤
1
起始边、终边方位角是已知的，将起始边、终边方位角输入到程序中，进行后续的角度平差计算。
2
程序如下：'(2) 输入起始、终边方位角Sub jisuan3f()Dim n As Integern = ThisWorkbook.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
程序运行结果如下：
注意事项
要了解更多测量平差程序制作的内容可查看我的其他几篇经验。
下一篇：易武茶有桂花香吗