LIST_COMBO5 = Combo5.ListIndex
Select Case LIST_COMBO5
Case 0: αi = comb050()
Case 1: αi = comb051()
Case 2: αi = comb052()
Case 3: αi = comb053()
Case 4: αi = comb054()
End Select


为什么不是combo5啊。这个comb050()是什么意思啊
我的combo5下面有5个下拉选项
With Combo5
Combo5.AddItem "单相强制圆管湍流低粘"
Combo5.AddItem "单相强制圆管湍流空气"
Combo5.AddItem "单相强制圆管湍流粘性"
Combo5.AddItem "单相强制圆管过渡低粘"
Combo5.AddItem "单相强制圆管层流粘性"
End With

Function comb050() As Double
Vi = Gmi * 4 / (ρi * pai * Nt * Bih * Bih)
input2 = InputBox("液体受热输入0，液体冷却输入1")
If input2 = 0 Then
comb050 = 0.023 * (λi / Bih) * ((Bih * Vi * ρi / μi) ^ 0.8) * ((Cpi * μi / λi) ^ 0.4)
ElseIf input2 = 1 Then
comb050 = 0.023 * (λi / Bih) * ((Bih * Vi * ρi / μi) ^ 0.8) * ((Cpi * μi / λi) ^ 0.3)
Else
MsgBox ("不在计算范围！")
Exit Function
End If
End Function

这个comb050()是什么意思啊

函数

我也纳闷了N天，我是想对这个软件进行改编，这串语句我愣住了。按您的意思，可以改成啥呢

我的combox下拉有5个文字选项。每一个文字选项选项对应的取值不一样

我也是纳闷了N天。

猜测大概是这意思～
但是程序不完整～改成这样才正常～变量我先给初始值～因为有些不能为0～

Option Explicit

Dim Vi As Double, Gmi As Double, ρi As Double, pai As Double, Nt As Double, Bih As Double, input2 As Integer, λi As Double, μi As Double, Cpi As Double

Private Sub Combo5_Click()
Dim LIST_COMBO5 As Integer, αi As Double

    LIST_COMBO5 = Combo5.ListIndex
    
    Select Case LIST_COMBO5
    
        Case 0:
            αi = comb050()
        Case 1:
            αi = comb051()
        Case 2:
            αi = comb052()
        Case 3:
            αi = comb053()
        Case 4:
            αi = comb054()
            
    End Select
    
    MsgBox αi
    
End Sub

Private Sub Form_Load()

    With Combo5
    
        Combo5.AddItem "单相强制圆管湍流低粘"
        Combo5.AddItem "单相强制圆管湍流空气"
        Combo5.AddItem "单相强制圆管湍流粘性"
        Combo5.AddItem "单相强制圆管过渡低粘"
        Combo5.AddItem "单相强制圆管层流粘性"
        
    End With
    
    Vi = 1: Gmi = 1: ρi = 1: pai = 1: Nt = 1: Bih = 1: λi = 1: μi = 1: Cpi = 1: input2 = 0
        
End Sub

Private Function comb050() As Double

    Vi = Gmi * 4 / (ρi * pai * Nt * Bih * Bih)
    input2 = InputBox("液体受热输入0，液体冷却输入1")
    
    If input2 = 0 Then
        comb050 = 0.023 * (λi / Bih) * ((Bih * Vi * ρi / μi) ^ 0.8) * ((Cpi * μi / λi) ^ 0.4)
    ElseIf input2 = 1 Then
        comb050 = 0.023 * (λi / Bih) * ((Bih * Vi * ρi / μi) ^ 0.8) * ((Cpi * μi / λi) ^ 0.3)
    Else
        MsgBox ("不在计算范围！")
        Exit Function
    End If
    
End Function

Private Function comb051() As Double

    Vi = Gmi * 4 / (ρi * pai * Nt * Bih * Bih)
    input2 = InputBox("液体受热输入0，液体冷却输入1")
    
    If input2 = 0 Then
        comb051 = 0.023 * (λi / Bih) * ((Bih * Vi * ρi / μi) ^ 0.8) * ((Cpi * μi / λi) ^ 0.4)
    ElseIf input2 = 1 Then
        comb051 = 0.023 * (λi / Bih) * ((Bih * Vi * ρi / μi) ^ 0.8) * ((Cpi * μi / λi) ^ 0.3)
    Else
        MsgBox ("不在计算范围！")
        Exit Function
    End If
    
End Function

Private Function comb052() As Double
    
    Vi = Gmi * 4 / (ρi * pai * Nt * Bih * Bih)
    input2 = InputBox("液体受热输入0，液体冷却输入1")
    
    If input2 = 0 Then
        comb052 = 0.023 * (λi / Bih) * ((Bih * Vi * ρi / μi) ^ 0.8) * ((Cpi * μi / λi) ^ 0.4)
    ElseIf input2 = 1 Then
        comb052 = 0.023 * (λi / Bih) * ((Bih * Vi * ρi / μi) ^ 0.8) * ((Cpi * μi / λi) ^ 0.3)
    Else
        MsgBox ("不在计算范围！")
        Exit Function
    End If
    
End Function

Private Function comb053() As Double

    Vi = Gmi * 4 / (ρi * pai * Nt * Bih * Bih)
    input2 = InputBox("液体受热输入0，液体冷却输入1")
    
    If input2 = 0 Then
        comb053 = 0.023 * (λi / Bih) * ((Bih * Vi * ρi / μi) ^ 0.8) * ((Cpi * μi / λi) ^ 0.4)
    ElseIf input2 = 1 Then
        comb053 = 0.023 * (λi / Bih) * ((Bih * Vi * ρi / μi) ^ 0.8) * ((Cpi * μi / λi) ^ 0.3)
    Else
        MsgBox ("不在计算范围！")
        Exit Function
    End If
    
End Function

Private Function comb054() As Double

    Vi = Gmi * 4 / (ρi * pai * Nt * Bih * Bih)
    input2 = InputBox("液体受热输入0，液体冷却输入1")
    
    If input2 = 0 Then
        comb054 = 0.023 * (λi / Bih) * ((Bih * Vi * ρi / μi) ^ 0.8) * ((Cpi * μi / λi) ^ 0.4)
    ElseIf input2 = 1 Then
        comb054 = 0.023 * (λi / Bih) * ((Bih * Vi * ρi / μi) ^ 0.8) * ((Cpi * μi / λi) ^ 0.3)
    Else
        MsgBox ("不在计算范围！")
        Exit Function
    End If
    
End Function

呵呵，几个Function 你用的公式都一样啊，我估计那个公式肯定不同哦，虽然我看不懂那个公式

因为他缺阿～我怎可能知道缺的是什么东西～就随便拿来顶～
就语法来看～一定有这些功能～只是他没写出来～

再说他的AddItem应该要写在Select Case的前面～但是他颠倒了～
也是怪怪的地方之一～加上一堆变量不知道哪来的～也没赋值～

[ 本帖最后由 wube 于 2011-7-4 21:42 编辑 ]

个人感觉他应该是把程序代码一部分一部分复制出来的，而且没有完全复制