有如下Visual Basic程序：
Private Sub Command1_Click()
Dim sum As  Double, x As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next i
End Sub
该程序计算了一个表达式的值，这个表达式是

A．1/2+2/3+3/4+4/5	B．1+1/2+2/3+3/4
C．1+1/2+2/3+3/4+4/5	D．1+1/2+1/3+1/4+1/5

下列问题中适合使用枚举算法解决的是（   ）

A．计算两个数的乘积

B．计算50个同学的平均分

C．查找200以内所有能被7整除且个位数字为5的自然数

D．设计主题班会

程序设计过程中保存单个数据需要使用__________。

A．数组

B．函数

C．字符

D．变量

分析完善程序。
以下是求解一元二次方程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表达式的值为字符串类型的是（    ）。

A．“45”+ 34

B．Abs(-9)

C．“45”& 34

D．label1.caption