编写如下事件过程和函数过程: Private Sub Command1_Click() Dim num(1 To 6)As Single num(1)=103:num(2)=190:num(3)=0 num(4)=32:

admin2010-03-30  27

问题 编写如下事件过程和函数过程:    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    程序运行后,在窗体上输出(    )。

选项 A、-56
B、0
C、103
D、190

答案1

解析 分析程序,函数p2的作用是找出指定数组中最小的数并返回。p2函数指定第1个参数以传值的形式传递,第2个参数以传地址的形式传递。因此,在命令按钮单击事件中调用函数p2时,参数6是以传值的形式传给形参n,数组num以传地址的形式传给形参number。所以题中整个程序要实现的功能是找出数组num中最小的数并输出,因此最后输出“-56”。
转载请注明原文地址:https://kaotiyun.com/show/ia1p777K
0

最新回复(0)