怎样突破数组下标的限制？

Question

用动态数组不就行了。
dim 
redim 
就用这两个关键字就可以搞定

Answer 1

同意
如
dim myarray(999,999,999) as integer
就能放1000*1000*1000个了

Answer 2

dim a() as ...
redim a(10) as ...
for i = 0 to 10
   a(i)=i
next i
redim preserve a(20) as ...

Answer 3

To rushing:在vb中链表不太好实现，很麻烦的。

Answer 4

dim a(10) as integer
sub form_load()
for i=1 to 10
    a(i)=i
    debug.print a(i)
next
end sub
sub command_click()
redim a(20) as integer
for i=1 to 20
    a(i)=i
    debug.print a(i)
next
end sub
你可以试试，通过这个原型我想你会理解的，你还可以参考一下msdn里面的祥细节
分解。

Answer 5

i=10
redim(i) '动态定义数组大小

Answer 6

option base 1 '定义数组下限
dim a(n) '定义数组
...
...
...
redim a(100) '重定义

Answer 7

dim aValue () as long
dim lngAny as longredim avalue(1)
avalue(1 to 1)=2redim avalue(1 to lngAny)'这样会清空原有的数组值,即avalue(1)的值为0
redim Preserve avalue(1 to lngAny)'数组原有的之仍保留,即avalue(1)的值仍为2