Question

VB 将多维数组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
tran a, 20, 10, b

End Sub
Sub tran(a(), m, n, b())
Dim i As Integer
For i = 1 To m
For j = 1 To n
b(j + (i - 1) * n) = a(i, j)
Next j
Next i
End Sub
从tran 那部开始看不懂 b(j + (i - 1) * n)什么意思

Answer 1

a(1 To m, 1 To n)中的元素是这样的，一个行列式
a(1,1) a(1,2) a(1,3) a(1,4) …… a(1,n)
a(2,1) a(2,2) a(2,3) a(2,4) …… a(2,n)
a(3,1) a(3,2) a(3,3) a(3,4) …… a(3,n)
……
a(m,1) a(m,2) a(m,3) a(m,4) …… a(m,n)
总共有m*n个元素，转换成一维数组，就是让数组b(1)=a(1,1) b(2)=a(1,2) ……
这里关键问题是 b的下标，我们就来看看a(3,2)转换成b的下标应该是几
a(3,2)已经在第三列，上两列一共有2*n个元素，这样a(3,2)转换成b的下标应该是2*n + 2
也就是说a(i,j) 在第i列，上面一共有i-1列，就是(i-1)*n个元素，在算上j,这样就是b((i-1)*n+j)

Answer 2

其实不必这样复杂，有点搞脑子，这样也可以
Sub tran(a(), m, n, b())
Dim i As Integer,j As Integer,k As Integer
k=1
For i = 1 To m
For j = 1 To n
b(k) = a(i, j)
k=k+1
Next j
Next i
End Sub