数组越界的问题。

Question

先看一下代码。下面的代码一运行，就会提示我数组超过64K了，能解决这个问题吗？Public Type aa
  bb As String * 100
  cc As String * 2
  dd As String * 4
  ee As String * 2
  ff As String * 2
  gg As String * 2
  hh As String * 2
End TypePublic Type jj
  kk(1023)  As aa
  ll        As String * 1
  mm        As String * 1
  nn        As String * 1
  oo        As String * 1
  pp        As String * 1
  qq        As String * 1
  rr        As String * 1
End TypePublic ss As jj而且使用的时候，键入ss.jj(  的时候，也没有弹出自动的提示，显示这个数组里面有多少个元素。
这是怎么个问题呀~~~谢谢了~~~

Answer 1

Private Type aa
  bb As String * 100
  cc As String * 2
  dd As String * 4
  ee As String * 2
  ff As String * 2
  gg As String * 2
  hh As String * 2
End TypePrivate Type jj
  kk() As aa
  ll        As String * 1
  mm        As String * 1
  nn        As String * 1
  oo        As String * 1
  pp        As String * 1
  qq        As String * 1
  rr        As String * 1
End TypePrivate ss As jjPrivate Sub Form_Load()
    ReDim ss.kk(1023)
    ss.kk(12).cc = "qw"
    Debug.Print ss.kk(12).cc
End Sub