数组下标问题

Question

Private Sub Command4_Click()
   Dim intX As Integer   '声明计数器变量。
   '声明并放置整数数组。
   Dim countersA(5) As Integer
      For intX = 0 To 5
         countersA(intX) = 5
      Next intX
   '声明并放置字符串数组。
      Dim countersB(5) As String
         For intX = 0 To 5
            countersB(intX) = "hello"
         Next intX
   Dim arrX(2) As Variant           
      arrX(1) = countersA()        ' 这2句为什么不是  arrX(0) = countersA() ， arrX(1) = countersB()  呢
      arrX(2) = countersB()
      MsgBox arrX(1)(6)           ' 这个地方报错 ，超界能理解 
      MsgBox arrX(2)(3)End Sub

Answer 1

这样能正常运行
Private Sub Command1_Click()
   Dim intX As Integer   '声明计数器变量。
   '声明并放置整数数组。
   Dim countersA(5) As Integer
      For intX = 0 To 5
         countersA(intX) = 5
      Next intX
   '声明并放置字符串数组。
      Dim countersB(5) As String
         For intX = 0 To 5
            countersB(intX) = "hello"
         Next intX
   Dim arrX(1) As Variant
      arrX(0) = countersA()        ' 这2句为什么不是  arrX(0) = countersA() ， arrX(1) = countersB()  呢
      arrX(1) = countersB()
      MsgBox arrX(0)(5)           ' 这个地方报错 ，超界能理解
      MsgBox arrX(1)(3)End Sub

Answer 2

Private Sub Command1_Click()
   Dim intX As Integer   '声明计数器变量。
   '声明并放置整数数组。
   Dim countersA(5) As Integer
      For intX = 0 To 5
         countersA(intX) = 5
      Next intX
   '声明并放置字符串数组。
      Dim countersB(5) As String
         For intX = 0 To 5
            countersB(intX) = "hello"
         Next intX
   Dim arrX(1) As Variant
      arrX(0) = countersA()        ' 这2句为什么不是  arrX(0) = countersA() ， arrX(1) = countersB()  呢
      arrX(1) = countersB()
      MsgBox arrX(0)(5)           ' 这个地方报错 ，超界能理解
      MsgBox arrX(1)(3)End Sub

Answer 3

 
   Dim arrX(2) As Variant          
'声明拥有 个成员的新数组。
'（晕，这是帮助里说的，是错的，应该是3个成员 ,这样的话，就好理解了）
   Dim arrX(2) As Variant  
      arrX(0) = countersA()        '将其它数组移居到数组。
      arrX(1) = countersB()
      MsgBox arrX(0)(2)           '显示每一个数组的成员。
      MsgBox arrX(1)(3)这个是没问题的，
下面这个也是没问题的   Dim arrX(2) As Variant  
      arrX(1) = countersA()        '将其它数组移居到数组。
      arrX(2) = countersB()
      MsgBox arrX(1)(2)           '显示每一个数组的成员。
      MsgBox arrX(2)(3)

Answer 4

下面这个也是没问题的   Dim arrX(2) As Variant  
      arrX(1) = countersA()        '将其它数组移居到数组。
      arrX(2) = countersB()
      MsgBox arrX(1)(2)           '显示每一个数组的成员。
      MsgBox arrX(2)(3)你这样不会出错，但是浪费了一个arrX(0)