Question

设计一个用二分法求方程x^4-x^3-4x^2+1=0在区间〔0，1〕上的一个实根。（VB编程题）

Answer 1

Sub s()
    Dim l#, u#, m#
    l = 0
    u = 1
    Do While u - l > 10 ^ -10
        m = (u + l) / 2
        y = m ^ 4 - m ^ 3 - 4 * m ^ 2 + 1
        If y = 0 Then Exit Do
        If y > 0 Then
            l = m
        Else
            u = m
        End If
    Loop
    MsgBox "x=" & m
End Sub