ｆｇｈｈ - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim mrate(0 To 99, 15 To 69) As Single
Dim frate(0 To 99, 15 To 69) As Single
Dim mrou(0 To 99, 15 To 69) As Single
Dim frou(0 To 99, 15 To 69) As Single
Dim m(0 To 99, 0 To 99) As Single
Dim f(0 To 99, 0 To 99) As Single
Dim year As Single
Dim age As Single
Open "c:/hagetaka/gdata/労働力.txt" For Input As #105
Do Until EOF(105)
Input #105, a1, a2, a3, a4
year = a1
age = a2
mrate(year, age) = a3
frate(year, age) = a4
Loop
Close #105
Open "c:/hagetaka/gdata/将来推計人口.txt" For Input As #104
Do Until EOF(104)
Input #104, a1, a2, a3, a4
year = a1
age = a2
m(year, age) = a3
f(year, age) = a4
Loop
Close #104
For year = 5 To 99
For age = 15 To 69
mrou(year, age) = makemrou(year, age, mrate, m)
frou(year, age) = makefrou(year, age, frate, f)
Next
Next
Open "c:/hagetaka/gdata/労働力人口.txt " For Output As #106
For year = 5 To 99
For age = 15 To 69
Write #106, year, age, mrou(year, age), frou(year, age)
Next
Next
Close #106
For year = 5 To 99
z1 = 0
For age = 15 To 69
z1 = z1 + mrou(year, age) + frou(year, age)
Next
Debug.Print year, z1
Next
End Sub