导致血磷增高和血钙减低的是（）

A.多发性骨髓病

B.急性心肌梗死

C.甲状旁腺功能减退症

D.VitD抵抗性佝偻病

E.肾小管性酸中毒

编写如下事件过程和函数过程： Private Sub Command1_Click() Dim num(1 To 6) As Single num(1)=103: num(2)=190: num(3)=0 hum(4)=32:num(5)=-56: num(6)=100 Print Print p2(6,num()) End Sub Private Function p2(ByVal n As Integer, number() As Single) As Integer p2=number(1) For j=2 To n If number(j)＜p2 Then p2=number(j) Next j End Function 程序运行后，在窗体上输出( )。

A．-56

B．0

C．103

D．190