[案情] A房地产公司(下称A公司)与B建筑公司(下称B公司)达成一项协议，由B公司为A公司承建一栋商品房。合同约定，标的总额6000万元，8个月交工，任何一方违约，按合同总标的额20%支付违约金。合同签订后，为筹集工程建设资金，A公司用其建设用地使用权作抵押向甲银行贷款3000万元，乙公司为此笔贷款承担保证责任，但对保证方式未作约定。
B公司未经A公司同意，将部分施工任务交给丙建筑公司施工，该公司由张、李、王三人合伙出资组成。施工中，工人刘某不慎掉落手中的砖头，将路过工地的行人陈某砸成重伤，花去医药费5000元。
A公司在施工开始后即进行商品房预售。丁某购买了1号楼101号房屋，预交了5万元房款，约定该笔款项作为定金。但不久，A公司又与汪某签订了一份合同，将上述房屋卖给了汪某，并在房屋竣工后将该房的产权证办理给了汪某。汪某不知该房已经卖给丁某的事实。
汪某入住后，全家人出现皮肤瘙痒、流泪、头晕目眩等不适。经检测，发现室内甲醛等化学指标严重超标。但购房合同中未对化学指标作明确约定。
因A公司不能偿还甲银行贷款，甲银行欲对A公司开发的商品房行使抵押权。

对于陈某的损失，应由谁承担责任如何承担责任为什么

在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：

Option Base()

Private Sub Command1 Click()

Dim A(4)As Integer,B(4)As Integer

For k=0 To 2

A(k+1)＝InputBox(“请输入一个整数”)

B(3-k)＝A(k+1)

Next k

Print B(k)

End sub

程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为（）。

A．0

B．2

C．3

D．4