VBA 中的均方根 (rms) 函数

使用 VBA 中的均方根 (rms) 函数

vba
Function RMS(ParamArray values() As Variant) As Double
    Dim sumOfSquares As Double
    Dim count As Integer
    
    For count = LBound(values) To UBound(values)
        sumOfSquares = sumOfSquares + values(count) ^ 2
    Next count
    
    RMS = Sqr(sumOfSquares / count)
End Function

vba
Sub Example()
    Dim values(1 To 5) As Variant
    Dim rmsValue As Double
    
    values(1) = 1
    values(2) = 2
    values(3) = 3
    values(4) = 4
    values(5) = 5
    
    rmsValue = RMS(values(1), values(2), values(3), values(4), values(5))
    
    MsgBox "均方根值为: " & rmsValue
End Sub

vba
Sub SalesAnalysis()
    Dim productA(1 To 12) As Variant
    Dim productB(1 To 12) As Variant
    Dim productC(1 To 12) As Variant
    Dim rmsA As Double
    Dim rmsB As Double
    Dim rmsC As Double
    
    ' 假设 productA、productB 和 productC 分别为三个产品每个月的销售额
    ' 此处省略了数据填充过程
    
    rmsA = RMS(productA(1), productA(2), productA(3), productA(4), productA(5), productA(6), productA(7), productA(8), productA(9), productA(10), productA(11), productA(12))
    rmsB = RMS(productB(1), productB(2), productB(3), productB(4), productB(5), productB(6), productB(7), productB(8), productB(9), productB(10), productB(11), productB(12))
    rmsC = RMS(productC(1), productC(2), productC(3), productC(4), productC(5), productC(6), productC(7), productC(8), productC(9), productC(10), productC(11), productC(12))
    
    MsgBox "产品 A 的销售额均方根值为: " & rmsA & vbCrLf & "产品 B 的销售额均方根值为: " & rmsB & vbCrLf & "产品 C 的销售额均方根值为: " & rmsC
End Sub