20 基礎年金給付費 - プログラム倉庫

Private Sub Command1_Click()
Dim year As Integer
Dim kisoj(0 To 99) As Single
Dim kiso(0 To 99) As Single
Dim macro(0 To 99) As Single
Dim a1 As Single
Dim a2 As Single
Dim n As Integer
Dim g As Single
Dim g1 As Single
Open "c:/stream/gdata/基礎年金受給者.txt" For Input As #1
Do Until EOF(1)
Input #1, a1, a2
year = a1
kisoj(year) = a2
Loop
Close #1
g = 0.021
g1 = 1
For year = 5 To 99
g1 = g1 * (1 + g)
If year = 0 Then g1 = 1
kiso(year) = 0.8 * 80 * kisoj(year) * g1 / 10 ^ 4
Next
Open "c:/stream/gdata/基礎年金給付費.txt" For Output As #2
For year = 0 To 99
Write #2, year, kiso(year)
Next
Close #2
For n = 1 To 5
year = 5 * n
Debug.Print kiso(year)
Next
For n = 3 To 9
year = 10 * n
Debug.Print kiso(year)
Next
End Sub