４７ DIG - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim a4 As Single
Dim year As Integer
Dim age As Integer
Dim m(0 To 99, 0 To 99) As Single
Dim f(0 To 99, 0 To 99) As Single
Dim rate(10 To 99) As Single
Dim kisoj(0 To 99, 65 To 99) As Single
Open "c:/dig/gdata/将来推計人口.txt" For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4
year = a1
age = a2
m(year, age) = a3
f(year, age) = a4
Loop
Close #1
Dim n As Integer
For year = 10 To 50
rate(year) = 1.05 - 0.05 * (year - 10) / 40
Next
For year = 51 To 99
rate(year) = 1
Next



For year = 10 To 99
For age = 65 To 99
kisoj(year, age) = (m(year, age) + f(year, age)) / rate(year)
Next
Next
Open "c:/dig/gdata/基礎年金受給者.txt" For Output As #2
For year = 10 To 99
For age = 65 To 99
Write #2, year, age, kisoj(year, age)
Next
Next
Close #2
For n = 1 To 9
year = 10 * n
z1 = 0
For age = 65 To 99
z1 = z1 + kisoj(year, age)
Next
Debug.Print year, z1
Next


End Sub