![[单项选择题] 编写下列事件过程和函数过程： Private Sub Commandl Click() Dim num(1 To 6)As Singlenum(1)=103:num(2)=190:](http://www.mshxw.com/aiimages/31/257952.png "[单项选择题] 编写下列事件过程和函数过程： Private Sub Commandl Click() Dim num(1 To 6)As Singlenum(1)=103:num(2)=190:")
[单项选择题] 编写下列事件过程和函数过程：
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问题解析:
分析程序，函数p2的作用是找出指定数组中最小的数并返回。p2函数指定第1个参数以传值的形式传递，第2个参数以传地址的形式传递。因此，在命令按钮单击事件中调用函数p2时，参数6是以传值的形式传给形参n，数组num以传地址的形式传给形参number。所以题中整个程序要实现的功能是找出数组num中最小的数并输出，因此最后输出-56。
