(26)编写下列事件过程和函数过程Private Sub Command1_Click() Dim num(1 TO 6)As Single Num(1)

19 查阅

(26)编写下列事件过程和函数过程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 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。

计算机二级