７２DIG - プログラム倉庫

Private Sub Command1_Click()
Dim age As Single
Dim car As Single
Dim minx(14 To 75, 0 To 50) As Single
Dim mout(14 To 75, 0 To 50) As Single
Dim mnew(60 To 69) As Single
Open "c:/dig/gdata/男子被保険者.txt " For Input As #6
Do Until EOF(6)
Input #6, a1, a2, a3
age = a1
car = a2
minx(age, car) = a3
Loop
Close #6
Open "c:/dig/gdata/男子待期者.txt " For Input As #7
Do Until EOF(7)
Input #7, a1, a2, a3
age = a1
car = a2
mout(age, car) = a3
Loop
Close #7
For age = 60 To 69
z1 = 0
For car = 25 To 50
z1 = z1 + minx(age, car) + mout(age, car)
Next
mnew(age) = z1
Debug.Print age, mnew(age)
Next
Open "c:/dig/gdata/男子新規裁定者3.txt " For Output As #4
For age = 60 To 69
Write #4, age, mnew(age)
Next
Close #4
End Sub