01 国勢調査 - プログラム倉庫

Private Sub Command1_Click()
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim a(1 To 1000) As Single
Dim b(1 To 1000) As Single
Dim c(1 To 1000) As Single
Dim age As Single
Dim x(0 To 100) As Single
Dim y(0 To 100) As Single
Dim startm(0 To 100) As Single
Dim startf(0 To 100) As Single
n = 1
Open "c:/stream/data/国勢調査.txt" For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3
a(n) = a1
b(n) = a2
c(n) = a3
n = n + 1
Loop
Close #1
For age = 0 To 99
n = age + 3 + Int(age / 5)
x(age) = b(n)
y(age) = c(n)
Next
For age = 0 To 99
startm(age) = x(age) / 10 ^ 4
startf(age) = y(age) / 10 ^ 4
Next
Open "c:/stream/gdata/国勢調査.txt " For Output As #2
For age = 0 To 99
Write #2, age, startm(age), startf(age)
Next
Close #2
p1 = 0
For age = 0 To 99
p1 = p1 + startm(age) + startf(age)
Next
Debug.Print p1
End Sub