ｇだた１５２ - プログラム倉庫

Private Sub Command1_Click()
Dim age As Single
Dim x1(15 To 100) As Single
Dim x2(15 To 100) As Single
Dim x3(15 To 100) As Single
Dim x4(15 To 100) As Single
Open "c:/eli/data152.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3, a4
age = a1
x1(age) = a2
x2(age) = a3
x3(age) = a4
Loop
Close #2


Open "c:/eli/152.txt " For Output As #32
For age = 15 To 64
Write #32, age, x1(age), x2(age), x3(age)
Next
Close #32

End Sub