环评工具箱-焚烧垃圾烟尘产生量源码

Dim q As Single

Private Sub Combo4_Click()
    If Combo4.Text = "露天焚烧" Then
        Combo1.Visible = False
        Label2(3).Visible = False
        Label2(2).Visible = False
        Text1.Visible = False
    Else
        Combo1.Visible = True
        Label2(3).Visible = True
        Label2(2).Visible = True
        Text1.Visible = True
    End If
End Sub

Private Sub Command2_Click()
    On Error Resume Next
    If Combo4.Text = "焚烧炉焚烧" Then
        If Combo1.Text = "城市系统多室炉" Then
            q = 7.71 * Text2.Text * (100 - Text1.Text) / 100
            'Print "q=" & q
        ElseIf Combo1.Text = "商业系统多室炉" Then
            q = 1.36 * Text2.Text * (100 - Text1.Text) / 100
            'Print "q=" & q
        ElseIf Combo1.Text = "商业系统单室炉" Then
            q = 4.54 * Text2.Text * (100 - Text1.Text) / 100
            Print "q=" & q
        ElseIf Combo1.Text = "投入式焚烧炉" Then
            q = 12.7 * Text2.Text * (100 - Text1.Text) / 100
            'Print "q=" & q
        ElseIf Combo1.Text = "家用焚烧炉" Then
            q = 6.8 * Text2.Text * (100 - Text1.Text) / 100
            Print "q=" & q
        Else
            q = 0
        End If
    ElseIf Combo4.Text = "露天焚烧" Then
        If Combo2.Text = "城市垃圾" Then
            If Combo3.Text = "烟尘" Then
                q = 7.26 * Text2.Text
            ElseIf Combo3.Text = "甲醛" Then
                q = 0.045 * Text2.Text
            ElseIf Combo3.Text = "一氧化碳" Then
                q = 38.56 * Text2.Text
            ElseIf Combo3.Text = "碳氢化合物（乙烷）" Then
                q = 2.27 * Text2.Text
            ElseIf Combo3.Text = "氮氧化物（NO）" Then
                q = 4.99 * Text2.Text
            ElseIf Combo3.Text = "有机酸（醋酸）" Then
                q = 6.8 * Text2.Text
            Else
                q = 0
            End If
        ElseIf Combo2.Text = "农业垃圾" Then
            If Combo3.Text = "烟尘" Then
                q = 7.71 * Text2.Text
            ElseIf Combo3 = "甲醛" Then
                q = 0.005 * Text2.Text
            ElseIf Combo3 = "一氧化碳" Then
                q = 27.22 * Text2.Text
            ElseIf Combo3 = "碳氢化合物（乙烷）" Then
                q = 0.91 * Text2.Text
            ElseIf Combo3 = "氮氧化物（NO）" Then
                q = 0.91 * Text2.Text
            ElseIf Combo3 = "有机酸（醋酸）" Then
                q = 5.9 * Text2.Text
            Else
                q = 0
            End If
        End If
    End If
    'Print "Q=" & Q
    Text6.Text = q
End Sub

Private Sub Form_Load()
    Combo4.AddItem "焚烧炉焚烧"
    Combo4.AddItem "露天焚烧"
    Combo1.AddItem "城市系统多室炉"
    Combo1.AddItem "商业系统多室炉"
    Combo1.AddItem "商业系统单室炉"
    Combo1.AddItem "投入式焚烧炉"
    Combo1.AddItem "家用焚烧炉"
    Combo2.AddItem "城市垃圾"
    Combo2.AddItem "农业垃圾"
    Combo3.AddItem "烟尘"
    Combo3.AddItem "甲醛"
    Combo3.AddItem "一氧化碳"
    Combo3.AddItem "碳氢化合物（乙烷）"
    Combo3.AddItem "氮氧化物（NO）"
    Combo3.AddItem "有机酸（醋酸）"
End Sub