你没有实例化对象，
乌兰网站制作公司哪家好，找创新互联！从网页设计、网站建设、微信开发、APP开发、响应式网站等网站项目制作，到程序开发，运营维护。创新互联公司2013年成立到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联。
For j = 0 To i
pt(j)=new point() '加上这句，实例化pt(j)
pt(j).x = j 'Debug时此处出错
pt(j).y = j ^ 2
Next
for i =0 to ...
for j =0 to ...
keyarray(i,j)=
next
next
双重循环，赋值和读取一样
解决方案一：你可以用一个timer 控件，定时的更新信息；
解决方案二：也可以在动态数组改变的时候，更新信息；
你在最后两行之间加一行代码，看看数组的规模大小的结果；
Msgbox Ubound(cartnum)
如果不要原来的数据，直接Redim a（199）
，所有数据清空，如果需要保留原来的数据，加上关键字preserve redim a（199）
，则保留原来数据，如此定义，不会造成内存泄露的
