摘　要：《測量學》是測繪工程專業入門的基礎課程，初學者在其學習當中會遇到大量的計算，比如說水準測量成果整理、導線測量成果整理、碎步測量成果整理等等。如何把這些繁瑣的計算簡單化，是當代大學生需要加強的能力。

　　關鍵詞：期刊論文網,測繪工程,水準測量,大學生

　　一、前言

　　學科交叉在現在看來是一件再也普遍的不過的事情了，但是如何有效的利用自己學過的知識來處理另一門學科的問題，是我們要重視的環節。在這個大數據時代，計算機早已成為這個時代的主流，我們曾經學習過的《大學物理》、《高等數學》中的計算問題，純手工的計算方法應該不再是當代大學生得以提倡的了，很多時候，我們需要“更快”、“更準”，那么我們就可以利用自己學過的編程語言(Visual Basic)來處理這些繁瑣的計算。當然，在此基礎上，需要我們比較熟練地掌握Visual Basic的各種控件和命令，只有這樣我們才能達到事半功倍的效果!

　　二、VB編程語言在《測量學》中應用舉例

　　此文只簡單介紹Visual Basic 6.0在水準測量中的應用。根據水準路線構成的圖形結構劃分，大體上可以分為單一水準路線和水準網兩類。單一水準路線又可分為閉合水準路線、附合水準路線、支水準路線，在這里只討論附合水準路線這種情況。

　　1、附合水準路線的內業計算的步棸：

　　(1)水準測量內業的主要任務就是進行高差改正，因此在次之前，必須進行高差閉合差的和容許閉合差誤差的計算，即fh=∑h測—(H終—H起)，fh容=20√L。

　　(2)對于計算出來的高差閉合差進行分析，如果小于或等于容許閉合差，則進行近似平差，求得高差改正數，即Vi=-fh/∑L*Li或Vi=-fh/∑n*ni。其中∑L為水準路線的總長度，Li為每測段的長度，∑n為總的測站數，ni為每測段的測站數。

　　(3)高差閉合差計算完后，應滿足以下條件：∑Vi=-fh。準確無誤之后，改正后的高差hi改=hi+Vi和正高HA=HB+h也就隨之計算出來。

　　2、Visual Basic 6.0編寫的計算界面及相關程序

　　(1)Visual Basic 6.0編寫的計算界面

　　圖1 附合水準路線計算數據結果截圖

　　(2)程序源代碼

　　Private Sub Command1_Click()

　　Dim a1 As Double, a2 As Double, a3 As Double, a4 As Double, a5 As Double, a6 As Double, a7 As Double, a8 As Double, a9 As Double, a10 As Double, f1 As Integer, v As Double, a11 As Integer, a12 As Integer, a13 As Integer, a14 As Integer, a15 As Integer

　　a1 = Val(Text1.Text):a2 = Val(Text2.Text):a3 = Val(Text3.Text):a4 = Val(Text4.Text)

　　a5 = Val(Text6.Text):a6 = Val(Text7.Text):a7 = Val(Text8.Text):a8 = Val(Text9.Text)

　　a9 = Val(Text21.Text):a10 = Val(Text25.Text)

　　f1 = (a5 + a6 + a7 + a8 - (a10 - a9)) * 1000 '角度閉合差即：fh=∑h測—(H終—H起),單位是mm

　　If f1 > 20 * (a1 + a2 + a3 + a4) ^ (1 / 2) Or f1 < -20 * (a1 + a2 + a3 + a4) ^ (1 / 2) Then

　　x = MsgBox("閉合差超限", 2, 提示信息)

　　End If

　　v = (Fix(((-1 * f1 / (a1 + a2 + a3 + a4)) * 100 + 0.5)) / 100) '每公里的改正數,四舍五入保留兩位小數

　　If v > 0 Then

　　a11 = Fix(v * a1 + 0.5) '改正數四舍五入取整,單位為mm

　　a12 = Fix(v * a2 + 0.5):a13 = Fix(v * a3 + 0.5):a14 = Fix(v * a4 + 0.5)

　　Else

　　a11 = Fix(v * a1 - 0.5):a12 = Fix(v * a2 - 0.5):a13 = Fix(v * a3 - 0.5):a14 = Fix(v * a4 - 0.5)

　　End If

　　a15 = a11 + a12 + a13 + a14 '改正數的和的相反數要與閉合差相等,即∑Vi=-fh

　　If v < 0 And (-1 * a15) < f1 Then Text14.Text = a14 - (f1 + a15) '消除湊整誤差

　　If v < 0 And (-1 * a15) > f1 Then Text14.Text = a14 - (f1 + a15)

　　If v > 0 And (-1 * a15) < f1 Then Text14.Text = a14 - (f1 + a15)

　　If v > 0 And (-1 * a15) < f1 Then Text14.Text = a14 - (f1 + a15)

　　a15 = a11 + a12 + a13 + Val(Text14.Text) '消除湊整誤差后的改正數之和

　　Text16.Text = a11 / 1000 + a5 '改正后的高差,單位要統一為m

　　Text17.Text = a12 / 1000 + a6:Text18.Text = a13 / 1000 + a7

　　Text19.Text = Val(Text14.Text) / 1000 + a8:Text11.Text = a11

　　Text12.Text = a12:Text13.Text = a13:Text15.Text = a15

　　Text20.Text = Val(Text16.Text) + Val(Text17.Text) + Val(Text18.Text) + Val(Text19.Text)

　　Text22.Text = a9 + Val(Text16.Text) '通過高差改正后的值與已知點的高程之和算出未知點的高程

　　Text23.Text = Val(Text22.Text) + Val(Text17.Text)

　　Text24.Text = Val(Text23.Text) + Val(Text18.Text):Text5.Text = a1 + a2 + a3 + a4

　　Text10.Text = a6 + a7 + a8 + a5

　　End Sub

　　三、結論

　　1、從運行結果來看，此程序是正確的。

　　2、相比于純手工計算，這個程序相對來說提高了效率，達到了“更快”、“更準”的要求。

　　3、作為當代大學生，我們要做到舉一隅能與三隅反，不要只僅僅局限于課本上的方法，我們要嘗試著用新的方法、新的理念來解決一些問題，即使我們的方法不是最優，但是我們可以肯定的說：“我們嘗試過!”

　　參考文獻：

　　[1] 李玉寶.測量學.西南交通大學出版社

　　[2] 黎明.Visual basic程序設計基礎.四川科學技術出版社