新建 文本文档.txt

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

Private Sub Command1_Click()
Dim fm, rm, t, b, qa, qb, E, aa, ab As Variant
Dim x1, x2, y1, y2, ym As Variant
x1 = Val(Text1.Text)
y1 = Val(Text2.Text)
x2 = Val(Text3.Text)
y2 = Val(Text4.Text)
rm = Val(Text5.Text)
b = Val(Text6.Text)
t = Tan(b * 3.14159265358979 / 180)
y = 0.0063949674227 * Cos(b * 3.14159265358979 / 180) * Cos(b * 3.14159265358979 / 180)
ym = (y1 + y2) / 2
fm = 206264.806247096 / (2 * rm * rm)
E = ym ^ 3 / (3 * rm * rm)
qa = ym - (yb - ya) / 6 - E
qb = ym + (yb - ya) / 6 - E
tt = y * y * t * (yb - ya) * ym * ym * 206264.806247096 / rm ^ 3
aa = fm * (xa - ab) * qa - E
bb = fm * (xb - xa) * qb - E
Text7.Text = aa
Text8.Text = aa
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub