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  
我编程太烂了 一直改不过来，这是什么原因啊 ，哪位大神帮我改改啊

???

    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

or

    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
    
    If Combo7.Text = "Kg/s" Then Wguan = guan * 3600
    Exit Sub
    
    If 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

[ 本帖最后由 wube 于 2011-6-29 21:34 编辑 ]

If Combo3.Text = "Kg/s" Then Wqiao = Wqiao * 3600      
'if ..then ，并且在 then 后面有语句的话，就认为是一行 if 语句， 这种的语句是不需要 end if ，
'并且 if语句，这一行就结束。后面属另一个语句了。

'这行命令，不管前面判断如何，都一定执行的。
Exit Sub
ElseIf Combo7.Text = "Kg/s" Then Wguan = guan * 3600             '前面的 if 已结束了，所以 elseif 报错。
Exit Sub
ElseIf Cpqiao * Wqiao + Cpguan * Wguan = 0 Then MsgBox "流体参数不足，请输入"
Exit Sub
End If      '前面的IF是单行语句，自己结束的，所以这个 end if  没有配对的 if 开头。

谢谢帮助好了

谢谢帮助 解答能详细