６８ ぢｇ - プログラム倉庫

Private Sub Command1_Click()
Dim a(1 To 11) As Single
Dim b(1 To 11) As Single
Dim wife(5 To 99, 15 To 69) As Single
Dim n As Single
Dim year As Single
Dim age As Single
n = 1
Open "c:/dig/data/有配偶率.txt" For Input As #1
Do Until EOF(1)
Input #1, a1, a2
a(n) = a1
b(n) = a2
n = n + 1
Loop
Close #1
For year = 5 To 29
For age = 15 To 69
n = Int(age / 5) - 2
wife(year, age) = 0.01 * (a(n) + (b(n) - a(n)) * (year - 5) / 25)
Next
Next
For year = 30 To 99
For age = 15 To 69
n = Int(age / 5) - 2
wife(year, age) = 0.01 * b(n)
Next
Next
Open "c:/dig/gdata/有配偶率.txt" For Output As #11
For year = 5 To 99
For age = 15 To 69
Write #11, year, age, wife(year, age)
Next
Next
Close #11



End Sub