ｋｊ - プログラム倉庫

Private Sub Command1_Click()
Dim year As Single
Dim g(0 To 99) As Single
For year = 0 To 4
g(year) = 1
Next
For year = 5 To 8
g(year) = 1.008 * g(year - 1)
Next
For year = 9 To 99
g(year) = 1.011 * g(year - 1)
Next
For year = 1 To 99
Debug.Print year, g(year)
Next
Open "c:/kirakira/gdata/実質賃金.txt " For Output As #1
For year = 0 To 99
Write #1, year, g(year)
Next
Close #1
End Sub