Cpqiao = Val(Text3.Text)
    Cpguan = Val(Text8.Text)
    Wqiao = Val(Text6.Text)
    Wguan = Val(Text11.Text)
If Combo3.Text = "Kg/s" Then Wqiao = Wqiao * 3600
Exit Sub
ElseIf Combo7.Text = "Kg/s" Then Wguan = guan * 3600
Exit Sub
ElseIf Cpqiao * Wqiao + Cpguan * Wguan = 0 Then MsgBox "流体参数不足，请输入"
Exit Sub
End If

If Cpqiao * Wqiao <> 0 Then
    Q = Abs(Cpqiao * Wqiao * (Tqiao1 - Tqiao2))
    If Cpguan * Wguan = 0 Then
        If Wguan <> 0 Then
            Cpguan = Q / Abs(Wguan * (Tguan1 - Tguan2))
            Text8.Text = Str(Cpguan)
        End If
        If Cpguan <> 0 Then
            Wguan = Q / Abs(Cpguan * (Tguan1 - Tguan2))
            Text11.Text = Str(Wguan)
        End If
    End If
 End If
这段程序有问题哈  运行时说else 没if  
我编程太烂了 一直改不过来，这是什么原因啊 ，哪位大神帮我改改啊

谢谢帮助好了

谢谢帮助 解答能详细