Attribute VB_Name = "Modjjpj"
' "国民经济评价指标计算程序"
' "评价指标:EIRR--经济内部收益率;ENPV--经济净现值;BERC--经济效益费用比"
    Open "guo.DAT" For Input As #1
    Input #1, N
    Dim b(N), c(N), bc(N), bcm(N)
    bcm(0) = 0
    For i = 1 To N
    Input #1, b(i), c(i)
'     b(i) = b(i) * .85
'      c(i) = c(i) * 1.15
    bc(i) = b(i) - c(i)
    bcm(i) = bcm(i - 1) + bc(i)
    Print bc(i), bcm(i)
    Next i
    Close (1)
    
    Open "out1.dat" For Output As #1
' PRINT "请输入内部收益率下限:": INPUT R1
' PRINT "请输入内部收益率上限:": INPUT R2
    R = (R1 + R2) / 2
    GoSub 1000
    If Abs(S) <= 0.1 Then GoTo 200
    If S < 0 Then Let R2 = R
    If S > 0 Then Let R1 = R
    GoTo 130
    EIRR = Int(R * 1000 + 0.5) / 1000
' INPUT "请输入社会折现率is="; IX
R = IX
GoSub 1000
ENPV = Int(S + 0.5)
b = 0: c = 0
For i = 1 To N
b = b + b(i) * (1 + IX) ^ -i
c = c + c(i) * (1 + IX) ^ -i
Next i
BECR = b / c
BECR = Int(BECR * 100 + 0.5) / 100
Print #1, "  "
Print #1, "序号     效  益     费  用     净效益  累计净效益"
Print #1, "  "
For i = 1 To N
Print #1, USING; "####"; i;
Print #1, USING; "###########"; b(i);
Print #1, USING; "###########"; c(i);
Print #1, USING; "###########"; bc(i);
Print #1, USING; "###########"; bcm(i)
Next i
Print #1, "  "
Print #1, "-------------------------------------------------------"
Print #1, "  "
Print #1, "评价指标:"
Print #1, "  "
Print #1, "         经济内部收益率        EIRR="; EIRR * 100; "%"; ""
Print #1, "         经 济 净 现 值(is="; IX * 100; "%)"; "ENPV="; ENPV; " 万元"
Print #1, "         经济效益费用比(is="; IX * 100; "%)"; "BECR="; BECR
Print "成果存放在OUT.DAT文件中"
End

1000 S = 0
1010 For i = 1 To N
1020 E = -i
1030 L = (1 + R) ^ E
1040 S = S + bc(i) * L
1050 Next i
1060 Return