[填空題] 以下是一個判斷一元二次方程ax²+bx+c=0根的方程的程序，請補充該程序。提示：
·當(dāng)a＜＞0時有兩個根．設(shè)delta=b²-4ac，當(dāng)delta＞0時，有兩個不同的實根．當(dāng)delta=0時，有兩個相同的實根。當(dāng)delta＜0時，有兩個不同的虛根。
·當(dāng)a=0，b＜＞0時，有一個根。
·當(dāng)a=0、b=0時，方程無意義。
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim sb As Single
Dim xb As Single
Dim re As Single
a = InputBox (“請輸入a的值”)
c = InputBox(“請輸入c的值”)
if 【10】 then
delta = b ^2- 4 * a * c
re = -b/(2 * a)
if 【11】 then
sb = Sqr (delta)/(2 * a)
Print “方程有兩個實根”
Elseif delta = 0 then
Print “方程有兩個相等實根”
Else
xb = Sqr( - delta)/(2 * a)
Print “方程有兩個虛要”
End if
Else
if 【12】 then
ygz = - b / c
Print “方程僅有一個根”

[10]a＜＞0

[11]delta＞0 [12]b＜＞0 本題的難點是塊結(jié)構(gòu)if語句的使用問題，在程序中用到if語句的嵌套使用。從三個填空來看，均為邏輯關(guān)系式。