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

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

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

i为行，j为列。(i-1)*n意思是第二行以上的行移到上一行的后边。j为当前行的位数。