一个简单的例子：
滨州网站建设公司创新互联建站,滨州网站设计制作，有大型网站制作公司丰富经验。已为滨州千余家提供企业网站建设服务。企业网站搭建\外贸网站制作要多少钱，请找那个售后服务好的滨州做网站的公司定做！
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然后以如下方式初始化：
其实就是结构体，如下面
Public Structure My_type
Public type_1 As Integer
Public type_2 As String
Public type_3 As Double
End Structure
1、先定义一个结构体
2、初始化并定义一个结构体的变量
3、使用该变量即可
