阅读程序:

Option Base 1

D．im arr()As Integer

Private Sub Form_Click()

D．im i As Integer, j As Integer

ReDim arr(3,2)

F．or i = 1 To 3

F．or j = 1 To 2

arr(i,j)=i*2+j

Next

Next

ReDim Preserve arr(3,4)

F．or j=3 To 4

arr(3,j)=j+9

Next

Print arr(3,2)+arr(3,4)

E．nd Sub

程序运行后,单击窗体,输出结果为

A．21

B．13

C．8

D．25