ぺん９２ - プログラム倉庫

Private Sub Command1_Click()
Dim age As Single
Dim pon As String
Dim a(1 To 11, 15 To 49) As Single
Open "c:/java/data02.txt " For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4, a5, a6, a7
age = a1
a(1, age) = a2
a(2, age) = a3
a(3, age) = a4
a(4, age) = a5
a(5, age) = a6
a(6, age) = a7
Loop
Close #1
Open "c:/java/data03.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3, a4, a5, a6
age = a1
a(7, age) = a2
a(8, age) = a3
a(9, age) = a4
a(10, age) = a5
a(11, age) = a6
Loop
Close #2
Open "c:/java/pdata02.txt " For Output As #3
For n = 1 To 11
For age = 15 To 49
Write #3, n, age, a(n, age)
Next
Next
Close #3
End Sub