在下面的程序中，要求循环体执行四次，请填空。
Private Sub Commandl_Click()
x=1
Do While______
x=x+2
Loop
End Sub

(一)

[背景资料]

某建筑公司承接一项基础工程的施工任务，施工过程划分为土方开挖、做混凝土垫层、钢筋混凝土基础、回填土4个。该公司拟采用流水施工方法组织施工，根据工程情况，该基础工程在平面上分成两个施工段，施工网络计划如图1所示，图中箭线下方数字为工作的正常持续时间，括号内数字为最短持续时间；箭线上方括号内数字为工作的赶工费率。

问题：

确定关键线路并计算该网络计划的工期。