风险评价蒸发量计算

Private Sub Combo1_Click()

    On Error Resume Next

    Dim Q2 As Single



    T0 = Text8.Text

    TB = Text9.Text

    s = Text10.Text

    h = Text11.Text

    t = Text13.Text

    If Combo1.Text = "水泥地" Then

        Y = 1.1

        Z = 0.000000129

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "土地" Then

        Y = 0.9

        Z = 0.00000043

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "干土地" Then

        Y = 0.3

        Z = 0.00000023

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "湿地" Then

        Y = 0.6

        Z = 0.00000033

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "砂砾地" Then

        Y = 2.5

        Z = 0.0000011

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    Else

    End If

    Text12.Text = Q2



End Sub



Private Sub Combo2_Click()

    On Error Resume Next

    Dim Q3 As Single

    'A1 As Single

    'A2 As Single

    'A3 As Single

    'A4 As Single

    p = Text14.Text

    T0 = Text15.Text

    u = Text16.Text

    R1 = Text17.Text

    m = Text19.Text

    If Combo2.Text = "不稳定A,B" Then

        A = 0.003846

        N = 0.2

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    ElseIf Combo2.Text = "中性C" Then

        A = 0.004685

        N = 0.25

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    ElseIf Combo2.Text = "稳定E,F" Then

        A = 0.005285

        N = 0.3

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    Else

    End If

End Sub



Private Sub Form_Load()

    Combo1.AddItem "水泥地"

    Combo1.AddItem "土地"

    Combo1.AddItem "干土地"

    Combo1.AddItem "湿地"

    Combo1.AddItem "砂砾地"

    Frame1.Visible = True

    Frame2.Visible = False

    Frame3.Visible = False

    Frame4.Visible = False

    Combo2.AddItem "不稳定A,B"

    Combo2.AddItem "中性C"

    Combo2.AddItem "稳定E,F"

End Sub



Private Sub TabStrip1_Click()

    If TabStrip1.SelectedItem = "闪蒸蒸发" Then

        Frame1.Visible = True

        Frame2.Visible = False

        Frame3.Visible = False

        Frame4.Visible = False

    ElseIf TabStrip1.SelectedItem = "热量蒸发" Then

        Frame2.Visible = True

        Frame1.Visible = False

        Frame3.Visible = False

        Frame4.Visible = False

    ElseIf TabStrip1.SelectedItem = "质量蒸发" Then

        Frame3.Visible = True

        Frame1.Visible = False

        Frame2.Visible = False

        Frame4.Visible = False

    ElseIf TabStrip1.SelectedItem = "总蒸发量" Then

        Frame3.Visible = False

        Frame1.Visible = False

        Frame2.Visible = False

        Frame4.Visible = True

    Else

    End If

End Sub



Private Sub Text1_Change()

    Dim F As Single

    Dim Q1 As Single

    WT = Text1.Text

    L1 = Text2.Text

    cp = Text3.Text

    TL = Text4.Text

    TB = Text5.Text

    h = Text6.Text

    F = cp (TL - TB) / h

    Q1 = F WT / L1

    Text7.Text = Q1

End Sub



Private Sub Text10_Change()

    On Error Resume Next

    Dim Q2 As Single



    T0 = Text8.Text

    TB = Text9.Text

    s = Text10.Text

    h = Text11.Text

    t = Text13.Text

    If Combo1.Text = "水泥地" Then

        Y = 1.1

        Z = 0.000000129

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "土地" Then

        Y = 0.9

        Z = 0.00000043

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "干土地" Then

        Y = 0.3

        Z = 0.00000023

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "湿地" Then

        Y = 0.6

        Z = 0.00000033

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "砂砾地" Then

        Y = 2.5

        Z = 0.0000011

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    Else

    End If

    Text12.Text = Q2

End Sub



Private Sub Text11_Change()

    On Error Resume Next

    Dim Q2 As Single



    T0 = Text8.Text

    TB = Text9.Text

    s = Text10.Text

    h = Text11.Text

    t = Text13.Text

    If Combo1.Text = "水泥地" Then

        Y = 1.1

        Z = 0.000000129

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "土地" Then

        Y = 0.9

        Z = 0.00000043

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "干土地" Then

        Y = 0.3

        Z = 0.00000023

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "湿地" Then

        Y = 0.6

        Z = 0.00000033

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "砂砾地" Then

        Y = 2.5

        Z = 0.0000011

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    Else

    End If

    Text12.Text = Q2

End Sub



Private Sub Text13_Change()

    On Error Resume Next

    Dim Q2 As Single



    T0 = Text8.Text

    TB = Text9.Text

    s = Text10.Text

    h = Text11.Text

    t = Text13.Text

    If Combo1.Text = "水泥地" Then

        Y = 1.1

        Z = 0.000000129

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "土地" Then

        Y = 0.9

        Z = 0.00000043

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "干土地" Then

        Y = 0.3

        Z = 0.00000023

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "湿地" Then

        Y = 0.6

        Z = 0.00000033

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "砂砾地" Then

        Y = 2.5

        Z = 0.0000011

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    Else

    End If

    Text12.Text = Q2

End Sub



Private Sub Text14_Change()

    On Error Resume Next

    Dim Q3 As Single

    'A1 As Single

    'A2 As Single

    'A3 As Single

    'A4 As Single

    p = Text14.Text

    T0 = Text15.Text

    u = Text16.Text

    R1 = Text17.Text

    m = Text19.Text

    If Combo2.Text = "不稳定A,B" Then

        A = 0.003846

        N = 0.2

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    ElseIf Combo2.Text = "中性C" Then

        A = 0.004685

        N = 0.25

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    ElseIf Combo2.Text = "稳定E,F" Then

        A = 0.005285

        N = 0.3

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    Else

    End If

End Sub



Private Sub Text15_Change()

    On Error Resume Next

    Dim Q3 As Single

    'A1 As Single

    'A2 As Single

    'A3 As Single

    'A4 As Single

    p = Text14.Text

    T0 = Text15.Text

    u = Text16.Text

    R1 = Text17.Text

    m = Text19.Text

    If Combo2.Text = "不稳定A,B" Then

        A = 0.003846

        N = 0.2

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    ElseIf Combo2.Text = "中性C" Then

        A = 0.004685

        N = 0.25

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    ElseIf Combo2.Text = "稳定E,F" Then

        A = 0.005285

        N = 0.3

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    Else

    End If

End Sub



Private Sub Text16_Change()

    On Error Resume Next

    Dim Q3 As Single

    'A1 As Single

    'A2 As Single

    'A3 As Single

    'A4 As Single

    p = Text14.Text

    T0 = Text15.Text

    u = Text16.Text

    R1 = Text17.Text

    m = Text19.Text

    If Combo2.Text = "不稳定A,B" Then

        A = 0.003846

        N = 0.2

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    ElseIf Combo2.Text = "中性C" Then

        A = 0.004685

        N = 0.25

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    ElseIf Combo2.Text = "稳定E,F" Then

        A = 0.005285

        N = 0.3

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    Else

    End If

End Sub



Private Sub Text17_Change()

    On Error Resume Next

    Dim Q3 As Single

    'A1 As Single

    'A2 As Single

    'A3 As Single

    'A4 As Single

    p = Text14.Text

    T0 = Text15.Text

    u = Text16.Text

    R1 = Text17.Text

    m = Text19.Text

    If Combo2.Text = "不稳定A,B" Then

        A = 0.003846

        N = 0.2

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    ElseIf Combo2.Text = "中性C" Then

        A = 0.004685

        N = 0.25

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    ElseIf Combo2.Text = "稳定E,F" Then

        A = 0.005285

        N = 0.3

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    Else

    End If

End Sub



Private Sub Text18_Click()

    On Error Resume Next

    Dim Q3 As Single

    'A1 As Single

    'A2 As Single

    'A3 As Single

    'A4 As Single

    p = Text14.Text

    T0 = Text15.Text

    u = Text16.Text

    R1 = Text17.Text

    m = Text19.Text

    If Combo2.Text = "不稳定A,B" Then

        A = 0.003846

        N = 0.2

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    ElseIf Combo2.Text = "中性C" Then

        A = 0.004685

        N = 0.25

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    ElseIf Combo2.Text = "稳定E,F" Then

        A = 0.005285

        N = 0.3

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    Else

    End If

End Sub



Private Sub Text19_Change()

    On Error Resume Next

    Dim Q3 As Single

    'A1 As Single

    'A2 As Single

    'A3 As Single

    'A4 As Single

    p = Text14.Text

    T0 = Text15.Text

    u = Text16.Text

    R1 = Text17.Text

    m = Text19.Text

    If Combo2.Text = "不稳定A,B" Then

        A = 0.003846

        N = 0.2

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    ElseIf Combo2.Text = "中性C" Then

        A = 0.004685

        N = 0.25

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    ElseIf Combo2.Text = "稳定E,F" Then

        A = 0.005285

        N = 0.3

        Q3 = A p m / (8.314 T0) u ^ ((2 - N) / (2 + N)) R1 ^ ((4 + N) / (2 + N))

        Text18.Text = Q3

    Else

    End If

End Sub



Private Sub Text2_Change()

    On Error Resume Next

    Dim F As Single

    Dim Q1 As Single

    WT = Text1.Text

    L1 = Text2.Text

    cp = Text3.Text

    TL = Text4.Text

    TB = Text5.Text

    h = Text6.Text

    F = cp (TL - TB) / h

    Q1 = F WT / L1

    Text7.Text = Q1

End Sub



Private Sub Text20_Change()

    On Error Resume Next

    Q11 = Text7.Text

    Q21 = Text12.Text

    Q31 = Text18.Text



    QT = Q11 Text20.Text + Q21 Text21.Text + Q31 Text22.Text

    Text23 = QT

End Sub



Private Sub Text21_Change()

    On Error Resume Next

    Q11 = Text7.Text

    Q21 = Text12.Text

    Q31 = Text18.Text



    QT = Q11 Text20.Text + Q21 Text21.Text + Q31 Text22.Text

    Text23 = QT

End Sub



Private Sub Text22_Change()

    On Error Resume Next

    Q11 = Text7.Text

    Q21 = Text12.Text

    Q31 = Text18.Text

    QT = Q11 Text20.Text + Q21 Text21.Text + Q31 Text22.Text

    Text23 = QT

End Sub



Private Sub Text23_Click()

    On Error Resume Next

    Q11 = Text7.Text

    Q21 = Text12.Text

    Q31 = Text18.Text



    QT = Q11 Text20.Text + Q21 Text21.Text + Q31 Text22.Text

    Text23 = QT

End Sub



Private Sub Text3_Change()

    On Error Resume Next

    Dim F As Single

    Dim Q1 As Single

    WT = Text1.Text

    L1 = Text2.Text

    cp = Text3.Text

    TL = Text4.Text

    TB = Text5.Text

    h = Text6.Text

    F = cp (TL - TB) / h

    Q1 = F WT / L1

    Text7.Text = Q1

End Sub



Private Sub Text4_Change()

    On Error Resume Next

    Dim F As Single

    Dim Q1 As Single

    WT = Text1.Text

    L1 = Text2.Text

    cp = Text3.Text

    TL = Text4.Text

    TB = Text5.Text

    h = Text6.Text

    F = cp (TL - TB) / h

    Q1 = F WT / L1

    Text7.Text = Q1

End Sub



Private Sub Text5_Change()

    On Error Resume Next

    Dim F As Single

    Dim Q1 As Single

    WT = Text1.Text

    L1 = Text2.Text

    cp = Text3.Text

    TL = Text4.Text

    TB = Text5.Text

    h = Text6.Text

    F = cp (TL - TB) / h

    Q1 = F WT / L1

    Text7.Text = Q1

End Sub



Private Sub Text6_Change()

    On Error Resume Next

    Dim F As Single

    Dim Q1 As Single

    WT = Text1.Text

    L1 = Text2.Text

    cp = Text3.Text

    TL = Text4.Text

    TB = Text5.Text

    h = Text6.Text

    F = cp (TL - TB) / h

    Q1 = F WT / L1

    Text7.Text = Q1

End Sub



Private Sub Text7_Click()

    On Error Resume Next

    Dim F As Single

    Dim Q1 As Single

    WT = Text1.Text

    L1 = Text2.Text

    cp = Text3.Text

    TL = Text4.Text

    TB = Text5.Text

    h = Text6.Text

    F = cp (TL - TB) / h

    Q1 = F WT / L1

    Text7.Text = Q1

End Sub



Private Sub Text8_Change()

    On Error Resume Next

    Dim Q2 As Single



    T0 = Text8.Text

    TB = Text9.Text

    s = Text10.Text

    h = Text11.Text

    t = Text13.Text

    If Combo1.Text = "水泥地" Then

        Y = 1.1

        Z = 0.000000129

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "土地" Then

        Y = 0.9

        Z = 0.00000043

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "干土地" Then

        Y = 0.3

        Z = 0.00000023

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "湿地" Then

        Y = 0.6

        Z = 0.00000033

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "砂砾地" Then

        Y = 2.5

        Z = 0.0000011

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    Else

    End If

    Text12.Text = Q2

End Sub



Private Sub Text9_Change()

    On Error Resume Next

    Dim Q2 As Single



    T0 = Text8.Text

    TB = Text9.Text

    s = Text10.Text

    h = Text11.Text

    t = Text13.Text

    If Combo1.Text = "水泥地" Then

        Y = 1.1

        Z = 0.000000129

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "土地" Then

        Y = 0.9

        Z = 0.00000043

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "干土地" Then

        Y = 0.3

        Z = 0.00000023

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "湿地" Then

        Y = 0.6

        Z = 0.00000033

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z t))

    ElseIf Combo1.Text = "砂砾地" Then

        Y = 2.5

        Z = 0.0000011

        Q2 = Y s (T0 - TB) / (h Sqr(3.14 Z * t))

    Else

    End If

    Text12.Text = Q2

End Sub