Getter 中的 VB.NET 调用 Setter

Question

我有一个这样的类：

Public Class MyClass

Private _intList As New List(Of Integer)
Private _avg As Decimal

Public Sub Add(ByVal anInt As Integer)
    _intList.Add(anInt)
End Sub

Public Property Avg() As Decimal
    Get
        Dim _sum As Integer = 0
        For Each anInt In _intList
            _sum += anInt
        Next
        Avg = If((_intList.Count > 0), _sum / _intList.Count, _avg)
        Return _avg
    End Get
    Set(ByVal value As Decimal)
        If _avg <> value Then
            _avg = value
            Console.WriteLine("Value changed")
        End If
    End Set
End Property

End Class

Getter 正在计算平均值并调用 Setter 来保存该值。由于某种原因我无法理解，平均值始终为 0。例如：

Dim c As New Class2()
c.Add(1)
c.Add(2)
c.Add(3)
Console.WriteLine(c.Avg.ToString()) ' This will print 0

我做错了什么吗？这是什么原因呢？

Answer 1

哇，我想你已经发现了 VB 的一个非常奇怪的行为：当你在函数的定义中时，你可以使用 Return 返回一个值任一 或通过使用=来“设置”函数的值。

像这样：

Function GetInteger() As Integer
    GetInteger = 5
End Function

在上面的函数中，GetInteger = 5行基本上相当于Return 5*。

好的，所以您可能已经知道了。但这是奇怪的部分，直到现在测试它之前我都不知道情况是这样的（诚然，在 Mono ，但我看到了与您相同的行为）：显然这也适用于属性获取器。所以看看这一行：

Avg = If((_intList.Count > 0), _sum / _intList.Count, _avg)

您实际上没有在那里调用属性设置器；您正在为 getter 设置返回值。您可以通过删除行 Return _avg; 来验证这一点突然你会看到你的 getter 开始返回实际的平均值。

_{*不完全相同，因为您可以稍后将 GetInteger 设置为其他内容而不立即返回，而使用 Return 可确保函数正确返回离开。}

Answer 2

这是设计使然，并且在 Visual Basic 语言规范第 9.7.1 章中明确提到：

一个特殊的局部变量，在Get中隐式声明
访问器主体的声明空间与属性同名，
表示属性的返回值。局部变量有
在表达式中使用时的特殊名称解析语义。如果
局部变量在需要表达式的上下文中使用
分类为方法组，例如调用表达式，则
名称解析为函数而不是局部变量。
例如：

ReadOnly Property F(i As Integer) As Integer
    Get
        If i = 0 Then
            F = 1    ' Sets the return value.
        Else
            F = F(i - 1) ' Recursive call.
        End If
    End Get
End Property

通过直接分配 _avg 字段来解决您的问题。最好避免具有此类副作用的属性获取器。

Answer 3

您的 setter 和 getter 实际上应该只返回属性，而不是自己进行计算。尝试创建一个像 calcAvg() 这样的方法来执行平均值计算，并在 Add() 上调用该方法（该方法在内部不应重新执行整个平均值计算，但如果您不确定如何执行此操作，请告诉我）。该 calcAvg() 方法将设置 _avg 实例变量。

另外，我不确定它是否真的能让发送者拥有平均的二传手。数字的平均值是派生属性，不应该由外部用户设置。

Answer 4

MrDanA 的答案比我要给你的更正确，但是，我相信你得到 0 值的原因是因为你从未将变量 _avg 设置为任何值。进行 AVG 计算后，如果您这样做：

_avg = AVG
return _avg

当我这样做时，我得到的值为 2。

正如我之前所说，MrDanA 的答案是一个更好的方法。