“如果a，b，c相等，那么y＝a＋b＋c”，能实现该功能的VB语句是

A．If a=b And b=c Then y=a+b+c

B．If a=b=c Then y=a+b+c

C．If a＝b Or b=c Or a=c Then y=a+b+c

D．Ifa－b＝b－c Then y=a+b+c

关系表达式0<x<1对应的VB表达式是（   ）。

A．x>0 or x<1	B．0<x<1
C．x>0 and x<1	D．x<1

数塔问题。一组数字构成如图a所示的数塔，从数塔顶层出发，每个结点可以选择移动至左下方或右下方结点，一直走到塔底为1条路径。求从数塔顶层到塔底各条路径上数字和的最大值。
解决此问题可采用自底至顶分析的方法。如图a所示的数塔中，先从第3层开始分析：如果路径经过第3层的第1个数字12，那么从12到尾结点的路径上数字之和的最大值是当前结点值加上该结点左下方、右下方结点中的较大值，记作f(3，1)=12+14：同理，f(3，2)=7+15，f(3，3)=26+15；再分析第2层，计算f(2，1)、f(2，2)；最后计算出第一层f(1，1)，即为所求结果。
(1)如图a所示数塔各条路径上的数字和的最大值为___________。

(2)编写VB程序，运行界面如图b所示，程序代码如下，请在划线处填入合适的代码，将程序补充完整。
Const n ＝5
Dim a(1 To n^2) As Integer ’ 数组a存储数塔数据，存储结构如图c所示
Dim f(1 To n^2) As Integer ’ 数组f存储从第i层第J个数到底层尾结点的最大数字之和，其存储结构与数组a一样
Private Sub Command l_Click()
’生成数塔，将数据存入a数组中，代码略

①___________________________________
②__________________________________
③__________________________________

长度分别为a、b、c的三条线段，能够组成三角形的条件是(   )

A．a+b>c or a+c>b and b+c >a

B．a+b>c or a+c>b or b+c >a

C．a+b>c and a+c>b and b+c>a

D．a+b>c and a+c>b or b+c>a

请认真阅读并分析下面Visual Basic程序代码，按要求完成题目。
　  Dim a(1 To 6) As Integer
　  Dim n, i, j, k As Integer
　  Private Sub Command1_Click()
For i =" 1" To n - 1
　For j =   （1） To n
   　If a(i) < a(j) Then
k = a(i):  （2）  : a(j) = k
End If
Next j
Next i
For i =" 1" To n
    list2.AddItem Str(a(i))
Next I
　  End Sub
　Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(    (3)  )
List1.AddItem Str(a(n))
Text1.Text = "": Text1.SetFocus
End If
End Sub
（1）程序中出现了text和list两种控件，其中list控件的中文名称是列表框，text控件的中文名称是 。
（2）在上述程序段中3处带序号的空白地方补充恰当的语句，完善程序。