８０ XV - プログラム倉庫

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 b4(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 c4(0 To 120) As Single
Dim mj(0 To 99, 0 To 99) As Single
Dim fj(0 To 99, 0 To 99) As Single
Dim mtime(1910 To 1949) As Single
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) = a4
b2(age) = a5
b3(age) = a8
b4(age) = a9
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) = a4
c2(age) = a5
c3(age) = a8
c4(age) = a9
Loop
Close #2
z1 = 0
z2 = 0
For byear = 1910 To 1943
age = 2008 - byear
z1 = c1(age) + c2(age) + c3(age) + c4(age)
z2 = b1(age) + b2(age) + b3(age) + b4(age)
mtime(byear) = z1 / z2
Next
Open "c:/eli/gdata/男子通算平均加入年数3.txt " For Output As #6
For byear = 1910 To 1949
Write #6, byear, mtime(byear)
Next
Close #6


End Sub