アルバいと - プログラム倉庫

Private Sub Command1_Click()
Dim a(1 To 39) As Single
Dim mrate(0 To 99, 15 To 69) As Single
Dim trate(0 To 99, 15 To 69) As Single
Dim drate(0 To 99, 15 To 69) As Single
Dim ms(0 To 99, 15 To 69) As Single
Dim ds(0 To 99, 15 To 69) As Single
Dim ts(0 To 99, 15 To 69) As Single
Dim mrou(0 To 99, 15 To 69) As Single
Dim drou(0 To 99, 15 To 69) As Single
Dim trou(0 To 99, 15 To 69) As Single
Dim mprate(15 To 69) As Single
Dim tprate(15 To 69) As Single
Dim dprate(15 To 69) As Single
Dim mal(0 To 99, 15 To 69) As Single
Dim fal(0 To 99, 15 To 69) As Single
Dim rate(0 To 99) As Single
Dim n As Single
Dim year As Single
Dim age As Single
n = 1
Open "c:/eli/data/アルバイト.txt" For Input As #1
Do Until EOF(1)
Input #1, a1
a(n) = a1
n = n + 1
Loop
Close #1
Open "c:/eli/gdata/就業者.txt " For Input As #2
Do Until EOF(2)
Input #2, a1, a2, a3, a4, a5
year = a1
age = a2
ms(year, age) = a3
ts(year, age) = a4
ds(year, age) = a5
Loop
Close #2
For age = 15 To 69
s = 3 * (Int(age / 5) - 3) + 1
mprate(age) = a(s)
tprate(age) = a(s + 1)
dprate(age) = a(s + 2)
Next
For year = 5 To 30
a1 = 20 + 10 * (year - 5) / 25
rate(year) = 0.01 * a1 / 20
Next
For year = 31 To 99
a1 = 30
rate(year) = 0.01 * a1 / 20
Next
For year = 9 To 99
For age = 15 To 69
mal(year, age) = rate(year) * mprate(age) * ms(year, age)
fal(year, age) = rate(year) * (tprate(age) * ts(year, age) + dprate(age) * ds(year, age))
Next
Next
Open "c:/eli/gdata/アルバイト.txt" For Output As #11
For year = 5 To 99
For age = 15 To 69
Write #11, year, age, mal(year, age), fal(year, age)
Next
Next
Close #11
End Sub