189 8069 5689
你这是控件数组？你这明明就是9个不同的 TextBox 控件啊，只不过名字长得像而已。
站在用户的角度思考问题，与客户深入沟通，找到大庆网站设计与大庆网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：做网站、网站建设、企业官网、英文网站、手机端网站、网站推广、域名注册、虚拟空间、企业邮箱。业务覆盖大庆地区。
你只是定义了一个对象，类而已
首先要给对象设置变量，这个还不是数组
Public class As Single的class 应该是关键字请换一个名字
Dim KidsX(1 to 100) as kids
KidsX(1).classx=1
KidsX(1).grade=1
KidsX(1).name=”张某"
KidsX(2).classx=1
KidsX(2).grade=2
KidsX(2).name=”王某"
……
如果不要原来的数据，直接Redim a（199）
，所有数据清空，如果需要保留原来的数据，加上关键字preserve redim a（199）
，则保留原来数据，如此定义，不会造成内存泄露的
Dim TestItem() As String = New String() {"Pickle", "Pineapple", "Papaya"} '创建数组 并赋值
Dim TestShoppingList As String = Join(TestItem, " = ") 'Join 就是字符联接函数 后面的 =号 可选 为空值就把所有的字符串在一起 本例用=号 就是把 所有数组的值用 =号联接起来
MsgBox(TestShoppingList) '显示结果值
'这例子 就一个函数可以解决 就不发图片了
希望能帮到你 你慢慢研究吧 有问题可以找我
看到的 爱好者 多顶我一下 谢谢呵呵
删除数组元素很简单,重新声明数组即可，代码如下
Redim [Preserve] 数组名 (下标上界)
这个也可以称为动态数组，这个东西是基础，非常重要。
这个功能就等于说，把原来的数组重新声明，Preserve是可选项，他的意思就代表是否保留数组内容,这是重点，如果你想删除数组中的元素，就不要写Preserve，这个方法的控制性也很好，可以重新声明数组的元素，各个方面都很有用，希望采纳！谢谢！
测试结果如图所示。现象与你说明的情况是一样的。
原因分析：你所声明的数组a(4,1)实际上是a(0 to 4, 0 to 1)。在截图下方的自动窗口栏可以看到，当程序运行完For循环后，x的值已经变为5，所以a(x,0)即为a(5,0),该变量与你声明的a(4,1)也就是a(0 to 4, 0 to 1)比较，发现下标已经超限，也就是程序报出的错误：索引超出了数组界限。
结束：a(x, 0) = Nothing : a(x, 1) = Nothing，不太理解该语句的主要目的，如果是为了释放内存，那么应该直接a=Nothing。
欢迎交流如有需要，请留下QQ欢迎交流。