以下程序的功能是将多维数组a(1 To m,1 To n)中的元素转移到一个名为b(1 To n*m)的一维数组中，完成该程序。OptionBase 1Private Sub Command1_Click(Index As Integer)Dima(1 To 20,1 To 10)Dim b()ReDimb(1 To 200)For i=1 To 20For j=1 To 10A(i,j)=i*jNext jNext iTran a,20,10bEnd SubSub Tran(a()an,n,b())Dim i As IntegerFor i=1 To mFor j=1 To n______=a(i,j)Next jNext iEnd Sub
以下程序的功能是将多维数组a(1 To m,1 To n)中的元素转移到一个名为b(1 To n*m)的一维数组中，完成该程序。
OptionBase 1
Private Sub Command1_Click(Index As Integer)
Dima(1 To 20,1 To 10)
Dim b()
ReDimb(1 To 200)
For i=1 To 20
For j=1 To 10
A(i,j)=i*j
Next j
Next i
Tran a,20,10b
End Sub
Sub Tran(a()an,n,b())
Dim i As Integer
For i=1 To m
For j=1 To n
______=a(i,j)
Next j
Next i
End Sub
相关考题：
假设有一维数组T[O...m*n-1]，其中m＞n。从数组T的第一个元素(T[0])开始，每隔n个元素取出一个元素依次存入数组B[1...m)中，即B[1]=T[0]，B[2]=T[n]，依此类推，那么放入B[k](1≤k≤n)的元素是(120)。A．T[(K-1)*m]B．T[K*n)C．T[(K-1)*n]D．T[K*m]
已知有一维数组T[0..m*n-1]，其中m＞n。从数组T的第一个元素(T[0])开始，每隔n个元素取出一个元素依次存入数组B[1..m]中，即B[1]=T[0]，D[2]=T[n]，依此类推，那么放入B[k](1≤k≤n)的元素是______。A．T[(k-1)*n]B．T(k*n)C．T[(k-1)*m]D．T[k*m]
●设数组a[1..m，1..n](m1，n2)中的元素以行为主序存放，每个元素占用1个存储单元，则最后一个数组元素a[m，n】相对于数组空间首地址的偏移量为( )。A.(m-l)*n+n-lB.(m-l)*nC．m*(n-l)D．m*n
已知有一维数组T[0...m*n-1]，其中m＞n。从数组T的第一个元素(T[0])开始，每隔n个元素取出一个元素依次存入数组B[1...m]中，即B[1]＝T[0]，B[2)= T[n]，依次类推，那么放入B[k](1≤k≤m)的元素是______。A．T[(k-1)*n]B．T[k*n]C．T[(k-1)*m]D．T[k*m]
设有一个m行n列的矩阵存储在二维数组A[1．．M,1．．n]中，将数组元素按行排列，对于A[i,j](1im，ljn)，排列在其前面的元素个数为（ ）。A.i*(n-1)+jB.(i-1)*n+J-1C.i*(m-l)+jD.(i-1)*m+J-1
●设数组a[1..m，1..n](m1，n2)中的元素以行为主序存放，每个元素占用1个存储单元，则最后一个数组元素a[m，n】相对于数组空间首地址的偏移量为(35)。(35)A.(m-l)*n+n-lB.(m-l)*nC．m*(n-l)D．m*n
已知有一维数组T[0...m*n-1]，其中m＞n。从数组T的第一个元素(T[0])开始，每隔n个元素取出一个元素依次存入数组B[1...m]中，即B[1]＝T[0]，B[2)= T[n]，依次类推，那么放入B[k](1≤k≤m)的元素是（ ）。A.T[(k-1)*n] B.T[k*n]C.T[(k-1)*m] D.T[k*m]
设数组a[1..m,1..n]（m＞1，n＞1）中的元素按行存放，每个元素占用1个存储单元，则数组元素a[i,j]（1≤i≤m，1≤j≤n）相对于数组首元素的偏移量为（ ）。A.(i-1)*m+j-1B.(i-1)*n+j-1C.(j-1)*m+i-1D.(j-1)*n+i-1
设有一个m行n列的矩阵存储在二维数组A[1．．M,1．．n]中，将数组元素按行排列，对于A[i,j]（1≤i≤m，l≤j≤n），排列在其前面的元素个数为（ ）.A.i*（n-1）+jB.（i-1）*n+J-1C.i*（m-l）+jD.（i-1）*m+J-1