h382 - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim b1(0 To 120) As Single
Dim b2(0 To 120) As Single
Dim b3(0 To 120) As Single
Dim c1(0 To 120) As Single
Dim c2(0 To 120) As Single
Dim c3(0 To 120) As Single
Dim mi(8 To 99, 60 To 99) As Single
Dim fi(8 To 99, 60 To 99) As Single
Dim mj(0 To 99, 0 To 99) As Single
Dim fj(0 To 99, 0 To 99) As Single
Dim m2(0 To 99, 15 To 69) As Single
Dim f2(0 To 99, 15 To 69) As Single
Dim m2rate(0 To 200) As Single
Dim mmrate(0 To 200) As Single
Dim ffrate(0 To 200) As Single
Dim f2rate(0 To 200) As Single
Dim mrate(0 To 200) As Single
Dim frate(0 To 200) As Single
Dim mde(0 To 130) As Single
Dim fde(0 To 130) As Single
Dim mjde(0 To 130) As Single
Dim fjde(0 To 130) As Single
Dim age As Single
Dim year As Single
Dim byear As Single
Dim n As Single
Dim malpha(15 To 69) As Single
Dim falpha(15 To 69) As Single
Dim syear As Single
Dim msou(0 To 130) As Single
Dim fsou(0 To 130) As Single
Dim mip(8 To 99, 0 To 99) As Single
Dim fip(8 To 99, 0 To 99) As Single


Open "c:/eli/data/男子遺族.txt " For Input As #6
Do Until EOF(6)
Input #6, a1, a2, a3, a4
age = a1
m2rate(age) = a2
mrate(age) = a3
mmrate(age) = a3

Loop
Close #6
Open "c:/eli/data/女子遺族.txt " For Input As #66
Do Until EOF(66)
Input #66, a1, a2, a3, a4
age = a1
f2rate(age) = a2
frate(age) = a3
ffrate(age) = a3
Loop
Close #66

Open "c:/eli/385.txt " For Output As #16
For age = 0 To 200
Write #16, age, m2rate(age), mrate(age), mmrate(age)
Next
Close #16

Open "c:/eli/386.txt " For Output As #17
For age = 0 To 200
Write #17, age, f2rate(age), frate(age), ffrate(age)
Next
Close #17



End Sub