ppl100 - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim a4 As Single
Dim age As Single
Dim m1(0 To 150) As Single
Dim m2(0 To 150) As Single
Dim m3(0 To 150) As Single
Open "c:/eli/data/女子失権率.txt " For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4
age = a1
m1(age) = a2
m2(age) = a3
m3(age) = a4
Loop
Close #1
Open "c:/eli/a700.txt " For Output As #6
For age = 0 To 99
Write #6, age, m1(age), m2(age), m3(age)
Next
Close #6
End Sub