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