有以下程序:Option Base 1Dim arr()As IntegerPrivate Sub Form_Click()Dim i As Integer,j As IntegerReDim arr(3,2) FOr i=1 To 3For j=1 To 2an"(i,J)=i*2+jNext j Next iReDim Preserve arr(3,4)For j=3 To 4arr(3,j)
单选题
有以下程序:Option Base 1Dim arr()As IntegerPrivate Sub Form_Click()Dim i As Integer,j As IntegerReDim arr(3,2) FOr i=1 To 3For j=1 To 2an"(i,J)=i*2+jNext j Next iReDim Preserve arr(3,4)For j=3 To 4arr(3,j)