1樓：匿名使用者
private sub command1_click()dim a, b, c as integerdim x1, x2 as double
a = val(text1.text)
b = val(text2.text)
c = val(text3.text)
if a <> 0 then
select case b ^ 2 - 4 * a * ccase is > 0
x1 = ((-1) * b + (b ^ 2 - 4 * a * c) ^ 0.5) / (2 * a)
x2 = ((-1) * b - (b ^ 2 - 4 * a * c) ^ 0.5) / (2 * a)
msgbox "原方程根為：x1=" & x1 & "x2=" & x2
case is = 0
x1 = (-1) * b / (2 * a)msgbox "原方程根為：x1=x2=" & x1case is < 0
msgbox "判別式小於零，原方程無解！"
end select
else
msgbox "一元二次函式二次項不可為零！"
end if
end sub
2樓：月影小龍
你的case語句後面的判定式怎麼變字串了，沒出現格式不正確或者無效的屬性值等提示錯誤嗎？
還是用if語句把
if b ^ 2 - 4 * a * c = 0 thenmsgbox "原方程根為：x1=x2=" & x1else
if b ^ 2 - 4 * a * c > 0 thenmsgbox "原方程根為：x1=" & x1 & "x2=" & x2
else
msgbox "判別式小於零，原方程無解！"
end if
end if
3樓：匿名使用者
val得到的不是整數型別，你可以用int轉換一下a =int( val(text1.text))b = int(val(text2.text))c = int(val(text3.
text))
4樓：
wingwf2000的解答正確
這個一元二次方程怎麼解，這個一元二次方程怎麼解？？
6 2x 8x 4 6 16x 2 8x 16x 2 8x 6 0 8x 2 4x 3 0 2x 1 4x 3 0 x 1 2,x 3 4 希望可以幫到你，滿意請採納 這是一元二次方程嗎？追問吧 6 2x 8x 4 6 16x 2 8x 16x 2 8x 6 0 8x 2 4x 3 0 x 4 4 ...
解一元二次方程 配方法，配方法解一元二次方程怎麼解
要使等式成立。2x y 0 xy 1解得 x 2 2 y 2 或者 x 2 2 y 2 2.a 1 x 2 x 1 0不是一元二次方程。所以a 1 0 a 1 x 1 2 b有兩個相等的實數根。b 0代入 b 1 x 2 a 3 x 5 0x 2 4x 5 0 x 5 x 1 0 所以 x 5或者x...
如何解一元二次方程，用配方法解一元二次方程的步驟是什麼？
灘上的流沙 方法 1.配方法 可解全部一元二次方程 2.公式法 可解全部一元二次方程 3.因式分解法 可解部分一元二次方程 因式分解法又分 提公因式法 公式法 又分 平方差公式 和 完全平方公式 兩種 和 十字相乘法 4.開方法 可解全部一元二次方程 一元二次方程的解法實在不行 你買個卡西歐的fx ...