编写如下事件过程： Option Base 1 Private Sub Form

问题单项选择题

编写如下事件过程： Option Base 1 Private Sub Form Click()Dim x1()As IntegerDim i As IntegerDim s As IntegerReDim x1(3)For i = 1 To UBound(x1) x1(i)=i + 1Next iCall sub1(x1)For i = 1 To UBound(x1) s = s + x1(i)Next iPrint s End Sub Private Sub sub1(n()As Integer)Dim i As IntegerReDim Preserve n(5)For i = 3 To 5 n(i)=n(i-1)*2Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是

A．6

B．12

C．24

D．47

答案

参考答案：D

解析：

[分析]：在主过程中，数组x1的下标最大值为3，赋初值分别为2、3、4，通过实参和形参的调用，数组x1的值传给了数组n。在子过程中，数组n的下标最大值被重新定义为5，下标3～5的值计算的结果分别为6、12、24。在主过程中，将数组x1的各值相加得：2+3+6+12+24=47。