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

问题：

编写如下事件过程：
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