４９ｇｊｈ - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim x2(15 To 70) As Single
Dim x3(15 To 70) As Single
Dim rate(20 To 59) As Single
Dim m2(0 To 99, 15 To 69) As Single
Dim f2(0 To 99, 15 To 69) As Single
Dim m3(0 To 99, 15 To 69) As Single
Dim f3(0 To 99, 15 To 69) As Single
Dim age As Single
Dim year As Single
age = 15
Open "c:/nagoya/data/厚生3号.txt " For Input As #1
Do Until EOF(1)
Input #1, a1, a2
x2(age) = a1
x3(age) = a2
age = age + 1
Loop
Close #1
For age = 20 To 59
rate(age) = x3(age) / x2(age)
Debug.Print rate(age)
Next
Open "c:/hagetaka/gdata/厚生年金被保険者.txt " For Input As #110
Do Until EOF(110)
Input #110, a1, a2, a3, a4
year = a1
age = a2
m2(year, age) = a3
f2(year, age) = a4
Loop
Close #110
For year = 5 To 99
For age = 20 To 59
f3(year, age) = rate(age) * m2(year, age)
Next
Next
Open "c:/hagetaka/gdata/厚生3号.txt " For Output As #149
For year = 5 To 99
For age = 20 To 59
Write #149, year, age, m3(year, age), f3(year, age)
Next
Next
Close #149

For year = 5 To 99
z1 = 0
For age = 20 To 59
z1 = z1 + m3(year, age) + f3(year, age)
Next
Debug.Print year, z1
Next

End Sub