28 支出合計 - プログラム倉庫

Private Sub Command1_Click()
Dim year As Integer
Dim age As Integer
Dim kiso(-5 To 99) As Single
Dim tu(-5 To 99) As Single
Dim rou(-5 To 99) As Single
Dim iz(-5 To 99) As Single
Dim gou(-5 To 99) As Single
Dim a1 As Single
Dim a2 As Single
Dim n As Integer
Dim g As Single
Open "c:/simple/gdata/基礎年金拠出金.txt" For Input As #1
Do Until EOF(1)
Input #1, a1, a2
year = a1
kiso(year) = a2
Loop
Close #1
Open "c:/simple/gdata/老齢年金受給額.txt" For Input As #2
Do Until EOF(2)
Input #2, a1, a2
year = a1
rou(year) = a2
Loop
Close #2
Open "c:/simple/gdata/通算年金受給額.txt" For Input As #3
Do Until EOF(3)
Input #3, a1, a2
year = a1
tu(year) = a2
Loop
Close #3
Open "c:/simple/gdata/遺族年金受給額.txt" For Input As #4
Do Until EOF(4)
Input #4, a1, a2
year = a1
iz(year) = a2
Loop
Close #4
For n = 1 To 5
year = 5 * n
gou(year) = kiso(year) + tu(year) + rou(year) + iz(year)
Debug.Print year, gou(year)
Next
For n = 3 To 6
year = 10 * n
gou(year) = kiso(year) + tu(year) + rou(year) + iz(year)
Debug.Print year, gou(year)
Next



End Sub