Arrays 公共类中公共类数组的vb.net构造函数

我创建了两个独立的公共类“Sample”和“Analyte”，每个类都有自己的公共属性。 类分析物没有问题，但我想在示例类中添加一个分析物数组

例如：样品有一系列分析物

我用Analyte类创建了一个数组，并用excel表格中的信息填充它。我最终得到了31种分析物。（这里没有问题：-）

对于i=0的总分析物
Provar.PuPyAnalyt（I）=新分析物（*，*，*，性质，*，*，*）
下一步（I）

然后我想创建一个新的样本数组。我在公共类以及如何设置属性和构造函数方面遇到了麻烦

Public Class Sample

Private mName As String 
Private mComponent(Provar.PupyAnalytnr) As Analyte
'und und und

Public Property Name As String
    Get
        Return mName
    End Get
    Set(ByVal Wert As String)
        mName = Wert
    End Set
End Property

Public Property Component(ByVal Index As Integer) As Analyte
    Get
        Return mComponent(Index)
    End Get
    Set(ByVal Wert As Analyte)
        mComponent(Index) = Wert
    End Set
End Property**

Sub New(ByVal aName As String, ByVal aComponent As Analyte)
    'Constructor
    Dim I As Short
    Me.Name = aName

    Me.Component(Provar.PupyAnalytnr) = New Analyte("", "", "", "", 0, 0, 0, 0)
    For I = 0 To Provar.PupyAnalytnr - 1
        Me.Component(I) = New Analyte("", "", "", "", 0, 0, 0, 0)
    Next

End Sub End Class

我试着让我的头围绕它，但我有一种感觉，我现在想得太多了，可能做得太多了，甚至加倍

稍后，我将尝试使用构造函数创建一个示例类数组。在这个阶段，我已经创建了分析物类数组（可以用作模板吗？），我可以将其提供给构造函数来构建样本数组。。。。？ 只是我迷失了方向，不确定这是否可以实现，或者是否有更好的方法

For I = 0 To SampleNr
        Provar.PuPySample(I) = New Sample("", Provar.PuPyAnalyt(I))
    Next (I)

---

你有错误吗？我会先使用

列表（分析物）

然后澄清问题到底是什么<代码>陷入麻烦不是很有帮助。如果这些值总是相同的-甚至只是以这种方式开始，那么

分析物

似乎应该自己初始化它们。您如何确保不会得到超出范围的索引错误？我现在正在编译它。我可以处理超出范围的错误后，当我得到它或多或少的功能正常。我基本上想用我已经新的分析物数组来填充新的样本调用。