Язык программирования: 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 lt;= 7
End Sub