分析完善程序。
以下是求解一元二次方程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

在通过VB设计“BMI指数”的程序中，王明将变量BZ赋值给Text2.text输出，相应的代码是_____________ 。

在VB中，下列选项不能实现交换变量a和b的值的是_______。

A．a=a+b:b=a-b:a=a-b

B．t=b:b=a:a=t

C．t=a:a=b:b=t

D．a=b:b=a-b:b=a

（加试题）某VB程序功能：输入正整数n,单击命令按钮Command1后，则会衍生出一串有规律的数字，形式为“1 2 3…n-1 n n-1…3 2 1 ”。例如n=6时，显示的数字串为“1 2 3 4 5 6 5 4 3 2 1 ”。
Private Sub Command1_Click()
Dim a As intger, i As intger, s As String
n = Val(Text1.Text)
s = ""
For i = 1 To 2 * n - 1
If i > n Then ①   Else  ②   
Next i
text2.Text = s
End Sub
为实现以上功能，①②处分别填写(    )

A．①s=Str(2*n-i)    ②s=Str(i)	B．①s=s+Str(2*n-i)  ②s=s+Str(i)
C．①s=s+Str(2*n-1)  ②s=s+Str(2*n)	D．①s= Str(2*n-1)   ②s= Str(2*n)

将文本框Text1中的数据赋值到数值型变量n中，正确的语句是（  ）

A．n = text1	B．n = Text1.text
C．n = Str(Text1.text)	D．n = Val(Text1.text)