Question

Написать программу используя DO LOOP
Исходные данные и все промежуточные результаты вывести на рабочий лист.
Visual Basic

Answer 1

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

Sub aaa()
    i = 1
    y = 1
    Do
        x = 3.5
        Do
            Z = x * (y - x) / ((x - y) ^ 3 + 5)
            Cells(i, 1) = y
            Cells(i, 2) = x
            Cells(i, 3) = Z
            i = i + 1
            x = x + 0.5
        Loop While x <= 5.5
        y = y + 1
    Loop While y <= 3
End Sub