风险评价-气体泄漏量

Dim K As Single

Dim p As Single

Dim p0 As Single

Dim cd As Single

Dim m As Single

Dim r As Single

Dim t As Single

Dim Y As Single

Dim s As Single

Dim qc As Single





Dim A As Single

Dim B As Single

Dim c As Single

Dim d As Single

Dim E As Single

Dim F As Single

Dim g As Single





Private Sub Command1_Click()

r = 8.314

s = Text1.Text

p = Text2.Text

p0 = Text3.Text

m = Text4.Text

t = Text5.Text

K = Text7.Text

On Error Resume Next



A = (2 / (K + 1)) ^ (K / (K + 1))

B = p0 / p



If Combo1.Text = "圆形" Then

cd = 1

ElseIf Combo1.Text = "三角形" Then

cd = 0.95

ElseIf Combo1.Text = "长方形" Then

cd = 0.9

Else

cd = 0.9

End If



If B <= A Then

Y = 1

Else

On Error Resume Next

c = B ^ (1 / K)

c = c Sqr(1 - B ^ ((K - 1) / K))

d = (K + 1) / 2

d = d ^ ((K + 1) / (K - 1))

d = d 2 / (K - 1)

d = Sqr(d)

c = c d

Y = c

End If

On Error Resume Next

E = (K + 1) / (K - 1)

F = (2 / (K + 1)) ^ E

g = Sqr(F m / (r t))

qc = Y cd s p * g

Text6.Text = qc



End Sub



Private Sub Form_Load()



Combo1.AddItem "圆形"

Combo1.AddItem "三角形"

Combo1.AddItem "长方形"



End Sub