Excel vba:为每个对象类设置一个长变量会显著增加执行时间

我有一个使用 Client 类:创建具有 100 000 Clients 并在阵列上循环 100 次,每次设置不同的随机数 客户 .

Sub start()
    Application.ScreenUpdating = False

    Dim j As Long

    Dim clientsColl() As Client
    ReDim clientsColl(1 To 100000) As Client

    For j = 1 To 100000
        Set clientsColl(j) = New Client

        clientsColl(j).setClientName = "Client_" & j
    Next

    Dim clientCopy As Variant

    MsgBox ("simulations start")
    Dim i As Long
    For i = 1 To 100
        For Each clientCopy In clientsColl
            clientCopy.setSimulationCount = 100
            clientCopy.generateRandom
        Next
    Next

    Application.StatusBar = False
    Application.ScreenUpdating = True

    MsgBox ("done")
End Sub

但是,根据行是否 clientCopy.setSimulationCount = 100 是否被注释掉。如果这一行被注释掉,则在 simulations start MsgBox 拿 16 seconds 运行。但是,如果该行没有注释掉,并且执行了第二个循环 2 minute 35 seconds 运行。

这是 客户 类,使用的 Let 属性:

Private simulationCount As Long

Public Property Let setSimulationCount(value As Double)
    simulationCount = value
End Property

Private randomNumber As Double

Public Sub generateRandom()
    randomNumber = Rnd()
End Sub

所以它只是把数字 100 每个客户端内部。为什么它会将执行时间增加九倍?