VB解一元n次方程的程序

3366.67.6732=(Q+16.323264)×(43.3+78.6/Q^0.25)^0.75
方程中是Q的0.25次方，以及后面一个括号的0.75次方。
我需要这个方程的VB求解程序，就是源代码，希望大家帮帮忙啊~~~多谢多谢了~~~

3366.67.6732=(Q+16.323264)×(43.3+78.6/Q^0.25)^0.75
方程中是Q的0.25次方，以及后面一个括号的0.75次方。

用迭代法吧，
步骤一、令f(Q)=(Q+16.323264)×(43.3+78.6/Q^0.25)^0.75－3366.67.6732

第一、Q的取值范围肯定得大于零，因为只有正数才有负0.25次方。
第二、f(Q)在0到正无穷的范围内不止一个值等于0，你不信的话可以对f(Q)求导。
第三、先取Q＝0.00001时，f(Q)=451.108543
第四、先取Q＝0.0001时，f(Q)=-844.1056416
这两个数之间其中一个大于0，另外一个小于0，则这两Q值的中间必然存在方程的解，所以再取Q＝两者的中间值，看是否大于0，然后再取中间值，如此迭代下去，基本就能求出Q使f(Q)=0,这就是方程的解。

你好！ (X+16.323264)*(43.3+78.6/X^0.25)^0.75-3366.67.6732=0 二分法 127.973632513112 3366.67.6732 ? 3366.67 打字不易，采纳哦！

用迭代法吧， 步骤一、令f(Q)=(Q+16.323264)×(43.3+78.6/Q^0.25)^0.75－3366.67.6732 第一、Q的取值范围肯定得大于零，因为只有正数才有负0.25次方。 第二、f(Q)在0到正无穷的范围内不止一个值等于0，你不信的话可以对f(Q)求导。 第三、先取Q＝0.00001时，f(Q)=451.108543 第四、先取Q＝0.0001时，f(Q)=-844.1056416 这两个数之间其中一个大于0，另外一个小于0，则这两Q值的中间必然存在方程的解，所以再取Q＝两者的中间值，看是否大于0，然后再取中间值，如此迭代下去，基本就能求出Q使f(Q)=0,这就是方程的解。