h385

Private Sub Command1_Click()
Dim mtime(1900 To 2100) As Single
Dim ftime(1900 To 2100) As Single
Open "c:/eli/data/報酬裁定.txt " For Input As #15
Do Until EOF(15)
Input #15, a1, a2, a3
byear = a1
mtime(byear) = a2
ftime(byear) = a3
Loop
Close #15

Open "c:/eli/385.txt " For Output As #7
For byear = 1951 To 1969
Write #7, byear, mtime(byear), ftime(byear)
Next
Close #7

End Sub