Далее для непосредственного набора текста программы нужно запустить модуль с текстовым редактором по следующему пути :

Sub RAS ()

Q = 100

ή = 0,7

L1n = 0.1

L1k = 0.5

dL1 = 0.05

L2n = 15

L2k = 60

dL2 = 5

Range (“b1”).Select

ActiveCell = (“Результат”)

j = 1

For L1i = L1n To L1k Step dL1

i = 2

For L2i = L2n To L2k Step dL2

W = (Q * L1i * ή)/ (L1i+L2i)

Sheets(“Лист1”).Cells(i, j) = W

i = i + 1

Next L2i

j = j + 1

Next L1i

End Sub

Начало процедуры

Присвоение переменной значения

Присвоение переменной значения

Начальное значение изменяющ. параметра

Конечное значение изменяющ. параметра

Шаг изменения параметра

Начальное значение изменяющ. параметра

Конечное значение изменяющ. параметра

Шаг изменения параметра

Перевод курсора в ячейку “b1”

Запись в ячейке “b1” текста “Результат”

Присвоение счётчику внешн. цикла знач. =1

Начало внешнего цикла от L1n до L1k

Присвоение счётчику внутр. цикла знач. =1

Начало внутреннего цикла от L2n до L2k

Выполнение в цикле оператора присвоения

Печать усилия зажима в ячейку рабоч. листа

Увеличение внутреннего счётчика на единицу

Оператор окончания внутреннего цикла

Увеличение внешнего счётчика на единицу

Оператор окончания внешнего цикла

Окончание работы процедуры