油库上机报告

rm6.ShowРForm4.HideР Form6.ClsР d1 = Val(Form2.Text1.Text): d2 = Val(Form2.Text2.Text): d0 = Val(Form2.Text3.Text)Р L1 = Val(Form2.Text4.Text): L2 = Val(Form2.Text5.Text): L0 = Val(Form2.Text6.Text)Р pi = 3.14: t1 = 0.00001: t2 = 0.00001: e = 0.0002: g = 9.8Р p = Val(Form2.Text7.Text): H0 = Val(Form2.Text8.Text)Р n = Val(Form4.Text1.Text): Z0 = Val(Form4.Text2.Text): V0 = 0Р A1 = (pi * d1 ^ 2) / 4: A2 = (pi * d2 ^ 2) / 4: A0 = (pi * d0 ^ 2) / 4Р B1 = L1 / (2 * g * d1): B2 = L2 / (2 * g * d2): B0 = L0 / (2 * g * d0)Р Z1 = Z0 - (V0 / 201)Р m = n / 2Р Call Module1.liul(Z0)Р For i = 1 To mР Form6.Print i, Q1(i)Р Next iРEnd SubРPrivate mand3_Click()РForm2.ShowРForm4.HideРEnd SubР3.6图形窗体程序:РPrivate mand1_Click()РForm4.ShowРForm5.HideРEnd SubР3.7流量窗体程序:РPrivate mand1_Click()РForm4.ShowРForm6.Hide