[單項(xiàng)選擇題] 編寫如下事件過(guò)程：

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

程序運(yùn)行后，單擊窗體，則窗體上顯示的內(nèi)容是

A．6

B．12

C．24

D．47

D解析：[分析]： 在主過(guò)程中，數(shù)組x1的下標(biāo)最大值為3，賦初值分別為2、3、4，通過(guò)實(shí)參和形參的調(diào)用，數(shù)組x1的值傳給了數(shù)組n。在子過(guò)程中，數(shù)組n的下標(biāo)最大值被重新定義為5，下標(biāo)3～5的值計(jì)算的結(jié)果分別為6、12、24。在主過(guò)程中，將數(shù)組x1的各值相加得：2+3+6+12+24=47。