新建 文本文档.txt

这里包含了测量计算过程中所需要的各种小程序。

Private Sub Command1_Click()
Dim h1, h2, u1, u2, s0, r, s As Double
h1 = Val(Text1.Text)
h2 = Val(Text2.Text)
u1 = Val(Text3.Text)
h1 = Val(Text4.Text)
s0 = Val(Text5.Text)
r = Val(Text6.Text) * 1000
s = s0 * (1 + (h1 + h2) / 2 / r) ^ (0 - 1) + (u1 + u2) * (h2 - h1) / (2 * 206264.806247096)
Text7.Text = s
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Dim h11, h22, r1, d0, d As Double
h11 = Val(Text8.Text)
h22 = Val(Text9.Text)
r1 = Val(Text10.Text) * 1000
d0 = Val(Text12.Text)
d = d0 * Sqr((1 - ((h22 - h11) / d0) ^ 2) / ((1 + h11 / r1) * (1 + h22 / r1)))
Text13.Text = d
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
End Sub
Private Sub Text10_Change()
End Sub