1樓：初人江驥
求解方程組形式為
a1*x+b1*y+c1=0
a2*x+b2*y+c2=0
只需將下面**複製到窗體中測試即可
private
subform_load()
dima1
assingle
dimb2
assingle
dima2
assingle
dimb1
assingle
dimc1
assingle
dimc2
assingle
dimrootx
assingle
dimrooty
assinglea1=
inputbox("請輸入第一個方程的x的係數：")b1=inputbox("請輸入第一個方程的y的係數：")c1=inputbox("請輸入第一個方程的常數項：")c1=-c1a2
=inputbox("請輸入第二個方程的x的係數：")b2=inputbox("請輸入第二個方程的y的係數：")c2=inputbox("請輸入第二個方程的常數項：
")c2=-c2rooty
=(a1*c2
-a2*c1)
/(a1*b2
-a2*b1)
rootx
=(c1-b1
*rooty)/a1
msgbox
"原方程組的解為："
&vbcrlf
&"x="
&rootx
&vbcrlf
&"y="
&rooty
&vbcrlf
endsub
2樓：
二元一次，無窮多解。。。沒有邊界限制的話沒有意義吧。
程式設計的話，就用公式法y=f（x），y是x的關於abc函式，
x任意賦值得y。。。沒意義啊，
3樓：匿名使用者
介面佈局
private sub command1_click()dim a as single, b as single, c as single
dim d as single, x1 as single, x2 as single
a = text1
b = text2
c = text3
d = b * b - 4 * a * cif d >= 0 then
x1 = (-b + sqr(d)) / (2 * a)x2 = (-b - sqr(d)) / (2 * a)text4 = format(x1, "0.##")text5 = format(x2, "0.##")else
msgbox "在實數範圍內無解"
end if
end sub
private sub command2_click()endend sub
private sub form_load()text1.text = ""
text2.text = ""
text3.text = ""
text4.text = ""
text5.text = ""
command1.caption = "計算"
command2.caption = "結束"
end sub
private sub form_load()text1.text = ""
text2.text = ""
text3.text = ""
text4.text = ""
text5.text = ""
command1.caption = "計算"
command2.caption = "結束"
end sub
解二元一次方程，二元一次方程求根公式？
代入消元法解二元一次方程組 1 基本思路 未知數又多變少。2 消元法的基本方法 將二元一次方程組轉化為一元一次方程。3 代入消元法 把二元一次方程組中一個方程的未知數用含另一個未知數的式子 表示出來，再代入另一個方程，實現消元，進而求得這個二元一次方程組的解。這個方法叫做代入消元法，簡稱代入法。4 ...
二元一次方程解法48 15X 二元一次方程解法 48 15X 1 6Y
解 48 15x 1 6y 得16 5x 1 6y 得96x 5y 得x 5 96 y 可求得原二元一次方程有一特解為 x0 5 y0 96 又原式可化為 96x 5y 0 所以原二次方程通解為 x 5 5t y 96 96t t為整數 一般來說,求二元一次方程的解都是求特殊的,如正整數解,非負整數...
二元一次方程組，二元一次方程組
x y 8m a x y 2m b 2x 5y 1 c a式 b式，得x y x y 8m 2m，即2x 10m,化簡得x 5m 將x 5m代入a式，得5m y 8m,即y 3m 將x 5m,y 3m代入c式，即2 5m 5 3m 1 10m 15m 1 化簡得m 1 5 x y 8m 1 x y ...