０７ ９７年老齢年金受給者 - プログラム倉庫

Private Sub Command1_Click()
Dim mc(1 To 22, 1 To 9) As Single
Dim fc(1 To 20, 1 To 9) As Single
Dim a1 As Single
Dim n As Integer
Dim s As Integer
Open "c:/simple/data/男子受給者.txt" For Input As #1
n = 1
s = 1
Do Until EOF(1)
Input #1, a1
mc(n, s) = a1 / 10
s = s + 1
If s = 10 Then n = n + 1
If s = 10 Then s = 1
Loop
Close #1
Open "c:/simple/data/女子受給者.txt" For Input As #2
n = 1
s = 1
Do Until EOF(2)
Input #2, a1
fc(n, s) = a1 / 10
s = s + 1
If s = 10 Then n = n + 1
If s = 10 Then s = 1
Loop
Close #2
Dim mj(0 To 99) As Single
Dim fj(0 To 99) As Single
Dim age As Integer
For age = 0 To 99
n = Int(age / 5) + 1
mj(age) = (mc(n, 2) + mc(n, 3)) / 5
fj(age) = (fc(n, 2) + fc(n, 3)) / 5
Next
Open "c:/simple/gdata/97老齢年金.txt" For Output As #3
For age = 0 To 99
Write #3, age, mj(age), fj(age)
Next
Close #3
Dim m1 As Single
m1 = 0
For age = 0 To 99
Debug.Print mj(age)
Next
End Sub