以下哪项不是动脉导管未闭的体征()

A．水冲脉

B．心尖区柔和舒张期杂音

C．枪击音

D．胸骨右缘第2肋间连续机器样杂音，向右锁骨下窝或颈背部传导

E．肺动脉区第二音亢进

下面程序运行后，单击命令按钮，输出的结果是Private Sub Command1_Click( )Dim a%(1 To 4) , b%(2 To 6) , i%, str1#, str2# For i = 1 To 4a(i) =i Next For i = 2 To 6b(i) =i Next str 1 = YAG (a) str 2 = YAG (b) Print "str1 ="; str1; "str2 ="; str2 End Sub Function YAG(a()As Integer) Dim t#，i% t=1 For i=LBound(a)TO UBound(a) t=t * a(i) Next YAG=t End Function

A．str1=24 str2=720

B．str1=12 str2=360

C．str1=24 str2=180

D．str1=36 str2=720