h57 - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim a4 As Single
Dim a5 As Single
Dim a6 As Single
Dim a7 As Single
Dim a8 As Single
Dim a9 As Single
Dim a10 As Single
Dim a11 As Single
Dim year As Single
Dim b1(9 To 120) As Single
Dim b2(9 To 120) As Single
Dim b3(9 To 120) As Single
Dim b4(9 To 120) As Single
Dim b5(9 To 120) As Single
Dim b6(9 To 120) As Single
Dim b7(9 To 120) As Single
Dim b8(9 To 120) As Single
Dim b9(9 To 120) As Single
Dim b10(9 To 120) As Single
Dim b11(9 To 120) As Single
Dim b12(9 To 120) As Single
Dim b13(9 To 120) As Single
Dim b14(9 To 120) As Single
Dim b15(9 To 120) As Single
Open "c:/eli/data5901.txt " For Input As #41
Do Until EOF(41)
Input #41, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16
year = a1 - 2000
b1(year) = a2
b2(year) = a3
b3(year) = a4
b4(year) = a5
b5(year) = a6
b6(year) = a7
b7(year) = a8
b8(year) = a9
b9(year) = a10
b10(year) = a11
b11(year) = a12
b12(year) = a13
b13(year) = a14
b14(year) = a15
b15(year) = a16
Loop
Close #41
Open "c:/eli/5901.txt" For Output As #8
For year = 9 To 105
Write #8, year, b1(year), b2(year), b3(year), b4(year), b5(year), b6(year), b7(year), b8(year), b9(year), b10(year), b11(year), b12(year), b13(year), b14(year), b15(year)
Next
Close #8
End Sub