设在工程中有一个标准模块，其中定义了如下记录类型： Type Books Name As String *10 TelNum As String *20 End Type 在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是

A．Private Sub Command1_Click() Dim B As Books Open "c：\Persotxt" For Output As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Write #1,Name,TelNum Close #1 End Sub

B．Private Sub Command1_Click() Dim B As Books Open "c:\Persotxt" For Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print #1，Name，TelNum Close #1 End Sub

C．Private Sub Command1_Click() Dim B As Books ppen "c：\Persotxt" For Output AS #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Write #1，B Close#1 End Sub

D．Privte Sub Command1_Click() Open "c：\Persotxt" For Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print#1，Name，TelNum Close #1 End Sub

甲、乙、丙共同投资设立一普通合伙企业。合伙协议约定：甲以现金人民币5万元出资，乙以房屋作价人民币8万元出资，丙以劳务作价人民币4万元出资；各合伙人按相同比例分配盈利、分担亏损。合伙企业成立后，为扩大经营，向银行贷款人民币5万元，期限为1年。甲提出退伙，鉴于当时合伙企业盈利，乙、丙表示同意。于是，甲办理了退伙结算手续。此后丁入伙。丁入伙后，因经营环境变化，企业发生严重亏损。乙、丙、丁决定解散合伙企业，并将合伙企业现有财产价值人民币3万元予以分配，但对未到期的银行贷款未予清偿。在银行贷款到期后，银行要求合伙企业清偿债务，发现该企业已经解散，遂向甲要求偿还全部贷款，甲称自己早已退伙，不负责清偿债务。银行向丁要求偿还全部贷款，丁称该笔贷款是在自己入伙前发生的，不负责清偿。银行向乙要求偿还全部贷款，乙表示只按照合伙协议约定的比例清偿相应数额。银行向丙要求偿还全部贷款，丙则表示自己是以劳务出资的，不承担偿还贷款义务。
要求：根据以上事实及有关规定，回答下列问题：

甲、乙、丙、丁各自的主张是否成立说明理由。