VB中如何定义一维固定、二维不固定的数组

Question

rt

Answer 1

一维：dim a() as integer
redim a(10)
redim preserve a(12) 
二维：
Dim i() As Integer, j As Integer, k As Integer
ReDim i(1, 1)
For j = 0 To 1
    For k = 0 To 1
        i(j, k) = k
        Debug.Print i(j, k)
        
    Next k
    
Next j

Answer 2

这样：Private Sub Form_Load()
    Dim v(3) As Variant
    Dim a(1 To 1) As String
    Dim b(1 To 2) As String
    Dim c(1 To 3) As String    a(1) = "a1"
    b(1) = "b1"
    b(2) = "b2"
    c(1) = "c1"
    c(2) = "c2"
    c(3) = "c3"
    
    v(1) = a
    v(2) = b
    v(3) = c
    
End Subv就成了一个一维固定、二维不固定的数组：你可以用监视窗口看到。也许还有更好的办法。gz.

Answer 3

在上例中用 MsgBox v(3)(2)  就可以得到值“c2”。

Answer 4

谢谢matchchen ，这正是我要的效果