平面和高程控制测量VB程序设计报告.docVIP

测绘程序编制实习报告 PAGE 7 测绘C101 蒲浡轩 106684 习题7.1 7 题目：习题7.1平面和高程控制网平差 蒲浡轩 测绘C101班 106684 余数7 设计思路 题目为：平面控制网和高程控制网的平差 流程图 2、界面设计 上面为开始主程序，在该页面进行高程控制网平差，点击平面控制启动下面的程序页面进行平面控制网平差。 功能设计 通过菜单实现程序的各个功能，通过菜单启动Common Dialog Control控件输入txt文档，读取txt里面的高程或平面控制网数据，然后点击各个计算菜单进行平差计算 二、算法及代码实现 1、Form1代码： Dim strFileName As String Dim nn%, un%, tn%, hn% 已知点个数，未知点个数，总点数，观测值个数 Dim Pname() As String 点名数组 Dim Hknown() As Double 已知高程数组，存放已知点高程和高程近似值 Dim bE%(), en%() 观测值的起点和终点编号数组，存储的是点序号 Dim h#(), s#() 高差观测值数组和距离观测值数组 Dim a#(), x#(), P