首先你是怎么重写结构的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
不过这样是对变量重新赋值，这种方法用在类上比较好。
看看这个有帮助哦：
结构体无法初始化值，你可以用类实现，或者写一个构造函数，把值传进去。
Public Structure wheelmodel
Public ID As Short
Public swapway() As Short
Public start As Short
Public Sub New(ByVal Size As UShort) 'Size就是传入的数组的大小
swapway = New Short(Size) {}
End Sub
End Structure
调用的时候：
Dim x As wheelmodel = New wheelmodel(10)
一个简单的例子：
Dim a(3) As Integer = { 0, 1, 2 }**修改**既然有界数组不能初始化，就还缺（省）界数组试试嘛：
Dim a() As Integer = { 0, 1, 2 }
类型不匹配的错误估计是你的结构体缺少构造函数造成的。在你的quality_i结构体定义里面加一个构造函数，如下所示
Public Structure quality_i
Public nub As Integer
Public nae As String
Public Sub New(ub As Integer, ae As String)nub = ubnae = aeEnd SubEnd Structure然后以如下方式初始化：
struct T_ChildStruct
{
int nChildData;
string strChildData;
T_ChildStruct()
{
nChildData = 0;
strChildData = ""; // string可以不用写初始化，本身构造中就有
}
};
struct T_FatherStruct
{
int nFatherData;
string strFatherData;
T_ChildStruct arrChild[10];
T_FatherStruct()
{
nFatherData = 0;
strFatherData = "";
}
};
1、先定义一个结构体
2、初始化并定义一个结构体的变量
3、使用该变量即可