怎么用vbs文件制作一元三次方程计算器
你要处理的是aX^3 bX^2 cX D =0这种问题吧,系统的计算器估计完成不了你的任务 你是要自己写算法吗? a,b,c,d是传入系数,然后解除x。 参考下面代码: Public Function Math_SolveCubic(A As Integer, b As Integer, c As Integer, d As Integer) As String If Val(A) = 0 Then MsgBox "立方项系数不能等于 0!", vbCritical, "Error!": Exit Sub b = b / A: c = c / A: d = d / A A = ...全部
你要处理的是aX^3 bX^2 cX D =0这种问题吧,系统的计算器估计完成不了你的任务 你是要自己写算法吗? a,b,c,d是传入系数,然后解除x。
参考下面代码: Public Function Math_SolveCubic(A As Integer, b As Integer, c As Integer, d As Integer) As String If Val(A) = 0 Then MsgBox "立方项系数不能等于 0!", vbCritical, "Error!": Exit Sub b = b / A: c = c / A: d = d / A A = b b = c c = d If (A ^ 2 - 3 * b) = 0 Then ? ?X1 = (-A / 3) (A ^ 3 / 27 - c) ^ (1 / 3) ? ?Math_SolveCubic = Str(X1) Exit Sub End If If (A ^ 2 - 3 * b) <> 0 Then ? ?g = A ^ 2 - 3 * b ? ?h = A * b - 9 * c ? ?i = b ^ 2 - 3 * A * c ? ?Z = (-h Sqr(h ^ 2 - 4 * g * i)) / (2 * g) ? ?d = 3 * Z A ? ?e = 3 * Z ^ 2 2 * A * Z b ? ?f = Z ^ 3 A * Z ^ 2 b * Z c ? ?Y = 3 * f / (-e (e ^ 3 - 27 * f ^ 2) ^ (1 / 3)) ? ?X1 = Z 3 * f / ((e ^ 3 - 27 * f ^ 2) & (1 / 3) - e) ? ?Math_SolveCubic = Str(X1) ? ?End If End Function。收起