ｈ６８

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:/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
Open "c:/eli/68.txt" For Output As #11
For n = 1 To 11
Write #11, a(n), b(n)
Next
Close #11

End Sub