fggh - プログラム倉庫

Function makestartm(age As Single, data01) As Single
makestartm = data01(1, age) / 10 ^ 4
End Function
Function makestartf(age As Single, data01) As Single
makestartf = data01(2, age) / 10 ^ 4
End Function
Private Sub Command1_Click()
Dim age As Single
Dim data01(1 To 2, 0 To 200) As Single
Dim startm(0 To 200) As Single
Dim startf(0 To 200) As Single
age = 0
Open "c:/hagetaka/data/国勢調査.txt" For Input As #1
Do Until EOF(1)
Input #1, a1, a2
data01(1, age) = a1
data01(2, age) = a2
age = age + 1
Loop
Close #1
For age = 0 To 100
startm(age) = makestartm(age, data01)
startf(age) = makestartf(age, data01)
Next
Open "c:/hagetaka/gdata/国勢調査.txt " For Output As #101
For age = 0 To 99
Write #101, age, startm(age), startf(age)
Next
Close #101

End Sub