31 マクロスライド - プログラム倉庫

Private Sub Command1_Click()
Dim year As Integer
Dim age As Integer
Dim m(-5 To 99, 0 To 99) As Single
Dim f(-5 To 99, 0 To 99) As Single
Dim macro(-3 To 99) As Single
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim a4 As Single
Open "c:/simple/gdata/将来推計人口.txt" For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4
year = a1
age = a2
m(year, age) = a3
f(year, age) = a4
Loop
Close #5
For year = 1 To 25
m1 = 0
m2 = 0
For age = 20 To 60
m1 = m1 + m(year - 1, age) + f(year - 1, age)
m2 = m2 + m(year, age) + f(year, age)
Next
macro(year) = Int(10000 * (m2 / m1 - 1)) / 10000
Next
Open "c:/simple/gdata/マクロスライド.txt" For Output As #4
For year = 0 To 25
Write #4, year, macro(year)
Next
Close #4
End Sub