下列程序运行时输出的结果是
Option Base 1
Private Sub Form_Click()
Dim x(10) As Integer，y(5) As Integer
　 　For i=1 to 10
　 　　x(i)=10-i+1
　　 Next
　　For i=1 to 5
　　　y(i)=x(2*i-1)+x(2*i)
　　Next
　　For i=1 to 5
　　　Print y(i)
　　Next
End Sub

A．3 7 11 45 19

B．19 15 11 7 3

C．1 3 5 7 9

D．不确定的值

患者，女，46岁。反复心悸气促6年，伴肢肿1年。此次于劳累受凉后复作。现症见心悸，喘息不能平卧，颜面四肢浮肿，脘腹痞胀，形寒肢冷，大便溏泻，小便短少。舌淡苔薄白，脉沉细无力。查体：心尖搏动向左下移位，心尖区可闻及双期杂音，双下肢水肿。经诊断为"风心病，二窄并二漏"。除给氧及西药强心、利尿、扩血管外，治疗应首选（）

A.五苓散

B.猪苓汤

C.理中汤

D.真武汤

E.保真汤