Question

求用VB 解个一元三次方程！！高悬赏！！！

A,B,C,D,S,Pc都已定义，就是后面如何能把Sy求出来！

Private Sub Command1_Click()
Dim pc As Double, n As Double, s As Double, beng As Double, B As Double, q As Double, p As Double, sy As Double,
pc = Val(Text1.Text)
s = Val(Text3.Text)
n = Val(Text4.Text)
Const A As Double = 900 * 10
Const C As Double = ((200 + 6) * 0.6 * 0.6 * 353 * 100000) / 293
Const D As Double = (293 - 6 * 10 ^ (-6)) * 0.6 * 0.6 * 353 * 10 ^ 5 / 293
B = 900 * 0.038 ^ 4 / (2 * 0.5 ^ 2 * (900 / n ^ 2) * 0.02 ^ 4)

Text5.Text = Str(sy)

Answer 1

打字太麻烦了。。。 看图片吧，我只是介绍思路，按照这个思路，可以写出你的要求程序，但是不是准确的，算不出根号下的具体值得，但是可以无限接近。。。

图片发不上来，郁闷，压缩文件里面两张图片。。。自己下载下来看看吧