だた０１ - プログラム倉庫

Private Sub Command1_Click()
Dim a(0 To 100) As Single
Dim b(0 To 1000) As Single
Dim c(1 To 11, 15 To 49) As Single
Dim startm(0 To 100) As Single
Dim startf(0 To 100) As Single
Dim age As Single
n = 0
Open "c:/eli/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 age = 0 To 100
startm(age) = a(age) / 10 ^ 4
startf(age) = b(age) / 10 ^ 4
Next
Open "c:/php/data01.txt" For Output As #11
For age = 0 To 99
Write #11, age
Write #11, startm(age)
Write #11, startf(age)
Next
Close #11
End Sub