四等水准附和导线、闭合导线平差VB代码

1、程序说明： 数据录入文件的存储格式为： 按每一测站的距离、 高差形式存储， 平差之前需要输入测站总 数，依次点击“平差计算” 、“成果分析” 、“成果输出“。Dim ds() As Single, ht() As Single, detht() As Single, zh() As Single ht 测量高差， deth 高差改正数， zh 点高程Dim fht As Single, n As Integer, fr As Single, sds As Single fht 高差闭合差， n 测站数， fr 高差闭 差合限差， sds 线路总长Private Sub Command3_Cli

2、ck()EndEnd SubPrivate Sub Command5_Click()Dim i As Integern = ValIf n = 0 ThenMsgBox 请输入测站数 Exit SubEnd IfReDim ht(n) As Single, ds(n) As Single, detht(n) As Single, zh(n) As Single= 文本文件 (*.txt)|*.txt| 所有文件 (*.*)|*.*strfilename =Open strfilename For Input As #1For i = 1 To nInput #1, ds(i), ht(i)If

3、 ds(i) 160 ThenMsgBox 第 & i & 测站视距超限 Exit SubEnd IfNext iClose #1MsgBox 数据已录入 End SubPrivate Sub Command6_Click()Dim i As Integer, sht As Single, x As SingleDim a As Single, b As Singlesds = 0sht = 0For i = 1 To nsds = sds + ds(i)sht = sht + ht(i)Next iIf Thena = Val b = Valfht = sht - (a - b)ElseIf

4、 Then a = Val fht = sht End IfEnd Ifzh(0) = aFor i = 1 To nx = -fht * ds(i) / sds detht(i) = x ht(i) = ht(i) + detht(i) zh(i) = zh(i - 1) + ht(i)Next iMsgBox 平差计算已完成End SubPrivate Sub Command7_Click()Dim x As Singlefr = 40 * Sqr(sds / 1000)x = Abs(fht)If x fr ThenMsgBox 线路全长高差闭合差超限，但系统已按照平差原理平差，如需保存

5、结果，请 点击“成果保存”按钮 Exit SubElseMsgBox 线路全长高差闭合差符合限差要求，如需保存结果，请点击“成果保存”按 钮End IfEnd SubPrivate Sub Command8_Click()Dim i As Integer= 文本文件 (*.txt)|*.txt| 所有文件 (*.*)|*.*strfilename =Open strfilename For Output As #2For i = 1 To nPrint #2, 第 & i & 测站视线长： & ds(i) & m,Print #2, 高差改正数： & Format(detht(i), ) & m,Print #2, 改后高差： & Format(ht(i), ) & m,Print #2, 高程： & Format(zh(i), ) & mNext iPrint #2, 路线全长： & Format(sds / 1000, ) & kmPrint #2, 路线全长高差闭合差： & Format(fht, ) & mPrint #2, 限差： &