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

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

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

我也是纳闷了N天。

谢谢各位了  我去琢磨琢磨 可能那个function定义了comb050  但是他前后顺序颠倒了 我就没理解了

非常感谢