03 生命表 - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim a(1 To 11, 0 To 99) As Single
Dim b(1 To 11, 0 To 99) As Single
Dim mde(0 To 99, 0 To 99) As Single
Dim fde(0 To 99, 0 To 99) As Single
Dim age As Single
Dim year As Single
Open "c:/stream/data/男子生命表.txt" For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12
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
a(7, age) = a8
a(8, age) = a9
a(9, age) = a10
a(10, age) = a11
a(11, age) = a12
Loop
Close #1
Open "c:/stream/data/女子生命表.txt" For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12
age = a1
b(1, age) = a2
b(2, age) = a3
b(3, age) = a4
b(4, age) = a5
b(5, age) = a6
b(6, age) = a7
b(7, age) = a8
b(8, age) = a9
b(9, age) = a10
b(10, age) = a11
b(11, age) = a12
Loop
Close #2
For year = 0 To 99
For age = 0 To 99
n1 = year / 5 + 1
n2 = Int(n1)
If n2 > 11 Then n2 = 11
n3 = n2 + 1
If n3 > 11 Then n3 = 11
mde(year, age) = a(n2, age) + (n1 - n2) * (a(n3, age) - a(n2, age))
fde(year, age) = b(n2, age) + (n1 - n2) * (b(n3, age) - b(n2, age))
Next
Next
Open "c:/stream/gdata/男子生命表.txt " For Output As #3
For year = 0 To 99
For age = 0 To 99
Write #3, year, age, mde(year, age)
Next
Next
Close #3
Open "c:/stream/gdata/女子生命表.txt " For Output As #4
For year = 0 To 99
For age = 0 To 99
Write #4, year, age, fde(year, age)
Next
Next
Close #4
End Sub