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

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

发布：Windtreeliu2012-12-22 3:49分类：标签：

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

版权声明：本站未带原创标签文章为转载，仅在于传递更多信息，版权归原作者所有，如侵权请联系删除！
字数统计：本文共1349个字
文章标题：《环评工具箱-沉淀泥污泥量计算源码》
本文地址：http://ihb65.com/post-260.html
收录提示： 正在检查是否收录...

<< 环评工具箱-道路起尘量计算源码 | 钢铁工业水污染物排放标准 >>