Язык программирования: VBA. Задание: сформировать массив, указанный на первом...

Макрос для любого листа рабочей книги

Sub main()
    Dim x(1 To 7) As Double
    fn = "H:\Temp\Data.txt" 'Тут полный путь к файлу
    f = FreeFile
    Open fn For Input As #f
    i = 1
    Do Until i = 8
        Input #f, x(i)
        i = i + 1
    Loop
    Close #f
    Cells(1, 1) = "x(i)"
    Cells(2, 1) = "y(i)"
    i = 1
    Do
        Cells(1, i + 1) = x(i)
        Cells(2, i + 1) = Sqr(x(i)) * Exp(2 * x(i))
        i = i + 1
    Loop While i <= 7<br>End Sub

Скачать вложение Текст (TXT)

Язык программирования: VBA. Задание: сформировать массив, указанный ** первом...