你在最后两行之间加一行代码，看看数组的规模大小的结果；
公司主营业务：成都网站建设、成都做网站、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。成都创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联公司推出云安免费做网站回馈大家。
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联合使用。其他都无法编译！
Array是一个类型,并非一个数组! 如果你想要传递数组,byval A() as string
如果不要原来的数据，直接Redim a（199）
，所有数据清空，如果需要保留原来的数据，加上关键字preserve redim a（199）
，则保留原来数据，如此定义，不会造成内存泄露的
for i =0 to ...
for j =0 to ...
keyarray(i,j)=
next
next
双重循环，赋值和读取一样
