用VB寫一元二次方程式<20點>

Question

誰可以幫幫我
寫一個程式，可以計算一元二次方程式AX^2+BX+C=0的兩根
程式中可以輸入A.B.C，可以輸出B^2-4ac之值，若B^2-4AC>=0，則可在計算並輸出其兩根為-B+-根號B^2-4ac/2a之值 <急 急 急>
如果可以詳細一點我會很感謝的^^

Answer 1

在表單上放入Text1,Text2,Text3,Label1,Command1，將下列程式寫入Command1內。
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
sqrt1 = b * b - 4 * a * c
Select Case sqrt1
Case 0
ROOT1 = -b / (2 * a)
Label1 = "有兩個等根：" & ROOT1
Case Is > 0
ROOT1 = (-b + Sqr(sqrt1)) / (2 * a)
ROOT2 = (-b - Sqr(sqrt1)) / (2 * a)
MSG = "有兩個相異的實根："
Label1 = MSG + Format(ROOT1, "###.#") + "和" + Format(ROOT2, "###.#")
Case Is < 0
Label1 = "有兩個虛根!"
End Select
End Sub

Answer 2

你的畫面可以如下
前面三格為 TextA, TextB, TextC 做為 A, B , C 的輸入用
後面兩格為 TextAns1, TextAnx2 做為 兩根 的輸入用.
黑色格子為 <按鈕> ButtonRoot.
("____" 祇是為了對準 2 的位置, 你不必畫.)

____2
□ X + □ X + □ = 0
兩根為 □, □
■

<按鈕> ButtonRoot 的程式如下
Dim a As Single, b As Single, c As Single

a = TextA.Text
b = TextB.Text
c = TextC.Text

TextAns1.Text = (-b + Sqr(b * b - 4 * a * c)) / 2 * a
TextAns2.Text = (-b - Sqr(b * b - 4 * a * c)) / 2 * a

2006-12-05 06:33:55 補充：
抱歉, 沒有看清楚你的需要.因為字數所限, 將分兩次補充.圖形的部分...(TextD, 請插入"兩根為 ..." 之上)判別式 B^2 - 4AC = □

2006-12-05 06:36:59 補充：
程式的部分 (又得分兩次了) ...Dim a As Single, b As Single, c As Single, d As Singlea = TextA.Textb = TextB.Textc = TextC.Textd = b * b - 4 * a * c

2006-12-05 06:37:37 補充：
TextD.text = dIf (d >= 0) Then TextAns1.Text = (-b + Sqr(d)) / 2 * a TextAns2.Text = (-b - Sqr(d)) / 2 * aElse TextAns1.Text = "沒有實根 " TextAns2.Text = "沒有實根 "End If