你没有实例化对象,
乌兰网站制作公司哪家好,找创新互联!从网页设计、网站建设、微信开发、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)
,则保留原来数据,如此定义,不会造成内存泄露的