四等水准测量报告.doc(4)

测量实习报告

End Sub

Public Sub first() End Sub

Dim i As Integer

For i = 0 To 100

x(i) = 0 '视距差 y(i) = 0 '每站高差 z(i) = 0 '累计差 Next End Sub

Public Sub sideng()

Dim a As Single '后尺 黑面上丝 Dim b As Single '后尺 黑面下丝 Dim c As Single '后尺 黑面中丝 Dim d As Single '后尺 红面中丝 Dim e As Single '前尺 黑面上丝 Dim f As Single '前尺 黑面下丝 Dim g As Single '前尺 黑面中丝 Dim h As Single '前尺 红面中丝 Dim m As Single '后尺 尺长常数 Dim n As Single '前尺 尺长常数 Dim Zy As Single '总高差

a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = Val(Text4.Text) e = Val(Text5.Text) f = Val(Text6.Text) g = Val(Text7.Text) h = Val(Text8.Text) m = Val(Combo1.Text)

n = Val(Combo2.Text)

Text11.Text = (a - b) * 0.1 Text12.Text = (e - f) * 0.1

If Abs((a - b) * 0.1 - (e - f) * 0.1) >= 5 Then MsgBox "视距差超限", , "误差超限" End If

'后视距 '前视距 '