如何将多个多维数组合并为一个

Question

我有几个循环生成的多维数组。例如，我将变量n声明为点数。如果用户输入n为4，则将根据For Next循环生成4个数组：

For i=1 to n
    Dim subA(1,5) As Double
    subA(0, 0) = 1
    subA(0, 1) = 9
    ...
Next

现在，我想将从循环过程生成的每个点的每个subA数组合并到一个单维多维数组A中。

我该怎么做？