桤木

以下程序的功能是将多维数组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 j
Next i
Call Transf(a,4,5,B)
End Sub
Sub Transf(a(),m,n,b())
Dim x As Integer
x=1
For i=1 To m
For j=1 To n
b(x)=______
x=x+1
Next j
Next i
End Sub