ｈ３８ - プログラム倉庫

Private Sub Command1_Click()
Dim b1(0 To 200) As Single
Dim b2(0 To 200) As Single
Dim b3(0 To 200) As Single
Dim b4(0 To 200) As Single
Dim b5(0 To 200) As Single
Dim b6(0 To 200) As Single
Dim b7(0 To 200) As Single
Dim b8(0 To 200) As Single
Dim b9(0 To 200) As Single
Dim b10(0 To 200) As Single
Dim b11(0 To 200) As Single
Dim b12(0 To 200) As Single
Dim b13(0 To 200) As Single
Dim c1(0 To 200) As Single
Dim c2(0 To 200) As Single
Dim c3(0 To 200) As Single
Dim c4(0 To 200) As Single
Dim c5(0 To 200) As Single
Dim c6(0 To 200) As Single
Dim c7(0 To 200) As Single
Dim c8(0 To 200) As Single
Dim c9(0 To 200) As Single
Dim c10(0 To 200) As Single
Dim c11(0 To 200) As Single
Dim c12(0 To 200) As Single
Dim c13(0 To 200) As Single

Open "c:/eli/data/男子受給者.txt " For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14
age = a1
b1(age) = a2
b2(age) = a3
b3(age) = a4
b4(age) = a5
b5(age) = a6
b6(age) = a7
b7(age) = a8
b8(age) = a9
b9(age) = a10
b10(age) = a11
b11(age) = a12
b12(age) = a13
Loop
Close #1
Open "c:/eli/data/女子受給者.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14
age = a1
c1(age) = a2
c2(age) = a3
c3(age) = a4
c4(age) = a5
c5(age) = a6
c6(age) = a7
c7(age) = a8
c8(age) = a9
c9(age) = a10
c10(age) = a11
c11(age) = a12
c12(age) = a13
Loop
Close #2


Open "c:/eli/383.txt " For Output As #6
For age = 0 To 130
Write #6, age, b1(age), b2(age), b3(age), b4(age), b5(age), b6(age), b7(age), b8(age), b9(age), b10(age), b11(age), b12(age)
Next
Close #6


Open "c:/eli/384.txt " For Output As #7
For age = 0 To 130
Write #7, age, c1(age), c2(age), c3(age), c4(age), c5(age), c6(age), c7(age), c8(age), c9(age), c10(age), c11(age), c12(age)
Next
Close #7




End Sub