用VB求二元一次方程的解

時間 2021-08-11 17:39:52

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的方程,叫做二元一次方程。使方程左右兩邊相等的未知數的值叫做方程的解。對二元一次方程概念的理解應注意以下幾點 等號兩邊的代數式是否是整式 在方程中 元 是指未知數,二元 是指方程中含有兩個未知數 未知數的項的次數都...