На языке VBA составить программу для расчета функции

2. Формализация решения задачи.

3. Алгоритмизация решения задачи.

Упрощенный вариант блок – схемы.

4. Программирование.

4.1. Создание графической формы с элементами управления.

Рисунок 2 – Внешний вид формы «Работа с циклами» с объектами

4.2. Присвоение каждому элементу управления индивидуальных свойств.

4.3. Создание исходного кода в соответствии с алгоритмом.

Цикл 1

Private Sub CommandButton1_Click()
'Запускается программа Sub командной кнопкой 1
Dim a As Single
Dim c As Single
Dim x As Single
Dim y As Single
' Задание типов переменных a, c, x, y, где все переменные дробные (вещественные) числа
x = Val(TextBox1.Text)
' Ввод значений x через текстовое поле 1
ListBox1.Clear
For c = 5 To 5.8 Step 0.2
' Открытие цикла по переменной c
For a = 2 To 3 Step 0.5
' Открытие цикла по переменной a
y = (c ^ 2 + (5.2 * Sin(x))) / (Sqr(3.8 * x + (Abs(a) * c)))
' Расчет значений функции y
ListBox1.AddItem "y=" + CStr(y)
' Вывод значений функции y
Next a
' Закрытие цикла по переменной a
Next c
' Закрытие цикла по переменной c
End Sub
' Конец программы Sub

Private Sub CommandButton2_Click()
'Запускается программа Sub командной кнопкой 2
Dim a As Single
Dim c As Single
Dim x As Single
Dim y As Single
' Задание типов переменных a, c, x, y, где все переменные дробные (вещественные) числа
x = Val(TextBox1.Text)
' Ввод значений x через текстовое поле 1
ListBox2.Clear
c = 5: Do While c <= 5.8
' Открытие цикла по переменной c
a = 2: Do While a <= 3
' Открытие цикла по переменной a
y = (c ^ 2 + (5.2 * Sin(x))) / (Sqr(3.8 * x + (Abs(a) * c)))
' Расчет значений функции y
ListBox2.AddItem "y=" + CStr(y)
' Вывод значений функции y
a = a + 0.5: Loop
' Закрытие цикла по переменной a
c = c + 0.2: Loop
' Закрытие цикла по переменной c
End Sub
' Конец программы Sub

Private Sub CommandButton3_Click()
'Запускается программа Sub командной кнопкой 3
Dim a As Single
Dim c As Single
Dim x As Single
Dim y As Single
' Задание типов переменных a, c, x, y, где все переменные дробные (вещественные) числа
x = Val(TextBox1.Text)
' Ввод значений x через текстовое поле 1
ListBox3.Clear
c = 5: Do Until c > 5.8
' Открытие цикла по переменной c
a = 2: Do Until a > 3
' Открытие цикла по переменной a
y = (c ^ 2 + (5.2 * Sin(x))) / (Sqr(3.8 * x + (Abs(a) * c)))
' Расчет значений функции y
ListBox3.AddItem "y=" + CStr(y)
' Вывод значений функции y
a = a + 0.5: Loop
' Закрытие цикла по переменной a
c = c + 0.2: Loop
' Закрытие цикла по переменной c
End Sub
' Конец программы Sub

5. Тестирование и отладка программы.
Для этого нужно нажать кнопку Run. Если в программе есть ошибки, то откроется исходный код, и курсор будет стоять в той строке, где она допущена (выделяется желтым цветом). Если ошибок нет, то на форме исчезнут точки.

6. Компилирование и трансляция – перевод программы с VBA на язык машинных кодов.

7. Ввод исходных данных и получение результатов.

8. Вычисление примера на калькуляторе, сравнение результатов на калькуляторе с полученными значениями, поиск возможных ошибок.

Задания