首先你是怎么重写结构的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
不过这样是对变量重新赋值，这种方法用在类上比较好。
看看这个有帮助哦：
可以改写成以下形式：
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim strCon As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\FUO_Inventory.accdb"
Dim myConn As New OleDbConnection(strCon)
myConn.Open()
End Sub
这个一般是一个Form类的构造函数。
MyBase.New ( )是调用父类的构造函数，InitializeComponent ( )是调用自己的InitializeComponent 方法。一般你在VS里拖界面，VS会自动帮你生成这个方法的实现，里面是用代码实现你拖出来的界面布局。
Randomize()的作用是初始化随机数种子，
它有个带参数的版本
Randomize(double
seed)
seed是产生随机数序列的一个标号，如果你不调用Randomize改变这个标号，默认使用的是同一个序列，所以每次你启动程序生成的随机数都是相同的，不带参数的Randomize等价于Randomize(Timer)，也就是使用系统时钟作为随机数种子
因为这个值随程序启动或调用每次都不会相同，所以能实现产生不同的随机数
