Option Explicit

Sub gh() ’Семейство характеристик

Dim a As Single, b As Single, Dim x As Single, y As Single, pi as Single

Dim n As Integer, _ ‘Номер столбца для вывода переменной а

k As Integer, _ ‘Номер строки для вывода переменныхх и у

m As Integer ‘Номер столбца для вывода переменной у

Range (“А1:U100”).Clear ‘Очистка листа Excel c ячейки A1 по U100

pi = 3.14159: b = 0.98: cells (1,1)=”x”

m = 2: n = 2 ‘Начальные значения mи n

For a = 2.5 To 3.5 Step 0.5 ‘Заголовок внешнего цикла по а

k = 2: Cells (1, n) = “a=” & a: n = n + 1

For x = -pi To pi + 0.01 Step pi / 6 ‘Заголовок внутреннего цикла по х

y = a * Sin(b * x) ^ 2 ‘Расчет у

Cells (k, 1) = x: ‘Вывод х в первый столбец

Cells (k, m) = y ‘Вывод столбца по у

k = k + 1 ‘Наращивание номера строки по x и у

Next x ‘Конец внутреннего цикла по х

m = m + 1 ‘Наращивание номера столбца по у

Next a ‘Конец внешнего цикла по а

End Sub

Таблица значений и график семейства кривых функции в
Excel показана на рис. 5.4.

Рис. 5.4. Таблица значений (а) и график семейства кривых (б) функции на рабочем листе Excel

а б