1樓：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
2樓：匿名使用者
利用公式法來解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
3樓：匿名使用者
建立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 '判斷並輸出結果
一元二次方程題目大，一元二次方程題目大約30個
例1 解方程 1 3x 1 2 7 2 9x2 24x 16 11 分析 1 此方程顯然用直接開平方法好做，2 方程左邊是完全平方式 3x 4 2，右邊 11 0，所以 此方程也可用直接開平方法解。1 解 3x 1 2 7 3x 1 2 5 3x 1 注意不要丟解 x 原方程的解為x1 x2 2 解...
一元二次方程解法大全，一元二次方程的解法
暈 去找你老師要啊。百科上搜 很好找 建議問老師 因為老師是講的最容易使你理解的 並推薦使用求根公式 希望樓主。一元二次方程的解法 一般解法。1.配方法。可解全部一元二次方程 如 解方程 x 2 2x 3 0 解 把常數項移項得 x 2 2x 3 等式兩邊同時加1 構成完全平方式 得 x 2 2x ...
一元二次方程根與係數的關係，一元二次方程中 根與係數的關係是什麼
根與係數的關係簡單相關係數是用來度量定量變數間的線性相關關係。復相關係數是因變數與多個自變數之間的相關關係。例如，某種商品的需求量與其 水平 職工收入水平等現象之間呈現複相關系。韋達定理最重要的貢獻是對代數學的推進，它最早系統地引入代數符號，推進了方程論的發展，用字母代替未知數，指出了根與係數之間的...