Attribute VB_Name = "modMethod"
'指數(shù)的計(jì)算方法
Option Explicit
'求物價(jià)指數(shù)
'輸入數(shù)據(jù)：
'1。P(I,1)：基準(zhǔn)期的第I種商品價(jià)格
'2。P(I,2)：基準(zhǔn)期的第I種商品銷售量
'3。P(I,3)：報(bào)告期的第I種商品價(jià)格
'4。P(I,4)：報(bào)告期的第I種商品銷售量
'計(jì)算結(jié)果：
'1。R(1)：幾何平均指數(shù)
'2。R(2)：簡單綜合指數(shù)
'3。R(3)：加權(quán)綜合指數(shù)，以基準(zhǔn)期銷售量為權(quán)
'4。R(4)：加權(quán)綜合指數(shù)，以報(bào)告期銷售量為權(quán)

Public Sub Price_Index(P() As Double, R() As Double)
    Dim I As Integer, J As Integer, N As Integer
    Dim pg As Double, p1i As Double, p0i As Double
    On Error GoTo priceErr
    N = UBound(P, 1)                '數(shù)組第1維下標(biāo)的上界
'幾何平均指數(shù)
    pg = 0
    For I = 1 To N
        pg = pg + Log(P(I, 3) / P(I, 1))
    Next I
    pg = (1 / N) * pg
    R(1) = Int(Exp(pg) * 100 + 0.5)
'綜合指數(shù)
'1。簡單綜合指數(shù)
    p1i = 0: p0i = 0
    For I = 1 To N
        p1i = p1i + P(I, 3)
        p0i = p0i + P(I, 1)
    Next I
    R(2) = Int(p1i / p0i * 100 + 0.5)
'2。加權(quán)綜合指數(shù)
'(1)以基準(zhǔn)期銷售量為權(quán)
    p1i = 0: p0i = 0
    For I = 1 To N
        p1i = p1i + P(I, 3) * P(I, 2)
        p0i = p0i + P(I, 1) * P(I, 2)
    Next I
    R(3) = Int((p1i / p0i) * 100 + 0.5)
    R(4) = p1i - p0i                '居民消費(fèi)支出的變化
'(2)以報(bào)告期銷售量為權(quán)
    p1i = 0: p0i = 0
    For I = 1 To N
        p1i = p1i + P(I, 3) * P(I, 4)
        p0i = p0i + P(I, 1) * P(I, 4)
    Next I
    R(5) = Int((p1i / p0i) * 100 + 0.5)
    R(6) = p1i - p0i                '居民消費(fèi)支出的變化
    Exit Sub
priceErr:
    MsgBox "在商品價(jià)格中包括0或負(fù)數(shù)！"
    Exit Sub
End Sub