'程序可以繼續(xù)完善的：
'1、如果指定區(qū)間無解,怎么辦
'2、迭代過程跳出了指定區(qū)間,怎么辦
'3、如何使用界面直接輸入方程式
Private Sub Command1_Click()
Dim 上限 As Single, 下限 As Single, 誤差 As Single, 自變量 As Single, k As Single
Const 允許誤差 = 0.0001

上限 = Val(InputBox("請輸入?yún)^(qū)上限", , 4))
Do
下限 = Val(InputBox("請輸入?yún)^(qū)下限", , 3))
If 下限 < 上限 Then Exit Do
MsgBox "上、下限不匹配!", vbExclamation
Loop

誤差 = 上限 - 下限
自變量 = 誤差 / 2 + 下限
Do Until 誤差 < 允許誤差
k = 導(dǎo)數(shù)(自變量)
If k = 0 Then
自變量 = 自變量 + 允許誤差
Else
x = 自變量 - 方程(自變量) / k
誤差 = Abs(自變量 - x)
自變量 = x
End If
Loop
Print "從區(qū)間（"; 下限; ","; 上限; "）出發(fā),求得方程近似解為："; 自變量
Print "估計誤差小于："; 誤差
End Sub
Private Function 方程(x As Single) As Single
方程 = (x - 1) * x - 8
End Function
Private Function 導(dǎo)數(shù)(x As Single) As Single
導(dǎo)數(shù) = 2 * x - 1
End Function