首先你是怎么重写结构的Sub New的呢？不会有这个错误吗：“结构无法声明没有参数的非共享“Sub New”？
为西塞山等地区用户提供了全套网页设计制作服务，及西塞山网站建设行业解决方案。主营业务为做网站、网站建设、西塞山网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
结构是值类型，和类不一样，不一定要有构造函数。直接
Dim B(2) As A
如果有一个含参数的Sub New(i As Integer)
Dim B() As A={New A(1), New A(2)}
有时要初始化很多个的时候可以用循环
Dim c As Integer = 50
Dim B(c) As A
For i = 0 To c
B(i) = New A(i)
Next
不过这样是对变量重新赋值，这种方法用在类上比较好。
看看这个有帮助哦：
array(2,2)是多维数组的访问方式，其数组的定义和初始化方法为：
Dim array As Integer(,) = {{1, 2, 3}, {4, 5, 6}}
每一行的元素数量是固定且相等的。
array(2)(2)是交错数组（即数组的数组）的访问方式。也就是，你有一个数组，这个数组的每个元素也是数组。其数组的定义和初始化方法为：
Dim array As Integer()() = {New Integer() {1, 2, 3}, New Integer() {4, 5, 6, 7, 8}}
由于每个元素是独立的数组，所以交错数组每一行的元素数量不固定，且可以不等。
初始用这种方式：public subj() as ASubjects={new ASubjects,new ASubjects, ....}
但是项目多的话也不是个办法，不如循环填充元素
for i as integer =0 to 9
subj(i)=new ASubjects
next