编写下列事件过程和函数过程： Private Sub Commandl Click() Dim num(1 To 6)As Single num(1)=103:num(2)=190:num(3)=0 num(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

可用热敷的病人是

A．胃出血
B．急性阑尾炎
C．术后尿潴留
D．关节扭伤早期
E．牙痛