memo90 - プログラム倉庫

Private Sub Command1_Click()
Dim year As Single
Dim age As Single
Dim mrate(8 To 99, 15 To 69) As Single
Dim frate(8 To 99, 15 To 69) As Single
Dim mx(1996 To 2007, 15 To 100) As Single
Dim fx(1996 To 2007, 15 To 100) As Single
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
age = a1
mx(1996, age) = a2
mx(1997, age) = a3
mx(1998, age) = a4
mx(1999, age) = a5
mx(2000, age) = a6
mx(2001, age) = a7
mx(2002, age) = a8
mx(2003, age) = a9
mx(2004, age) = a10
mx(2005, age) = a11
mx(2006, age) = a12
mx(2007, age) = a13
Loop
Close #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
age = a1
fx(1996, age) = a2
fx(1997, age) = a3
fx(1998, age) = a4
fx(1999, age) = a5
fx(2000, age) = a6
fx(2001, age) = a7
fx(2002, age) = a8
fx(2003, age) = a9
fx(2004, age) = a10
fx(2005, age) = a11
fx(2006, age) = a12
fx(2007, age) = a13
Loop
Close #2


Open "c:/eli/b500.txt " For Output As #3
For year = 1996 To 2007
For age = 15 To 100
Write #3, year, age, mx(year, age), fx(year, age)
Next
Next
Close #3



End Sub