'vb题库的标准答案。
Private Sub Form_Activate()
X1 = 2
Do
x0 = X1
f = 3 * x0 ^ 3 - 4 * x0 ^ 2 - 5 * x0 + 13
f1 = 9 * x0 ^ 2 - 8 * x0 - 5
X1 = x0 - f / f1
Loop Until Abs(X1 - x0) < 0.0001
Print X1
End Sub
'请参考。
稍等，我给你做一下，要是只针对这个比较好做，要是任意的4次方程，还是要麻烦一点
无解。。。。。。。。。。。。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024