arrays - Let 和 Get 固定大小的数组

Question

我有一个类，它有一个固定大小的数组 Double ，例如

Private m_values(8) as Double

Let 的正确语法是什么？和Get数组的方法？

Public Property Let Values (RHS(8) as Double)
    m_values = RHS
End Property

Public Property Get Values() as Double
    Values = m_values
End Property

我不清楚的语法的具体部分:

a.在 Let方法，是RHS(8) as Double传递 8 数组 Double 的正确方法？
b.我可以简单地使用赋值将一个数组复制到另一个数组吗？ (例如 m_values = values )
C。对于Get方法，声明的函数是否正确 as Double或者应该是类似as Double(8)的东西？

Answer 1

声明可以保存数组的属性的唯一方法是作为 Variant 属性。

Private m_values As Variant

Public Property Let Values(RHS As Variant)
    m_values = RHS
End Property

Public Property Get Values() As Variant
    Values = m_values
End Property

Public Sub Test()
    Dim x(8) As Double
    x(1) = 123.55
    x(2) = 456.45
    x(5) = 789.66
    x(8) = 123.777

    ' assign value to property
    Values = x

    ' get value from property
    Dim y() As Double
    y = Values

    Dim i As Integer
    For i = 0 To UBound(y)
        Debug.Print y(i)
    Next

End Sub