きゅ ０６ - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim wife(0 To 99, 15 To 69) As Single
Dim mrate(0 To 99, 15 To 69) As Single
Dim trate(0 To 99, 15 To 69) As Single
Dim drate(0 To 99, 15 To 69) As Single
Dim mrou(8 To 99, 15 To 69) As Single
Dim trou(8 To 99, 15 To 69) As Single
Dim drou(8 To 99, 15 To 69) As Single
Dim tuma(8 To 99, 15 To 69) As Single
Dim doku(8 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:/kyu/gdata/将来推計人口.txt" For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3, a4
year = a1
age = a2
m(year, age) = a3
f(year, age) = a4
Loop
Close #2
Open "c:/kyu/gdata/有配偶率.txt" For Input As #3
Do Until EOF(3)
Input #3, a1, a2, a3
year = a1
age = a2
wife(year, age) = a3
Loop
Close #3

Open "c:/kyu/gdata/労働力率.txt" For Input As #4
Do Until EOF(4)
Input #4, a1, a2, a3, a4, a5
year = a1
age = a2
mrate(year, age) = a3
trate(year, age) = a4
drate(year, age) = a5
Loop
Close #4
For year = 8 To 99
For age = 15 To 69
tuma(year, age) = wife(year, age) * f(year, age)
doku(year, age) = f(year, age) - tuma(year, age)
Next
Next
For year = 8 To 99
For age = 15 To 69
mrou(year, age) = mrate(year, age) * m(year, age)
trou(year, age) = trate(year, age) * tuma(year, age)
drou(year, age) = drate(year, age) * doku(year, age)
Next
Next
Open "c:/kyu/gdata/労働力人口.txt " For Output As #3
For year = 8 To 99
For age = 15 To 69
Write #3, year, age, mrou(year, age), trou(year, age), drou(year, age)
Next
Next
Close #3
For year = 10 To 99
z1 = 0
For age = 15 To 69
z1 = z1 + mrou(year, age) + trou(year, age) + drou(year, age)
Next
Debug.Print year, z1
Next


End Sub