47 pro - プログラム倉庫

Function su(year As Integer, m, f) As Single
Dim s1 As Single
Dim age As Integer
s1 = 0
For age = 65 To 99
s1 = s1 + m(year, age) + f(year, age)
Next
su = s1
End Function
Private Sub Command1_Click()
Dim x As Single
Dim y As Single
Dim z As Single
Dim p As Single
Dim year As Integer
Dim age As Integer
Dim m(0 To 99, 0 To 99) As Single
Dim f(0 To 99, 0 To 99) As Single
Open "c:/stream/gdata/将来推計人口.txt" For Input As #1
Do Until EOF(1)
Input #1, x, y, z, p
year = x
age = y
m(year, age) = z
f(year, age) = p
Loop
Close #1
Dim n As Integer
Open "c:/stream/gdata/基礎年金受給者.txt" For Output As #2
For year = 0 To 99
Write #2, year, su(year, m, f)
Next
Close #2
For n = 1 To 5
year = 5 * n
Debug.Print year, Int(su(year, m, f))
Next
For n = 3 To 6
year = 10 * n
Debug.Print year, Int(su(year, m, f))
Next
End Sub