h40 - プログラム倉庫

Private Sub Command1_Click()
Dim b1(15 To 115) As Single
Dim b2(15 To 115) As Single
Dim b3(15 To 115) As Single
Dim c1(15 To 115) As Single
Dim c2(15 To 115) As Single
Dim c3(15 To 115) As Single
Open "c:/eli/data/男子遺族.txt " For Input As #6
Do Until EOF(6)
Input #6, a1, a2, a3, a4
age = a1
b1(age) = a2
b2(age) = a3
b3(age) = a4
Loop
Close #6

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


Open "c:/eli/a401.txt " For Output As #16
For age = 15 To 115
Write #16, age, b1(age), b2(age), b3(age)
Next
Close #16


Open "c:/eli/a402.txt " For Output As #26
For age = 15 To 115
Write #26, age, c1(age), c2(age), c3(age)
Next
Close #26



End Sub