问题
单项选择题
编写如下事件过程：
Option Base 1
Private Sub Form Click()
Dim x1()As Integer
Dim i As Integer
Dim s As Integer
ReDim x1(3)
For i = 1 To UBound(x1)
x1(i)=i + 1
Next i
Call sub1(x1)
For i = 1 To UBound(x1)
s = s + x1(i)
Next i
Print s
End Sub
Private Sub sub1(n()As Integer)
Dim i As Integer
ReDim Preserve n(5)
For i = 3 To 5
n(i)=n(i-1)*2
Next 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。