Dim a(3, 3, 3)Dim b(3, 3), c(3, 3), d(3, 3)Private Sub aaa()' 对数组a(3,3,3)赋值For i = 1 To 3For j = 1 To 3b(i, j) = a(1, i, j)NextNextFor i = 1 To 3For j = 1 To 3c(i, j) = a(2, i, j)NextNextFor i = 1 To 3For j = 1 To 3d(i, j) = a(3, i, j)NextNextEnd Sub...
|