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 形式。