Решение задач в Excel на VBA. Применение программных средств в проектировании автомобильных конструкций. Калядин В.И. - 4 стр.

Вывод массива в файл № = NF или в окно отладки при NF = 0:
Sub PrnMas(A(), N, NF, AName$)
'Вывод массива A(N) с именем AName$ в файл № NF, в окно отладки при NF = 0.
 S$ = "Массив " & AName$ & "(0:" & N & ")"
 If NF = 0 Then Debug.Print S$ Else Print #NF, S$
 For j = 0 To N
    If NF = 0 Then Debug.Print A(j); Else Print #NF, A(j);
 Next j
 If NF = 0 Then Debug.Print Else Print #NF, ""
End Sub
Ввод N+1 значений элементов вектора (одномерного массива) чтени-
ем из текущего места в файле NF:
Sub IptMas(A(), N, NF)
'Ввод элементов A(0),..,A(N) массива из файла № = NF, с клавиатуры при NF <= 0.
 For j = 0 To N
  If NF <= 0 Then
    A(j) = Val(InputBox("Задайте элемент № " & j, "Ввод массива"))
  Else
     Input #NF, A(j)
  End If
 Next j
End Sub
Пример 1.1 использования процедур IptMas, PrnMas для ввода (и выво-
да) из файла IptDat.txt чисел: 3, 2.5, 6, -2, 7, 13
Sub Test_IptMas()
 Dim A(2)
 Open "IptDat.txt" For Input As #1 ' файл для чтения (из папки … по умолчанию)
 Call IptMas(A, 2, 1)        ' вариант исх. данных ---> 3 2.5 6
                                                          -2 7 13

 Call PrnMas(A, 2, 0, "A")   ' результат вывода --->     Массив A(0:2)
 Call IptMas(A, 2, 1)                                    3 2,5 6

 Close 1
                                        4