Question

vb 定义动态多维数组。

大致思路是dim c%() 在循环中 ReDim Preserve c(1 To UBound(a)), 1 to i)
对于 ReDim Preserve c(1 To UBound(a)), 1 to i)
报错：编译错误：缺少：变量
选取1

Private Sub Command1_Click()
Dim a$(), b$(), c$(), i%, j%, x$, y$, f1%, k%
Dim c() As uu
f1 = FreeFile
Open "C:\Users\wxz\Desktop\vb.txt" For Input As f1
i = 0
Do
Input #f1, x
If x <> "" Then
ReDim Preserve a(0 To i)
a(i) = x
i = i + 1
End If
Loop Until x = ""
i = 0
Do While Not EOF(f1)
Input #f1, x
i = i + 1
ReDim Preserve b(1 To i)
b(i) = x
ReDim Preserve c(1 To UBound(a)), 1 to i)

Answer 1

在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重定义大小
这样做了以后，原来的值会被保留。

Answer 2

你的问题错误是个粗心导致的问题。你多了一个括号而已。
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 来对定长的数组进行控制。
这样你的程序会效率很多。