for i =0 to ...
创新互联建站服务紧随时代发展步伐，进行技术革新和技术进步，经过十年的发展和积累，已经汇集了一批资深网站策划师、设计师、专业的网站实施团队以及高素质售后服务人员，并且完全形成了一套成熟的业务流程，能够完全依照客户要求对网站进行成都网站设计、成都网站建设、建设、维护、更新和改版，实现客户网站对外宣传展示的首要目的，并为客户企业品牌互联网化提供全面的解决方案。
for j =0 to ...
keyarray(i,j)=
next
next
双重循环，赋值和读取一样
你在最后两行之间加一行代码，看看数组的规模大小的结果；
Msgbox Ubound(cartnum)
Redim Preserve Arr(10,n)
通过Preserve关键字定义的动态数组，可以更改数组arr最末维的大小，且保留数组arr原来各个元素的值。
所以答案为：C
例如：
Dim arr()
Redim arr(1 to 1,1 to 2)
arr(1,2) = "你好"
Redim Preserve arr(1 to 1, 1 to 3)
msgbox arr(1,2) '这个时候依然可以得到arr(1,2)的值为“你好”。
而且从答案来看，Redim只可能与Preserve联合使用。其他都无法编译！
