单选题 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写以下程序代码：Private Sub sub1(ByRef d(), ByRef m1 As Integer) Dim i As Integer m1 = d(LBound(d)) For i = LBound(d) + 1 To UBound(d) If m1 < d(i) Then m1 = d(i) Next iEnd SubPrivate Sub Command1_Click() Dim n1 As Integer n1=-1 Dim data() data = Array(10, 20, -20, 50, 15, -5) Call sub1(data(), n1) Text1.Text = n1End Sub程序运行过程中，当单击命令按钮Command1时，则在文本框Text1中显示的结果为( )。
【正确答案】 D
【答案解析】解析：程序的主要功能为：找出数组中的最大值并输出。首先，在程序中定义一个数组变量data，然后通过Array函数给数组整体赋值。LBound函数返回数组某一维的下界，UBound函数返回数组某一维的上界。在子程序sub1中，通过ByRef方式将数组的首地址及变量n的地址分别传给形参数组d和变量m1，此时形参数组d和变量m1与实参数组data和变量n1共享相同的地址空间。在Command_Click过程中语句"Call sub1(data( ), n1)"调用子过程sub1，并传递参数。在子过程sub1中，LBound(d)=0(数组下标的下界值)，UBound(d) = 5；m1=d(LBound(d))=d(0)=10。程序进入For循环，i从1开始执行到5结束，当i=1时，d(1)=20，10<20为真，m1=d(1)=20；当i=2时，d(2)=-20，20<-20为假；当i=3时，d(3)=50，20<50为真，m1=d(3)=50；当i=4时，d(4)=15，50<15为假；当i=5时，d(5)=-5，50<-5为假。整个程序运行结束，最终m1的值为50，也就是说n1的值为50，程序返回后将n1的值显示在文本框Text1中，故选项D正确。