Option Base 0
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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货