女孩，8岁。于4个月前开始不规则发热，体温38～39℃，2个月前出现气促、咳嗽、下肢水肿，抗结核治疗后无效，1岁时诊断为"先天性心脏病"。体检：T：8.5℃，P：114/min，R：48／min，颈静脉怒张，心前区隆起，于胸骨左缘2、3肋间可闻及连续杂音，伴震颤，肝肋下4．0cm，尿常规：蛋白（+），本例应诊断为（）

A.先天性心脏病（动脉导管未闭）合并心力衰竭

B.先天性心脏病（动脉导管未闭）合并肺炎

C.先天性心脏病（动脉导管未闭）合并肺结核

D.先天性心脏病（动脉导管未闭）合并亚急性细菌性心内膜炎

E.先天性心脏病（动脉导管未闭）合并心力衰竭，亚急性细菌性心内膜炎

以下程序代码实现单击命令按钮Command1时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。 Dim arr(1 To 20) For i=1 To 20 arr(i)= 【12】 Next i Sum=0 For Each X In 【13】 If X＞50 Then Print Tab(20)；X Sum=Sum+X End If Next X Print Tab(20)；“Sum＝”；Sum