きらきら０２ - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim a(1 To 11, 15 To 49) As Single
Dim age As Single
Open "c:/kirakira/data/出生率1.txt " For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4, a5, a6, a7
age = a1
a(1, age) = a2
a(2, age) = a3
a(3, age) = a4
a(4, age) = a5
a(5, age) = a6
a(6, age) = a7
Loop
Close #1
Open "c:/kirakira/data/出生率2.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3, a4, a5, a6
age = a1
a(7, age) = a2
a(8, age) = a3
a(9, age) = a4
a(10, age) = a5
a(11, age) = a6
Loop
Close #2
Dim birth(0 To 99, 15 To 49) As Single
Dim year As Single
Dim n1 As Single
Dim n2 As Single
Dim n3 As Single
For year = 0 To 99
For age = 15 To 49
n1 = year / 5 + 1
n2 = Int(n1)
If n2 > 11 Then n2 = 11
n3 = n2 + 1
If n3 > 11 Then n3 = 11
birth(year, age) = a(n2, age) + (n1 - n2) * (a(n3, age) - a(n2, age))
Next
Next
Open "c:/kirakira/gdata/出生率.txt " For Output As #3
For year = 0 To 99
For age = 15 To 49
Write #3, year, age, birth(year, age)
Next
Next
Close #3
End Sub