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

Автор AnnySven, 10 апреля 2014, 18:38

Печать
Вниз Страницы1
Действия пользователя

AnnySven

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

F(x)=-cos2x

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

#1
10 апреля 2014, 18:59
Перед запуском макроса сделайте активным эксель-лист без данных, чтобы не испортить ваши данные, т.к. макрос вставит результат на активный эксель-лист.

Макрос
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
[свернуть]
Печать
Вверх Страницы1
Действия пользователя