风险评价-两相泄漏量计算

Private Sub Command1_Click()

Dim FV As Single

Dim Pm As Single

Dim Qlg As Single



On Error Resume Next

A = Text1.Text

cp = Text3.Text

Tlg = Text4.Text

Tc = Text5.Text

h = Text7.Text

p1 = Text8.Text

P2 = Text9.Text

cd = 0.8

p = Text2.Text

Pc = 0.55 p

FV = cp (Tlg - Tc) / h

Pm = 1 / (FV / p1 + (1 - FV) / P2)

Qlg = cd A Sqr(2 Pm (p - Pc))

Text6.Text = Qlg

End Sub



Private Sub Text1_Change()

Dim FV As Single

Dim Pm As Single

Dim Qlg As Single



On Error Resume Next

A = Text1.Text

cp = Text3.Text

Tlg = Text4.Text

Tc = Text5.Text

h = Text7.Text

p1 = Text8.Text

P2 = Text9.Text

cd = 0.8

p = Text2.Text

Pc = 0.55 p

FV = cp (Tlg - Tc) / h

Pm = 1 / (FV / p1 + (1 - FV) / P2)

Qlg = cd A Sqr(2 Pm (p - Pc))

Text6.Text = Qlg

End Sub



Private Sub Text2_Change()

Dim FV As Single

Dim Pm As Single

Dim Qlg As Single



On Error Resume Next

A = Text1.Text

cp = Text3.Text

Tlg = Text4.Text

Tc = Text5.Text

h = Text7.Text

p1 = Text8.Text

P2 = Text9.Text

cd = 0.8

p = Text2.Text

Pc = 0.55 p

FV = cp (Tlg - Tc) / h

Pm = 1 / (FV / p1 + (1 - FV) / P2)

Qlg = cd A Sqr(2 Pm (p - Pc))

Text6.Text = Qlg

End Sub



Private Sub Text3_Change()

Dim FV As Single

Dim Pm As Single

Dim Qlg As Single



On Error Resume Next

A = Text1.Text

cp = Text3.Text

Tlg = Text4.Text

Tc = Text5.Text

h = Text7.Text

p1 = Text8.Text

P2 = Text9.Text

cd = 0.8

p = Text2.Text

Pc = 0.55 p

FV = cp (Tlg - Tc) / h

Pm = 1 / (FV / p1 + (1 - FV) / P2)

Qlg = cd A Sqr(2 Pm (p - Pc))

Text6.Text = Qlg

End Sub



Private Sub Text4_Change()

Dim FV As Single

Dim Pm As Single

Dim Qlg As Single



On Error Resume Next

A = Text1.Text

cp = Text3.Text

Tlg = Text4.Text

Tc = Text5.Text

h = Text7.Text

p1 = Text8.Text

P2 = Text9.Text

cd = 0.8

p = Text2.Text

Pc = 0.55 p

FV = cp (Tlg - Tc) / h

Pm = 1 / (FV / p1 + (1 - FV) / P2)

Qlg = cd A Sqr(2 Pm (p - Pc))

Text6.Text = Qlg

End Sub



Private Sub Text5_Change()

Dim FV As Single

Dim Pm As Single

Dim Qlg As Single



On Error Resume Next

A = Text1.Text

cp = Text3.Text

Tlg = Text4.Text

Tc = Text5.Text

h = Text7.Text

p1 = Text8.Text

P2 = Text9.Text

cd = 0.8

p = Text2.Text

Pc = 0.55 p

FV = cp (Tlg - Tc) / h

Pm = 1 / (FV / p1 + (1 - FV) / P2)

Qlg = cd A Sqr(2 Pm (p - Pc))

Text6.Text = Qlg

End Sub







Private Sub Text6_Click()

Dim FV As Single

Dim Pm As Single

Dim Qlg As Single



On Error Resume Next

A = Text1.Text

cp = Text3.Text

Tlg = Text4.Text

Tc = Text5.Text

h = Text7.Text

p1 = Text8.Text

P2 = Text9.Text

cd = 0.8

p = Text2.Text

Pc = 0.55 p

FV = cp (Tlg - Tc) / h

Pm = 1 / (FV / p1 + (1 - FV) / P2)

Qlg = cd A Sqr(2 Pm (p - Pc))

Text6.Text = Qlg

End Sub



Private Sub Text7_Change()

Dim FV As Single

Dim Pm As Single

Dim Qlg As Single



On Error Resume Next

A = Text1.Text

cp = Text3.Text

Tlg = Text4.Text

Tc = Text5.Text

h = Text7.Text

p1 = Text8.Text

P2 = Text9.Text

cd = 0.8

p = Text2.Text

Pc = 0.55 p

FV = cp (Tlg - Tc) / h

Pm = 1 / (FV / p1 + (1 - FV) / P2)

Qlg = cd A Sqr(2 Pm (p - Pc))

Text6.Text = Qlg

End Sub



Private Sub Text8_Change()

Dim FV As Single

Dim Pm As Single

Dim Qlg As Single



On Error Resume Next

A = Text1.Text

cp = Text3.Text

Tlg = Text4.Text

Tc = Text5.Text

h = Text7.Text

p1 = Text8.Text

P2 = Text9.Text

cd = 0.8

p = Text2.Text

Pc = 0.55 p

FV = cp (Tlg - Tc) / h

Pm = 1 / (FV / p1 + (1 - FV) / P2)

Qlg = cd A Sqr(2 Pm (p - Pc))

Text6.Text = Qlg

End Sub



Private Sub Text9_Change()

Dim FV As Single

Dim Pm As Single

Dim Qlg As Single



On Error Resume Next

A = Text1.Text

cp = Text3.Text

Tlg = Text4.Text

Tc = Text5.Text

h = Text7.Text

p1 = Text8.Text

P2 = Text9.Text

cd = 0.8

p = Text2.Text

Pc = 0.55 p

FV = cp (Tlg - Tc) / h

Pm = 1 / (FV / p1 + (1 - FV) / P2)

Qlg = cd A Sqr(2 Pm (p - Pc))

Text6.Text = Qlg

End Sub