Private Sub Command1_Click()
Dim q As Single, w As Single, e As Single, r As Single
Dim t As Single, y As Single, u As Single, i As Single
Dim o As Single, p As Single, a As Single, s As Single
Dim d As Single, f As Single, g As Single, h As Single, j As Single, k As Single

q = Val(Text1.Text)
w = Val(Text2.Text)
e = Val(Text3.Text)
r = Val(Text12.Text)
t = Val(Text13.Text)
y = Val(Text10.Text)
u = Val(Text14.Text)
i = Val(Text15.Text)
o = Val(Text16.Text)
p = Val(Text18.Text)
a = Val(Text19.Text)
s = Val(Text20.Text)
d = Val(Text21.Text)
f = Val(Text22.Text)
g = Val(Text23.Text)
h = Val(Text24.Text)
j = Val(Text25.Text)
k = Val(Text26.Text)
i = (w * w - q * q) * 0.78539815 * 0.001 * t * ((e * 0.57735) / 2 + (e - (e * 0.57735)))
u = (w * w - q * q) * 0.78539815 * 0.001 * r * e
o = (w * w - q * q) * 0.78539815 * 0.001 * y * e
p = (q + w) / 2 * 3.1415926
h = e - 2
d = u / (1.2 * p * h) 它说这里谥出，不知何意，求教！！！！！
f = e * 2
g = e * 2
a = i / j / f
s = o / k / g
Text1.Text = q: Text2.Text = w
Text3.Text = e: Text12.Text = r
Text13.Text = t: Text10.Text = y
Text14.Text = u: Text15.Text = i
Text9.Text = o: Text18.Text = p
Text19.Text = a: Text20.Text = s
Text21.Text = d: Text22.Text = f
Text23.Text = g: Text24.Text = h
Text25.Text = j: Text26.Text = k
End Sub

Private Sub Command2_Click()

Me.PrintForm
End Sub