四等水准附和导线、闭合导线平差vb代码.docxVIP

程序说明： 数据录入文件的存储格式为： 按每一测站的距离、 高差形式存储， 平差之前需要输入测站总 数，依次点击“平差计算” 、“成果分析” 、“成果输出“。 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_Click() End End Sub Private Sub Command5_Click() Dim i As Integer n = Val If n = 0 Then MsgBox 请输入测站数 Exit Sub End If ReDim ht(n) As Single, ds(n) As Single, detht(n) As Single, zh(n) As Single = 文本文件 (*.txt)|*.txt| 所有文件 (*.*)|*.* strfilename = Open strfilename For Input As #1 For i = 1 To n Inpu