【背景材料】R公司中标一高层写字楼工程，合同工期20个月。按照招标文件中合同条款的规定，工期每提前一个月奖励5万元，每滞后一个月罚款10万元。在开工之前，须向工程师提交详细的施工组织设计和网络图，R公司对各工序的划分和各工序的逻辑关系见表3-2。

根据此表编制的网络图获得工程师的批准，在工程施工过程中发生以下事件：

事件一：E工作为软弱地基土开挖工程，边坡支护、降水工作（不在招标范围之内）由业主委托专业基础施工企业C公司施工。该公司使用土锚拉结方案，在施工过程中，因南部边坡土质过于复杂，部分地段出现失稳征兆，及时采用应急方案得以纠正。R公司在基坑内的作业也受到一定的影响。在北边坡的施工过程中，R公司开挖土方过快，使得卸载过急，导致出现地基反弹、边坡出现失稳征兆。后由C公司处理后得以解决。由于以上原因，使工期延长2个月。业主经评估，认为双方对工期延误的责任各占50％。

事件二：I工作为顶层钢结构工程。钢结构加工前，业主通知施工单位该工程需进行设计变更，以实现更多的使用功能，但设计变更图纸几经反复，造成I工作延长2个月。

根据逻辑关系表绘制网络图，并确定关键线路。

在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
　CommonDialog1.Flags=vbOFNHideReadOnly
　CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt
　CommonDialog1.Filterlndex=1
　CommonDialog1.ShowOpen
　MsgBox CommonDialog1.FileName
End Sub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是

A．All Files(*.*)

B．Text Files(*.txt)

C．*.txt

D．All Files(*.*)|Text Files(*.*)