编写如下事件过程和函数过程： Private Sub Command1_Click
题型：单项选择题
问题：
编写如下事件过程和函数过程： Private Sub Command1_Click() Dim num(1 To 6)As Singlenum(1)=103:num(2)=190:num(3)=0num(4)=32:num(5)=-56：num(6)=100PrintPrint p2(6，num()) End Sub Private Function p2(By Val n As Integer, number() As Single) As Integerp2=number(1)For j=2 To nIf number(j)＜p2 Then p2=number(j)Next j End Function 程序运行后，在窗体上输出( )。
A．-56
B．0
C．103
D．190