1樓：匿名使用者
你要有具體要求呀，求出來的解要用小數表示，還是保留根號？
2樓：匿名使用者
這個啊...你得說清楚
vb中用if then 語句編寫求一元二次方程的**
3樓：聽不清啊
private sub command1_click()a = val(text1)
b = val(text2)
c = val(text3)
d = b * b - 4 * a * cif b >= 0 then
x1 = (-b + sqr(d)) / (2 * a)x2 = (-b - sqr(d)) / (2 * a)text4 = x1
text5 = x2
else
msgbox "該方程無實數根！"
end if
end sub
用vb怎麼編一元二次方程計算？
4樓：anrc丶
畫三個文字框，一個按鈕。文字框內容為一元二次函式的係數，**如下：
private sub command1_click()dim a, b, c, x1, x2 '宣告變數a = val(text1.text)
b = val(text2.text)
c = val(text3.text) '給變數賦值if b ^ 2 - 4 * a * c >= 0 thenx1 = (-b + sqr(b ^ 2 - 4 * a * c)) / (2 * a)
x2 = (-b - sqr(b ^ 2 - 4 * a * c)) / (2 * a) '利用求根公式計算
print "方程的解為：" & x1 & ";" & x2else
print "方程沒有實數解"
end if '判斷並輸出結果
end sub
5樓：匿名使用者
利用公式法來解private sub command1_click()
dim a as double, b as double, c as double
a = val(text1.text)
b = val(text2.text)
c = val(text3.text)
if a = 0 then
msgbox "a不能為0"
goto r
end if
if b ^ 2 - 4 * a * c < 0 thenlabel1.caption = "實數範圍內無解"
label2.caption = ""
else
label1.caption = "x1=" & (-b + sqr(b ^ 2 - 4 * a * c)) / 2 * a
label2.caption = "x2=" & (-b - sqr(b ^ 2 - 4 * a * c)) / 2 * a
end if
r:end subprivate sub form_load()text1.text = ""
text2.text = ""
text3.text = ""
label1.caption = ""
label2.caption = "'"
command1.caption = "計算"
end sub
6樓：匿名使用者
建立text1,text2,text3
dim a,b,c,x1,x2 '宣告變數val(text1.text)=a
val(text2.text)=b
val(text3.text)=c '給變數賦值if b^2-4ac>=0 then
x1=(-b+sqr(b^2-4ac))/2ax2=(-b-sqr(b^2-4ac))/2a '利用求根公式計算
print "方程的解為：" & x1 & ";" & x2else
print "方程沒有實數解"
end if '判斷並輸出結果
vb解一元二次方程
7樓：
private sub command1_click()
a = val(text1, text) text1, text中間是.不是,
b = val(text2, text) 同樣
c = val(taxt3, text) 同樣
x1 = val(text4, text) 同樣，這句刪除！
x2 = val(text5, text) 同樣，這句也刪除！
d = b ^ 2 - 4 * a * c
if d > 0 then x1 = (-b + sqr(d)) / (2 * a): x2 = (-b - sqr(d)) / (2 * a): k = 2 不能這樣，應該：
if d > 0 then
x1 = (-b + sqr(d)) / (2 * a)
x2 = (-b - sqr(d)) / (2 * a)
k = 2
elself d=0 then x1=(-b)/(2*a):x2=x1:k=1 不能這樣，應該：
elself d=0 then
x1=(-b)/(2*a)
x2=x1
k=1else
k = 0
end if
我不知道你的k是做什麼的如果k沒有用處，可以去掉，完整**：
private sub command1_click()
dim a as single, b as single, c as single, d as single
a = val(text1.text)
b = val(text2.text)
c = val(taxt3.text)
d = b ^ 2 - 4 * a * c
if d >= 0 then
text4.text = (-b + sqr(d)) / (2 * a)
text5.text = (-b - sqr(d)) / (2 * a)
else
text4.text = str(-b/ (2 * a)) & "+" & str(sqr(-d)/ (2 * a)) & "i"
text5.text = str(-b/ (2 * a)) & "-" & str(sqr(-d)/ (2 * a)) & "i"
msgbox"無實數解！"
end if
end sub
8樓：匿名使用者
你的**x1和x2是求出來了,但它不會在text4和text5中顯示出來啊
text4.text=str(x1)
text5.text=str(x2)
9樓：匿名使用者
c=val(t"a"xt.text)
then 後面要回車
else if中間空格
還有變數設定了沒？
10樓：匿名使用者
我不知道啊，做任務的原良我吧
關於vb程式設計 解一元二次方程
11樓：元珏
module1
sub main()
dim a, b, c, x, x1, x2 as integerconsole.write("輸入二次項係數a:")a = console.
readline()console.write("輸入一次項係數b:")b = console.
readline()console.write("輸入常數項c:")c = console.
readline()if a = 0 then
if b = 0 then
if c = 0 then
console.write("方程的解為任意實數")else
console.write("方程無解")end if
else
console.write("方程的解為:x =" & (-c / b))
end if
elseif b ^ 2 - 4 * a * c < 0 thenconsole.write("方程無解")elseif b ^ 2 - 4 * a * c = 0 thenconsole.write("方程有兩個相等的實數根:
x =" & -b / (2 * a))
else
console.write("方程有兩個不相等的實數根:x1=" & (-b + str(b ^ 2 - (4 * a * c))) / (2 * a) & "x2=" & (-b - str(b ^ 2 - (4 * a * c))) / (2 * a))
end if
end sub
end module
12樓：匿名使用者
private sub command1_click()
dim a as integer, b as integer, c as integer, d as integer
a = val(text1.text)
b = val(text2.text)
c = val(text3.text)
d = b * b - 4 * a * c
if d < 0 then
label4.caption = "此方程無解"
elseif d = 0 then
label4.caption = "此方程有兩個相等的根，x1=" & str(-b / (2 * a))
'x=[-b]/2a
elseif d > 0 then
label4.caption = "此方程有兩個不相等的根，x1=" & str(round((-b + sqr(d)) / (2 * a), 0)) _
& " x2=" & str(round((-b - sqr(d)) / (2 * a), 0))
end if
end sub張志晨
用vb編寫一個程式求一元二次方程ax2+bc+c=0的根
13樓：匿名使用者
private sub command1_click()
me.cls
on error goto p:
dim a as single, b as single, c as single, x1 as single, x2 as single
a = val(text1.text)
b = val(text2.text)
c = val(text3.text)if (b * b - 4 * a * c) > 0 then
x1 = (-b + sqr((b ^ 2 - 4 * a * c))) / (2 * a)
x2 = (-b - sqr((b ^ 2 - 4 * a * c))) / (2 * a)
print "x1="; x1
print "x2="; x2
elseif (b * b - 4 * a * c) = 0 then
x = -b / 2 / a
print "x="; x
else
print "無實數根。"
end if
p:end subxi 本來不想發源**的。希望你能自己去**上看····希望能對你有幫助
初一元二次方程，初二 一元二次方程
2x kx 4 x 6 0 2kx 2 8x x 2 6 0 2k 1 x 2 8x 6 0 方程沒有實數根 0 即 b 2 4ac 64 4 6 2k 1 064 48k 24 0 k 11 6 將x 1代入3x 2x m 0得 3 2 m 0 m 5 設雞場長為n米，則寬為 35 n 米 2，列...
一元二次方程的性質，一元二次方程的性質
內容來自使用者 你說的對 中考數學一元二次方程試題分類彙編已知，求代數式的值 2.二次函式與x軸有 個交點。3.若關於x的一元二次方程m 2x 1 0有實數根，則m的取值範圍是 a.m 1 b.m 1且m 0c.m 1 d.m 1且m 04.已知關於的一元二次方程有兩個不相等的實數根 1 求的取值範...
一元二次方程配方法，用配方法解一元二次方程的步驟是什麼？
一元二次方程配問題你只要在保證x 2前的係數為1的前提下，在算式後面加上x係數n 在這裡方便回答用n代替 除以2再平方，再減去n除以2再平方.例如這題f x x2 2x 1 變為f x x 2 2x 1 1 1 x 1 2 2 就可以看出對稱軸為 1 0，1 上最大f 1 2，最小f 0 1 2，1...