环评工具箱-道路起尘量计算源码

Private Sub Text1_Change()

    Dim v, u, t

    On Error Resume Next

    v = Text1.Text

    u = Text2.Text

    t = Text3.Text

    E = 0.000501 v 0.823 u 0.139 (t / 4)

    E = Format(E, "#####.###")

    Text6.Text = E

End Sub



Private Sub Text2_Change()

    Dim v, u, t

    On Error Resume Next

    v = Text1.Text

    u = Text2.Text

    t = Text3.Text

    E = 0.000501 v 0.823 u 0.139 (t / 4)

    E = Format(E, "#####.###")

    Text6.Text = E

End Sub



Private Sub Text3_Change()

    Dim v, u, t

    On Error Resume Next

    v = Text1.Text

    u = Text2.Text

    t = Text3.Text

    E = 0.000501 v 0.823 u 0.139 (t / 4)

    E = Format(E, "#####.###")

    Text6.Text = E

End Sub



Private Sub Text6_Click()

    Dim v, u, t

    On Error Resume Next

    v = Text1.Text

    u = Text2.Text

    t = Text3.Text

    E = 0.000501 v 0.823 u 0.139 (t / 4)

    E = Format(E, "#####.###")

    Text6.Text = E

End Sub