高手帮忙编个简易水准网平差VB代码.要求在文本文档中按一定格式输入观测数据 通过打开按扭将文本文档打开在TEXT1中 然后点平差按扭后 能将平差结果按一定格式显示在text2中....解决后加高分....
单一水准路线平差都可以....比如:在文本文档里
第一行：已知点个数，未知点个数，观测值个数
第二行：点号（已知点在前，未知点在后）
第三行：已知高程（顺序与上一行的点号对应）
第四行起：高差观测值，按“起点点号，终点点号，高差观测值”的顺序输入，换行继续输入下一组 如:
3,3,6
104,105,106,101,102,103
34.788,35.259,37.825
104,101,1.652,4.5
101,102,-0.418,3.1
105,102,0.714,3.4
102,103,1.243,3.8
106,103,-0.577,4.3
103,101,-0.786,2.5
输入后点平差按扭能在TEXT2中输出一定格式的平差结果:
如://==近似高程计算结果==\\
101：36.440
102：36.022
103：37.265
//==平差计算结果==\\：
每公里水准测量中误差= +/-11.8 mm
点号 初始高程(m) 高程改正数(m) 平差后高程(m)
101 36.4400 -0.0080 36.4320
102 36.0220 -0.0295 35.9925
103 37.2650 -0.0341 37.2309