Question

请教高手怎么在vba中用二分法求解高次方程，例如：Y=X^3+1.1*X^2+0.9*X-1.4,给定一个Y值，求解X。要代码

不用二分法也行，假设已知X的范围为0-1000

Answer 1

随便写了个，需要改的话追问：
Private Sub CommandButton1_Click()Dim x As Double, y As Double, tempy As Double, m As Double, n As Double
y = TextBox1m = 0
n = 1000
Do
x = (m + n) / 2
tempy = x ^ 3 + 1.1 * x ^ 2 + 0.9 * x - 1.4
If y > tempy Then
m = x
Else
n = x
End If
DoEvents
Loop While Abs(y - tempy) > 0.00000000000001
MsgBox x

End Sub

追问

感谢您的回答，麻烦您能给编成function的形式吗？谢谢，麻烦了。

追答

莫非是作业党？
程序都给你了，连改function都不会~~~
虽然改的时间比我打这段话的时间可能还要少点，我还是就此打住了，再见

追问

别生气，我不知道你所谓的作业党是什么意思，我也是刚学VBA不久，是个菜鸟，确实不是太懂，您的程序我也是看了半天才懂。我想编个EXCEL 计算程序需要用到function形式的反求函数。既然不屑作function，我再研究下你的SUB吧，仍感谢你。