编写如下事件过程和函数过程： 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

某厂一台逆流运行没有垢层的新管壳式换热器中，用水冷却一热流体，冷却水走管程，当冷却水流量为1.0kg/s时，用测得数据算出传热系数K=473.5W/(㎡℃)；当冷却水流量增加一倍，其他条件保持不变时，测得的数据算出传热系数为K=546 W/(㎡℃)，管壁热阻忽略不计。问此换热器壳程和管程的传热膜系数α1和α2﹝W/（㎡℃）﹞是下列哪一组数值？

A．892.7；1785.4

B．688.2；1517.8

C．759.9；1517.8

D．614.4；1785.4