重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你在最后两行之间加一行代码,看看数组的规模大小的结果;
阳信ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景,ssl证书未来市场广阔!成为创新互联公司的ssl证书销售渠道,可以享受市场价格4-6折优惠!如果有意向欢迎电话联系或者加微信:13518219792(备注:SSL证书合作)期待与您的合作!
Msgbox Ubound(cartnum)
你没有实例化对象,
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
双重循环,赋值和读取一样