Как считать числа из файла - VB (61726)

Формулировка задачи:

Имеется txt файл в котором через пробел записаны числа в 4 столбика, что то вроде: 0.1 0.3 0.5 0.6 0.2 0.5 0.6 0.7 0.3 0.6 0.8 0.5 Как мне прописать код, чтобы для a(i), b(i), c(i), d(i) присваивались числа из этого файла в следующем порядке: a(1)=0.1 b(1)=0.3 c(1)=0.5 d(1)=0.6 a(2)=0.2 b(2)=0.5 c(2)=0.6 d(2)=0.7 и т.д. в скобках указана строка считывания. Менять положение чисел в файле нельзя.

Решение задачи: «Как считать числа из файла»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim k&, n&
On Error Resume Next
k = FreeFile()
Open "d:\1.txt" For Input As #k
n = LOF(k) \ 8 'одно число занимает не менее 2 символов (считая пробел)
ReDim a#(1 To n), b#(1 To n), c#(1 To n), d#(1 To n)
n = 0
Do
    n = n + 1
    Input #k, a(n), b(n), c(n), d(n)
    If Err Then Exit Do
Loop
Close #k
ReDim Preserve a(1 To n), b(1 To n), c(1 To n), d(1 To n)
End Sub
                        