[单项选择题] 阅读程序： Option Base 1 Dim art()As Integer Private Sub Form_Click() Dim

[单项选择题] 阅读程序：

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

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

A．21

B．13

C．8

D．25

B

每次使用ReDim语句都会使原来数组中的值丢失，也可以在ReDim后加Preserve参数来保留数组中的数据，但使用Preserve只能改变最后一维的大小，前面几维大小不能改变，而在本题中arr(3,2)始终都未赋值，arr(3,4)=4+9=13，故最后为13。