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

18 查阅

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

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

End Sub

参考答案:

b(B0)；a(i,j)

本题考查二维数组和一维数组的对应关系。二维数组中有20个元素，因此b的大小为20，ReDim b(20)。调用Transf函数把m行n列的二维数组存放到一维数组b中，利用双重循环访问数组a的每个元素，依次存放到b中相应的位置。