分析完善程序。
以下是求解一元二次方程ax²+bx+c=0(a≠0)的主要VB程序片段，请你补全代码：
a=Val(InputBox(“a=”))
b=Val(InputBox(“b=”))
c=Val(InputBox(“c=”))
d=________________________’求判别式d
If d>0 Then
x1=(-b+Sqr(d))/(2*a)
x2=(-b-Sqr(d))/(2*a)
Print “x1=”;x1
Print “x2=”;x2
End If
If ________________ Then
Print”x=”;-b/(2*a)
End If
If d<0 Then
Print “无实数解！”
End If

有如下程序段：
For i =" 1" To 2
For j =" 2" To 7 - i
If a(j) > a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
End If
Next j
Next i
数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段“加工”后，下列说法正确的是（ ）

A．数组元素a(1)到a(6)的值依次为54，29，31，58，71，78

B．此过程中数据共需比较次数为8次

C．此过程中数据共需交换次数为5次

D．此过程中数据“54”共被比较5次

赋值语句y = x的功能是________。

A．x的值赋给y，x的值变为0

B．y的值赋给x，y的值变为0

C．y的值赋给x，y保留原来的值

D．x的值赋给y，x保留原来的值

将表达式8=9的结果赋给变量x的是（    ）

A．x=8:x=9	B．x=8=9
C．8=9=x	D．x=8 And x=9

For i =" 1" To___1___step 2
s = ""
For j =" 1" To i step 1
s =" s+Str(i)"
Next j
List1.AddItem s
Next i
该程序的运行后列表框输出的第3行是（  ）

A．33333

B．55555

C．12345

D．54321