按間接平差原理寫的代碼，絕對有用，真實可靠 Dim strFileName As String Dim nn%, un%, tn%, hn% '已知點個數(shù)，未知點個數(shù)，總點數(shù)，觀測值個數(shù) Dim Pname() As String '點名數(shù)組 Dim Hknown() As Double '已知高程數(shù)組，存放已知點高程和高程近似值 Dim be%(), en%() '觀測值的起點和終點編號數(shù)組，存儲的是點序號 Dim h#(), s#() '高差觀測值數(shù)組和距離觀測值數(shù)組 Dim A#(), X#(), P#(), L#() '間接平差的系數(shù)陣、解向量、權(quán)陣和常數(shù)向量 '平差計