[單項(xiàng)選擇題] 閱讀程序：

Option Base 1

Dim art()As Integer

Private Sub Form_Click()

Dim i As Integer，j As Integer

ReDim arr(3,2)

　For i=1 To 3

　　　For j=1 To 2

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

　　　Next

　 Next

ReDim Preserve ale(3,4)

　For j=3 To 4

　　　arr(3,j)=j+9

　Next

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

End Sub

程序運(yùn)行后，單擊窗體，輸出結(jié)果為

A．21

B．13

C．8

D．25

B

每次使用ReDim語(yǔ)句都會(huì)使原來(lái)數(shù)組中的值丟失，也可以在ReDim后加Preserve參數(shù)來(lái)保留數(shù)組中的數(shù)據(jù)，但使用Preserve只能改變最后一維的大小，前面幾維大小不能改變，而在本題中arr(3,2)始終都未賦值，arr(3,4)=4+9=13，故最后為13。