环评工具箱-沉淀泥污泥量计算源码

Private Sub Text1_Change()

    On Error Resume Next

    Dim A As Single

    Dim C1 As Single

    Dim c2 As Single

    Dim x As Single

    Dim p As Single

    Dim g As Single

    A = Text1.Text

    C1 = Text2.Text

    c2 = Text3.Text

    x = Text4.Text

    p = Text5.Text

    g = 100 A (C1 - c2) / p (100 - x)

    g = g / 1000

    Text6.Text = g

End Sub



Private Sub Text2_Change()

    On Error Resume Next

    Dim A As Single

    Dim C1 As Single

    Dim c2 As Single

    Dim x As Single

    Dim p As Single

    Dim g As Single

    A = Text1.Text

    C1 = Text2.Text

    c2 = Text3.Text

    x = Text4.Text

    p = Text5.Text

    g = 100 A (C1 - c2) / p (100 - x)

    g = g / 1000

    Text6.Text = g

End Sub



Private Sub Text3_Change()

    On Error Resume Next

    Dim A As Single

    Dim C1 As Single

    Dim c2 As Single

    Dim x As Single

    Dim p As Single

    Dim g As Single

    A = Text1.Text

    C1 = Text2.Text

    c2 = Text3.Text

    x = Text4.Text

    p = Text5.Text

    g = 100 A (C1 - c2) / p (100 - x)

    g = g / 1000

    Text6.Text = g

End Sub



Private Sub Text4_Change()

    On Error Resume Next

    Dim A As Single

    Dim C1 As Single

    Dim c2 As Single

    Dim x As Single

    Dim p As Single

    Dim g As Single

    A = Text1.Text

    C1 = Text2.Text

    c2 = Text3.Text

    x = Text4.Text

    p = Text5.Text

    g = 100 A (C1 - c2) / p (100 - x)

    g = g / 1000

    Text6.Text = g

End Sub



Private Sub Text5_Change()

    On Error Resume Next

    Dim A As Single

    Dim C1 As Single

    Dim c2 As Single

    Dim x As Single

    Dim p As Single

    Dim g As Single

    A = Text1.Text

    C1 = Text2.Text

    c2 = Text3.Text

    x = Text4.Text

    p = Text5.Text

    g = 100 A (C1 - c2) / p (100 - x)

    g = g / 1000

    Text6.Text = g

End Sub



Private Sub Text6_Click()

    On Error Resume Next

    Dim A As Single

    Dim C1 As Single

    Dim c2 As Single

    Dim x As Single

    Dim p As Single

    Dim g As Single

    A = Text1.Text

    C1 = Text2.Text

    c2 = Text3.Text

    x = Text4.Text

    p = Text5.Text

    g = 100 A (C1 - c2) / p (100 - x)

    g = g / 1000

    Text6.Text = g

End Sub