[填空题] 以下程序的功能是将多维数组a(1 To m,1 To n)中的元素转移到一个名为b(1 To n*m)的一维数组中,完成该程程序。
Option Base 1
Private Sub Command1_Click()
Dim a(1 To 20,1 To 10)
Dim b()
ReDim b(1 To 200)
For i=1 To 20
For j=1 To 10
A(i,j)=i*j
Next j
Next i
Call Tran(a,20,10,B)
End Sub
Sub Tran(a(),m,n,b()
Dim i As Integer
For i=1 To m
For i=1 To n
(6) =a(i,j)
Next j
Next i
End Sub