vb 定义动态多维数组。

在VB中，可以通过写索引号的方式定义多维数组，如下代码所示：
Dim multi(1 to 10,1 to 10 ) as Integer
按照这种方式，即定义了一个10 × 10的二维数组。

定义动态数组，有利于系统回收资源。
Dim arr() 这样即定义了一个动态数组
ReDim arr(2 to 8) 给数组定上下界
arr（2）="hello"
Redim preserve arr(2 to 10) preserve重定义大小
这样做了以后，原来的值会被保留。

你的问题错误是个粗心导致的问题。你多了一个括号而已。
ReDim Preserve c(1 To UBound(a)), 1 to i)
-> 修改成
ReDim Preserve c(1 To UBound(a), 1 to i)
===========================================================
但这段代码中，还有一点值得一提。
ReDim Preserve 是个很开消资源的操作，更别说你放在循环里，那么频繁的使用了。
建议你调整整体程序设计。建议:
1. 尽量避免使用2维数组。
2. 尽量使用定长的数组。
3. 使用变量整数值 Length, Index 来对定长的数组进行控制。
这样你的程序会效率很多。