?? 指數(shù)m2.bas
字號(hào):
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -