在窗体上画一个按钮Command1，编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1，2；3，4)
j=1
For i=4 To Step-1
s=s+a(i)*j
j=j*10
Next j
Print s
End Sub
运行程序后，最后的输出结果为( )。

A．1234

B．12

C．34

D．4321

背景材料:

某重力式码头主体工程施工分3个流水段进行，段间、段内施工工艺互无干扰。抛石基床（包括挖泥、抛石、整平）、沉箱安放（包括预制、出运、安装、箱内填料）、上部结构（包括沉箱封顶混凝土、胸墙及面层混凝土浇筑）分项工程各只有一个专业施工队施工。各分项工程所需工时如下表所列：

问题：

1.根据表列项目与工时绘制施工进度计划横道图（按每项工作最早开始时间安排）。

2.用节点和箭头连接的方式指出关键线路（例如①②③…）

3.C1工作因故耽误了3周，是否影响总工期？为什么？这时的总工期是多少？

4.B1工作因故耽误了3周，是否影响总工期？为什么？这时的总工期是多少？