以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。 Private Sub Form_click() Dim x，y As Single Dim z As Integer x=InputBox("Enter a score") Do while 【8】 y=y+xz=z+1x=InputBox("Enter a score") Loop If z=0 Thenz=1 End If y= 【9】 Print y End Sub

女性，70岁。高血压20余年，冠心病史10余年，乙肝病史30年。半个月前着凉后出现胸闷，气短，偶有咳嗽，白痰，夜间明显，双下肢逐渐水肿，尿少，1周来偶有夜间憋醒，气短加重来诊。查体：BP170／80mmHg，HR96次／分，唇微绀，颈静脉怒张，双肺底可闻及小水泡音，心律齐，未及杂音，腹部膨隆，肝肋下2cm，脾未触及，移动浊音阳性。双下肢重度水肿。

给予以上治疗后患者水肿明显消退，气短缓解，心电图示频发室早。应注意（）

A.给予硝酸酯类药物，改善心肌缺血

B.积极抗心律失常治疗，给予利多卡因

C.积极抗心律失常治疗，给予美托洛尔

D.可暂时继续用洋地黄类药物，检查血清离子，注意纠正低钾血症后密切观察病情变化

E.立即停用洋地黄类药物，检查血清离子，注意纠正低钾血症