h79 - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim b1(0 To 120) As Single
Dim b2(0 To 120) As Single
Dim b3(0 To 120) As Single
Dim b4(0 To 120) As Single
Dim c1(0 To 120) As Single
Dim c2(0 To 120) As Single
Dim c3(0 To 120) As Single
Dim c4(0 To 120) As Single
Dim c5(0 To 120) As Single
Dim c6(0 To 120) As Single
Dim c7(0 To 120) As Single
Dim c8(0 To 120) As Single
Dim c9(0 To 120) As Single
Dim c10(0 To 120) As Single
Dim c11(0 To 120) As Single
Dim c12(0 To 120) As Single
Dim c13(0 To 120) As Single
Dim mj(0 To 99, 0 To 99) As Single
Dim fj(0 To 99, 0 To 99) As Single
Dim mtime(1910 To 1949) As Single
n = 1
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) = a6
b4(age) = a7
Loop
Close #1
n = 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
c13(age) = a14
Loop
Close #2
z1 = 0

Open "c:/eli/79.txt " For Output As #6
For age = 0 To 115
Write #6, 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), c13(age)
Next
Close #6


End Sub