VB 找到二次方程 20 的根

private sub command1_click()dim a, b, c, x1, x2, d as singlea = val(

b = val(

c = val(

d = b ^ 2 - 4 * a * cif d > 0 then

x1 = (-b + sqr(d)) / (2 * a)x2 = (-b - sqr(d)) / (2 * a)elseif d = 0 then

x1 = (-b / 2 * a)

x2 = x1

else: msgbox "方程式沒有真正的根源"

end if

x1=" & x1 & "" & "x2=" & x2end sub

在窗體上繪製四個樣式框，以及乙個具有以下名稱的命令按鈕：text1、text2、text3、text4、commond1

執行程式後，在文字框 text1、text2 和 text3 中分別輸入公式中 a、b 和 c 的值，結果將顯示在文字框 text4 中。

建立乙個新專案，新增 5 個文字控制項，新增乙個按鈕控制項，然後新增 **：

private sub command1_click()

if (val( *val( -4 * val( *val( = 0 then

val("-" & sqr(val( *val( -4 * val( *val( (2 * val(

val("-" & sqr(val( *val( -4 * val( *val( (2 * val(

elsemsgbox "這個二次方程沒有根！", vbinformation, "iq"

end if

end sub

其中 text1 是二次係數，text2 是主係數，text3 是常數，text4 是 x1，text5 是 x2這是一張截圖： 您可以新增一些觸控。 （注意：此程式不是為了查詢虛根而實現的）。

該程式不是由中級程式設計師完成的。

第一種叫通式，標準形式是y=ax+bx+c，只要在計算的時候知道任意3點，就可以得到三元方程組求解析公式，比較簡單，這裡就不舉例了

第二種方法稱為頂點公式，標準形式為 y=a（x h） 2 c，當乙個頂點和另乙個點已知時使用

頂點公式：如果二次函式的頂點是 （3,5） 和 （4,0），則求其解析公式

設函式的關係為 y a（x h） 2 c，頂點 （3,5），並傳遞點 （4,0），則 h 3，c 5，代入 x 4，y 0 即可找到 a 的值，從而可以得到其解析公式

注意：如果你還是不明白，可以使用以下方法：因為函式的頂點（3,5），所以函式的對稱軸是x 3，那麼函式必須通過（4,0）的對稱點（2,0），所以有3個點，可以用通式求解

第三種方法稱為交集公式，標準形式為y a（x m）（x n），當問題中函式和x軸存在兩個交點和另乙個點時使用，例如：二次函式通過（4,0）、（1,0）和（0,3）並找到其解析公式

設函式關係為 y a（x m）（x n） 在 （4,0）、（1,0） 和 （0,3） 上，當 x 4 y 為 0 時，則 （x m） 或 （x n） 必須有乙個為 0，設為 （x m） 則為 m 4 以同樣的方式，n 1 則原始函式的解析公式為 y a（x 4）（x 1）， 代入 x 0，y 3 即可求解

注意：交集公式可以在通式中找到，但比較麻煩