ｈ０９ - プログラム倉庫

Private Sub Command1_Click()
Dim age As Single
Dim x1(15 To 100) As Single
Dim x2(15 To 100) As Single
Dim x3(15 To 100) As Single
Dim x4(15 To 100) As Single

age = 15
Open "c:/eli/data/厚生3号.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3
x1(age) = a1
x2(age) = a2
age = age + 1
Loop
Close #2
age = 15
Open "c:/eli/data/共済3号.txt " For Input As #4
Do Until EOF(4)
Input #4, a1, a2, a3, a4, a5, a6, a7, a8, a9
x3(age) = a1 + a3 + a5
x4(age) = a2 + a4 + a6
age = age + 1
Loop
Close #4

Open "c:/eli/911.txt " For Output As #31
For age = 15 To 69
Write #31, age, x1(age), x2(age)
Next
Close #31

Open "c:/eli/912.txt " For Output As #32
For age = 15 To 69
Write #32, age, x3(age), x4(age)
Next
Close #32

End Sub