VB 计算一元方程

x 2 + x 3 + x 4 = 65 可以写。 x * 1 / 2) +x * 1 / 3) +x * 1 / 4) = 65

x * 1 2） +1 3） +1 4）） = 65。x = 65 / ((1 / 2) +1 / 3) +1 / 4))

如果是数值计算，则有几种算法。 如果这是一个象征性的解决方案，那就“太难了！ 您可以参考 Maple 或 Mathmatica 软件

将两个方程转换为标准形式：ax+by+c=0，加上 text1--text8，然后是方程 1 的 x 系数、y 系数和常数，以及方程 2 的 x 系数、y 系数、常数和 x 和 y 的解。

添加按钮，如下所示：

private sub command1_click()

dim a1 as single, a2 as single, b1 as single, b2 as single, c1 as single, c2 as single

a1 = val(text1)

a2 = val(text4)

b1 = val(text2)

b2 = val(text5)

c1 = val(text3)

c2 = val(text6)

if a1 * b2 - a2 * b1 = 0 then

if b1 * c2 - b2 * c1 <>0 then msgbox "方程组没有解！": exit sub

if b1 * c2 - b2 * c1 = 0 then msgbox "方程有无数个解！ ": exit sub

end if

text7 = (b1 * c2 - b2 * c1) / (a1 * b2 - a2 * b1)

text8 = (a2 * c1 - a1 * c2) / (a1 * b2 - a2 * b1)

end sub

切换到标准表单是没有意义的。 在高等数学中，求解公式直接派生自 ax+by=c 形式。