h77 - プログラム倉庫

Private Sub Command1_Click()
Dim jyo1(1900 To 2100) As Single
Dim jyo2(1900 To 2100) As Single
Dim jyo3(1900 To 2100) As Single
Dim jyo4(1900 To 2100) As Single
Dim jyo(1900 To 2100) As Single
Dim byear As Single
Dim year As Single
Dim age As Single
Open "c:/eli/data/乗率.txt " For Input As #6
Do Until EOF(6)
Input #6, a1, a2, a3, a4, a5
byear = a1
jyo1(byear) = a2
jyo2(byear) = a3
jyo3(byear) = a4
jyo4(byear) = a5
Loop
Close #6
Open "c:/eli/77.txt " For Output As #5
For byear = 1926 To 1946
Write #5, byear, jyo1(byear), jyo2(byear), jyo3(byear), jyo4(byear)
Next
Close #5

End Sub