Dim?a!,?b!,?c!,?d!,?x!
a?=?InputBox("a=",?"請輸入方程的系數:")
b?=?InputBox("b=",?"請輸入方程的系數:")
c?=?InputBox("c=",?"請輸入方程的系數:")
d?=?InputBox("d=",?"請輸入方程的系數:")
x?=?solution(a,?b,?c,?d)
Debug.Print?"所示方程的根x=";?x
End?Sub
Function?solution!(ByVal?a!,?ByVal?b!,?ByVal?c!,?ByVal?d!)
Dim?x0!,?x!,?f!,?fd!,?h!
x?=?1.5
Do
x0?=?x
f?=?a?*?x0?*?x0?*?x0?+?b?*?x0?*?x0?+?c?*?x0?+?d
fd?=?3?*?a?*?x0?*?x0?+?2?*?b?*?x0?+?c
h?=?f?/?fd
x?=?x0?-?h
Loop?While?(Abs(x?-?x0)?>=?0.00001)
solution?=?x
End?Function