変形生命表 - プログラム倉庫

Private Sub Command1_Click()
Dim year As Single
Dim byear As Single
Dim age As Single
Dim mde(0 To 100, 0 To 99) As Single
Dim mdeby(1900 To 2100, 0 To 99) As Single
Dim fde(0 To 100, 0 To 99) As Single
Dim fdeby(1900 To 2100, 0 To 99) As Single
Dim h As Single
Open "c:/stream/gdata/男子生命表.txt" For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3
year = a1
age = a2
mde(year, age) = a3
Loop
Close #1
Open "c:/stream/gdata/女子生命表.txt" For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3
year = a1
age = a2
fde(year, age) = a3
Loop
Close #2

For byear = 1900 To 2100
For age = 0 To 99
year = byear + age - 2000
h = 0
If year < 0 Then h = h + 1
If year > 100 Then h = h + 1
If h = 2 Then mdeby(byear, age) = mde(year, age)
If h = 2 Then fdeby(byear, age) = fde(year, age)
Next
Next
Open "c:/stream/gdata/変形生命表.txt" For Output As #11
For byear = 1900 To 2100
For age = 0 To 99
Write #11, byear, age, mdeby(byear, age), fdeby(byear, age)
Next
Next
Close #11
End Sub