单项选择题

编写如下事件过程和函数过程：
Private Sub Command1_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(By Val 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
程序运行后，在窗体上输出( )。