Question

VB：一道关于数组的传递例题

麻烦大家帮我解释一下红色字体~~

Answer 1

i和j 从1到10 可以将1~100的一维数组转存到1~10，1~10的二维数组
B(i,j)=a((i-1)*10+j)
当i=1，j循环时复制a(1)~a(10)
当i=2，j循环时时复制a(11)~a(20)
………………
当i=10，j循环时时复制a(91)~a(100)

Answer 2

' /* 循环二维数组 B 的行数（100 个元素按照每行 10 个数来算，那么就会有 10 行 10 列）. */
For i = 1 To 10
    ' /* 循环二维数组 B 的列数. */
    For j = 1 To 10
        ' 给二维数组 B 的第 i 行第 j 列赋值.
        ' 当 i = 1 时，
        ' 第一次循环：A((i - 1) * 10 + j) = A((1 - 1) * 10 + 1) = A(1)
        ' 第二次循环：A((i - 1) * 10 + j) = A((1 - 1) * 10 + 2) = A(2)
        ' ...
        ' 第十次循环：A((i - 1) * 10 + j) = A((1 - 1) * 10 + 10) = A(10)
        
        ' 当 i = 2 时，
        ' 第一次循环：A((i - 1) * 10 + j) = A((2 - 1) * 10 + 1) = A(11)
        ' 第二次循环：A((i - 1) * 10 + j) = A((2 - 1) * 10 + 2) = A(12)
        ' ...
        ' 第十次循环：A((i - 1) * 10 + j) = A((2 - 1) * 10 + 10) = A(13)
        
        ' 当 i = 3 时，以此类推...
        B(i, j) = A((i - 1) * 10 + j)
        Print B(i, j)
    Next
Next

 

另外，从监视窗口（Ctrl+G）中，我们也可以看到二维数组 B 的存储结构：