ｐｐｐｊ

Private Sub Command1_Click()
Dim year As Single
Dim rate(0 To 99) As Single
For year = 0 To 5
rate(year) = 14.288
Next
For year = 6 To 99
rate(year) = rate(year - 1) + 0.354
If rate(year) > 18.3 Then rate(year) = 18.3
Next
Debug.Print rate(15)
Open "c:/kirakira/gdata/保険料.txt " For Output As #1
For year = 0 To 99
Write #1, year, rate(year)
Next
Close #1
End Sub