数塔问题。一组数字构成如图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数组中，代码略

①___________________________________
②__________________________________
③__________________________________

下列逻辑表达式中能完全正确表示条件“year是闰年”的是（    ）。

A．year mod 4=0

B．year mod 400=0

C．(year mod 400="0)or(" year mod 4="0)and(" year mod 100<>0)

D．(year mod 400="0)and(" year mod 4="0)or(" year mod 100<>0)

如果x=4，那么以下运算结果为True的表达式是（   ）

A．(x<=4)and(x>=6)

B．(x>4)Or(x>=6)

C．(x>="4)and" not(x>=6)

D．not(x=4)

VB表达式: Sqr(Abs(Int（-8.2）))+ 32 mod 10 \ 3的结果是

A．5

B．4

C．3

D．2

显示今天距离2019年元旦的天数。