分析４ - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim rev(5 To 99) As Single
Dim zrev(0 To 105) As Single
Dim zkyo(0 To 105) As Single
Dim kyu(0 To 105) As Single
Dim rou(5 To 99) As Single
Dim tu(5 To 99) As Single
Dim kyo(5 To 99) As Single
Dim iz(5 To 99) As Single
Dim kuni(0 To 105) As Single
Dim year As Single
Dim age As Single
Open "c:/nagoya/gdata/支払保険料.txt " For Input As #5
Do Until EOF(5)
Input #5, a1, a2
year = a1
rev(year) = a2
Loop
Close #5
Open "c:/nagoya/gdata/老齢年金受給額.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2
year = a1
rou(year) = a2
Loop
Close #2
Open "c:/nagoya/gdata/通算年金受給額.txt " For Input As #3
Do Until EOF(3)
Input #3, a1, a2
year = a1
tu(year) = a2
Loop
Close #3
Open "c:/nagoya/gdata/遺族年金受給額.txt " For Input As #5
Do Until EOF(5)
Input #5, a1, a2
year = a1
iz(year) = a2
Loop
Close #3
Open "c:/nagoya/gdata/基礎年金拠出金.txt " For Input As #4
Do Until EOF(4)
Input #4, a1, a2
year = a1
kyo(year) = a2
Loop
Close #4
r1 = 0
For year = 10 To 99
r1 = r1 + (rou(year) + tu(year) + iz(year)) / (1 + 0.041) ^ (year - 10)
Next
r2 = 0
For year = 10 To 99
r2 = r2 + rev(year) / (1 + 0.041) ^ (year - 10)
Next
r2 = r2 + 140
Debug.Print r2 / r1


End Sub