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.配方法 可解全部一元二次方程 如 解方程 x 2 2x 3 0 解 把常數項移項得 x 2 2x 3 等式兩邊同時加1 構成完全平方式 得 x 2 2x 1 4 因式分解得 x 1 2 4 解得 x1 3,x2 1 用配方法解一元二次方程小口訣 二次係數化為一 常數要往右邊移 一...
解二元一次方程,解二元一次方程
窩窩小夜 一般解法 1.配方法 可解全部一元二次方程 如 解方程 x 2 2x 3 0 解 把常數項移項得 x 2 2x 3 等式兩邊同時加1 構成完全平方式 得 x 2 2x 1 4 因式分解得 x 1 2 4 解得 x1 3,x2 1 用配方法解一元二次方程小口訣 二次係數化為一 常數要往右邊移...
二元一次方程怎麼解,二元一次方程怎麼解
白日衣衫盡 1,概念 方程兩邊都是整式,含有兩個未知數,並且含有未知數的項的次數都是1的方程,叫做二元一次方程。使方程左右兩邊相等的未知數的值叫做方程的解。對二元一次方程概念的理解應注意以下幾點 等號兩邊的代數式是否是整式 在方程中 元 是指未知數,二元 是指方程中含有兩個未知數 未知數的項的次數都...