[单项选择题] 编写如下事件过程： Option Base 1 Private Sub Form Click()Dim x1()As IntegerDim i As IntegerDim s As

[单项选择题] 编写如下事件过程：

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