![[填空题] 以下程序的功能是将多维数组a(1 To m，1 To n)中的元素转移到一个名为b(1 To n)的一维数组中，请填写空白处，完成该程序。 Option Base 1 Private](http://www.mshxw.com/aiimages/31/253500.png "[填空题] 以下程序的功能是将多维数组a(1 To m，1 To n)中的元素转移到一个名为b(1 To n)的一维数组中，请填写空白处，完成该程序。 Option Base 1 Private")
[填空题] 以下程序的功能是将多维数组a(1 To m，1 To n)中的元素转移到一个名为b(1 To n)的一维数组中，请填写空白处，完成该程序。
Option base 1
Private Sub Command1_Click()
Dim a(1 To 4,1 To 5)
Dim b()
ReDim______
For i=1 To 4
For j=1 To 5
a(i,j)=i*j
Next i
Next i
Call Transf(a,4,5,B)
End Sub
Sub Trasf(a(),m,n,b())
Dim x As Integer
x=1
For i=1 To m
For i=1 To n
b(x)=______
x=x+1
Next i
Next i
End Sub
参考答案：
b(B0)；a(i,j)问题解析:
本题考查二维数组和一维数组的对应关系。二维数组中有20个元素，因此b的大小为20，ReDim b(20)。调用Transf函数把m行n列的二维数组存放到一维数组b中，利用双重循环访问数组a的每个元素，依次存放到b中相应的位置。
