13518219792
1、先定义一个结构体
在延长等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都网站设计、成都网站制作、外贸网站建设 网站设计制作按需设计,公司网站建设,企业网站建设,成都品牌网站建设,全网营销推广,成都外贸网站制作,延长网站建设费用合理。
2、初始化并定义一个结构体的变量
3、使用该变量即可
一个简单的例子：
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然后以如下方式初始化：
对象.gettype.
你没看后面的点吗？后面有一连串以get开头的返回方法
GetFields返回对象类型的所有公共字段
GetMethods返回对象类型的所有公共sub方法
GetMembers 返回对象类型的所有公共成员，成员包括属性、方法、字段、事件等。
GetProperties 返回对象类型的所有公共属性
GetEvents 返回对象类型的所有公共事件
因为数组是引用类型，所以直接赋值会出现这种情况
可以在kb=k后单独复制数组
kb.rr=k.rr.Clone
这样两个数组就是独立的了
之所以先kb=k是为了当其含有多个成员时值型成员可以直接复制，只需Clone引用类型的就行了
结构体无法初始化值，你可以用类实现，或者写一个构造函数，把值传进去。
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)
