ALEX 發問時間: 電腦與網際網路程式設計 · 1 0 年前

用VB幫我解一題數學方程式

請問 X^5 - 3X^2 + X - 17 = 0

要怎麼用VB解出他的根?

1 個解答

評分
  • JJ
    Lv 7
    1 0 年前
    最佳解答

    本題用二分逼近法解根 (1.920822)

    Public Sub bisect()

    Dim a As Single, b As Single, c As Single, e As Single, fx As Single

    Dim done As Integer

    e = 0.000001

    a = InputBox("請輸入下限 a")

    b = InputBox("請輸入上限 b")

    done = 0

    Do

    c = (a + b) / 2

    fx = fun(c)

    If (Abs(fx) > e) Then

    If (fx * fun(a) > 0) Then

    a = c

    Else

    b = c

    End If

    Else

    done = 1

    End If

    Loop While (done = 0)

    Print "根為 " & c

    End Sub

    Public Function fun(x As Single) As Single

    fun = x ^ 5 - 3 * x * x + x - 17

    End Function

    如果有問題, 請來函討論. 不然, 我可能會錯失你再補充的疑點.

    參考資料: 我是電腦程式設計師
還有問題?馬上發問,尋求解答。