求助!!!数组如何附初值?
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编辑过]