为什么我一运行结果就是（1+4）/2=2.5   根本不循环？？？？
Private Sub Form_Load()

    Dim l As Double, u As Double, m As Double
   
    l = 1
    u = 4
    f = x ^ 3 + 4 * x ^ 2 - 10
     m = (u + l) / 2
            
    Do While (u - l) > 0.001
   
        
        If fm * fl = 0 Then Exit Do
        If fm * fl > 0 Then
            l = m
           
        Else
            u = m

        End If
    Loop
    MsgBox "x=" & m
End Sub

求的是x ^ 3 + 4 * x ^ 2 - 10 在（1，4）的近似根

If fm * fl = 0 Then Exit Do  变量fm,fl没有值，当然 fm * fl = 0 了，因此立即退出循环。
看不懂你的这个程序怎么解  x ^ 3 + 4 * x ^ 2 - 10 ，三次方程不是这样的算法吧。

你以为写成这样，就是f(l)了？？ 拜托，那最基本的都没学好

l = 1
f = x ^ 3 + 4 * x ^ 2 - 10
fl

[此贴子已经被作者于2017-5-6 18:48编辑过]