１４０ ｃヴぃｋ - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim b1(0 To 120) As Single
Dim b2(0 To 120) As Single
Dim b3(0 To 120) As Single
Dim c1(0 To 120) As Single
Dim c2(0 To 120) As Single
Dim c3(0 To 120) As Single
Dim mi(8 To 99, 60 To 99) As Single
Dim fi(8 To 99, 60 To 99) As Single
Dim mj(0 To 99, 0 To 99) As Single
Dim fj(0 To 99, 0 To 99) As Single
Dim m2(0 To 99, 15 To 69) As Single
Dim f2(0 To 99, 15 To 69) As Single
Dim m2rate(0 To 200) As Single
Dim f2rate(0 To 200) As Single
Dim mrate(0 To 200) As Single
Dim frate(0 To 200) As Single
Dim mde(0 To 130) As Single
Dim fde(0 To 130) As Single
Dim mjde(0 To 130) As Single
Dim fjde(0 To 130) As Single
Dim age As Single
Dim year As Single
Dim byear As Single
Dim n As Single
Dim malpha(15 To 69) As Single
Dim falpha(15 To 69) As Single
Dim syear As Single
Dim msou(0 To 130) As Single
Dim fsou(0 To 130) As Single
Dim mip(8 To 99, 0 To 99) As Single
Dim fip(8 To 99, 0 To 99) As Single
Open "c:/eli/data/年齢相関.txt " For Input As #83
Do Until EOF(83)
Input #83, a1, a2, a3
age = a1
msou(age) = Int(a2)
msou(age) = Int(a3)
Loop
Close #83
n = 1
Open "c:/eli/data/男子受給者.txt " For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14
age = a1
b1(age) = a12
b2(age) = a13
b3(age) = a14
Loop
Close #1
n = 1
Open "c:/eli/data/女子受給者.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14
age = a1
c1(age) = a12
c2(age) = a13
c3(age) = a14
Loop
Close #2
Open "c:/eli/data/男子失権率.txt " For Input As #3
Do Until EOF(3)
Input #3, a1, a2, a3, a4
age = a1
mjde(age) = a2
mde(age) = a4
Loop
Close #3
Open "c:/eli/data/女子失権率.txt " For Input As #4
Do Until EOF(4)
Input #4, a1, a2, a3, a4
age = a1
fjde(age) = a2
fde(age) = a4
Loop
Close #4
Open "c:/eli/gdata/老齢年金.txt " For Input As #5
Do Until EOF(5)
Input #5, a1, a2, a3, a4
year = a1
age = a2
mj(year, age) = a3
fj(year, age) = a4
Loop
Close #5
Open "c:/eli/data/男子遺族.txt " For Input As #6
Do Until EOF(6)
Input #6, a1, a2, a3, a4
age = a1
m2rate(age) = a2
mrate(age) = a3
Loop
Close #6
Open "c:/eli/data/女子遺族.txt " For Input As #66
Do Until EOF(66)
Input #66, a1, a2, a3, a4
age = a1
f2rate(age) = a2
frate(age) = a3
Loop
Close #66
year = 8
For age = 60 To 99
mi(year, age) = (b1(age) + b2(age) + b3(age)) / 10 ^ 4
fi(year, age) = (c1(age) + c2(age) + c3(age)) / 10 ^ 4
Next
For year = 9 To 99
For age = 61 To 99
mi(year, age) = (1 - mde(age - 2)) * mi(year - 1, age - 1)
fi(year, age) = (1 - fde(age)) * fi(year - 1, age - 1)
Next
For age = 60 To 99
mi(year, age) = mi(year, age) + mrate(age) * mjde(age) * mj(year, age)
fi(year, age) = fi(year, age) + frate(age) * fjde(age) * fj(year, age)
Next
Next
Open "c:/eli/gdata/遺族年金.txt " For Output As #16
For year = 8 To 99
For age = 60 To 99
Write #16, year, age, mi(year, age), fi(year, age)
Next
Next
Close #16

End Sub