按間接平差原理寫的代碼，絕對有用，真實可靠 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#(), L#() '間接平差的系數陣、解向量、權陣和常數向量 '平差計