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

 Call PrnMas(A, 2, 0, "A")    ' результат вывода --->    Массив A(0:2)
                                                         -2 7 13
End Sub
Ввод в массив всех чисел (вплоть до конца) файла № =NF c опреде-
лением их количества
Sub IptMasN(A(), N, NF)                       ' на входе: N=max индекс массива
'Ввод элементов A(0),..,A(N) массива из файла № = NF, с клавиатуры при NF <= 0.
Dim str As Variant
 For j = 0 To N
  If NF <= 0 Then
    str = InputBox("Задайте элемент № " & j & "или признак конца X", _
"Ввод массива")
    If str = "x" Or str = "X" Then Exit For
    A(j) = Val(str)
  Else
    If EOF(NF) Then Exit For
    Input #NF, A(j)
   End If
 Next j
 N = j – 1 ' на выходе: N= кол-во введѐнных данных-1 , но N<=max индекс массива)
End Sub


Пример 1.2 использования процедур IptMasN, PrnMas для ввода (и вы-
вода) из файла IptDat.txt чисел: 3, 2.5, 6, -2, 7, 13 (числа могут следовать
друг за другом по строкам и разделяться как запятыми, так и пробела-
ми).
Sub Test_IptMasN()
 Dim A(6)
 Open "IptDat.txt" For Input As #1 ' файл для чтения (из папки по умолчанию)
 N=6: Call IptMasN(A, N, 1) ' вариант исх. данных --->      3 2.5 6
 Close 1                                                   -2 7 13
 Call PrnMas(A, N, 0, "A")    ' результат вывода --->      Массив A(0:5)
End Sub                                                    3 2,5 6 -2 7 13

                                         5