一个一个的赋值呀，没有别的办法，可以用FOR之类的语句

我在网上看到一种 就是这样的 这是一种， Private Sub Command1_Click() Dim xc(1) As Variant xc(0) = Array(10, 2, 3, 1, 0, 3, 4, 4, 56, 120) xc(1) = Array(14, 3, 1, 9, 0, 4, 5, 2, 14, 118) For i = 0 To 1 For j = 0 To 9 Debug.Print xc(i)(j); Next j Debug.Print Next i End Sub 第二种如2楼兄弟说的

Dim x() As Integer    
Dim xc As Variant      
  ReDim x(2, 10)   
  xc = Array(10, 2, 3, 1, 0, 3, 4, 4, 56, 120)
    For i = 0 To UBound(xc)
        x(1, i) = xc(i)
    Next i
    xc = Array(14, 3, 1, 9, 0, 4, 5, 2, 14, 118)
    For i = 0 To UBound(xc)
        x(2, i) = xc(i)
    Next i
    For i = 1 To 2
        For j = 0 To 10
            Debug.Print x(i, j)
        Next j        
     Debug.Print  
   Next i

[此贴子已经被作者于2005-2-16 17:16:32编辑过]

谢谢各位了！！！