[填空題] 以下是一個判斷一元二次方程ax²+bx+c=0根的方程的程序，請補(bǔ)充該程序。提示：

·當(dāng)a＜＞0時有兩個根．設(shè)delta=b²-4ac，當(dāng)delta＞0時，有兩個不同的實(shí)根．當(dāng)delta=0時，有兩個相同的實(shí)根。當(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 “方程有兩個實(shí)根”

Elseif delta = 0 then

Print “方程有兩個相等實(shí)根”

Else

xb = Sqr( - delta)/(2 * a)

Print “方程有兩個虛要”

End if

Else

if 【12】 then

ygz = - b / c

Print “方程僅有一個根”

Else

正確答案：

[10]a＜＞0[11]delta＞0 [12]b＜＞0

參考解析：

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