你在最后两行之间加一行代码，看看数组的规模大小的结果；
创新互联专注于科尔沁左翼企业网站建设,成都响应式网站建设,商城网站定制开发。科尔沁左翼网站建设公司,为科尔沁左翼等地区提供建站服务。全流程按需定制设计，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务
Msgbox Ubound(cartnum)
Array是一个类型,并非一个数组! 如果你想要传递数组,byval A() as string
如果不要原来的数据，直接Redim a（199）
，所有数据清空，如果需要保留原来的数据，加上关键字preserve redim a（199）
，则保留原来数据，如此定义，不会造成内存泄露的
