VBA: Составить программу вычисления значений функции на VBA.

[AnnySven]

Задание. Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h. Результат представить в виде таблицы, первый столбец которой значения аргумента, второй - соответствующие значения функции:

F(x)=-cos2x

[Администратор]

Перед запуском макроса сделайте активным эксель-лист без данных, чтобы не испортить ваши данные, т.к. макрос вставит результат на активный эксель-лист.

Макрос

Sub Procedure_1()

    Dim a As Double, b As Double
    Dim h As Double
    Dim x As Double
    Dim i As Long
   
   
    a = 1
    b = 10
    h = 1
   
    'Очистка Excel-листа от прежних данных.
    'UsedRange - это ячейки, в которых что-то есть:
        'данные или форматирование (например, заливка ячеек).
    ActiveSheet.UsedRange.Clear
   
    For x = a To b Step h
        i = i + 1
        Cells(i, "A").Value = x
        Cells(i, "B").Value = -Math.Cos(2 * x)
    Next x

End Sub

[свернуть]

[AnnySven]

Спасибо.