[填空题] 以下程序的功能是将多维数组a(1 To m,1 To n)中的元素转移到一个名为b(1 To n*m)的一维数组中，完成该程序。 OptionBase 1 Private Sub Co

[填空题] 以下程序的功能是将多维数组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

b((i-1)*n+j)