【单选题】( 24 )有以下程序: Option Base 1 Dim arr() 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 j Next i ReDim Preserve...
【单选题】有以下程序: Option Base 1 Dimair()As Integer Private Sub Form_Click() Dimi As Integer,j As Integer ReDimalt(3,2) Fori=1 To 3 Forj=1 To 2 alt(i,j)=i*2+j Nextj Nexti ReDimPreservearr(3,4) Forj=3 To 4