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

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

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

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

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

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

Рисунок 4 - Внешний вид формы «Функция y» с объектами

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

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

Цикл 1

Private Sub CommandButton1_Click()
'Запускается программа Sub командной кнопкой 1
Dim a As Single
Dim b As Single
Dim c As Single
Dim x As Integer
Dim y As Single
' Задание типов переменных a, b, c, x, y, где a, b, c, y - дробные (вещественные) числа, x - целое число
x = Val(TextBox1.Text)
' Ввод x через текстовое поле 1
ListBox1.Clear
For a = 2 To 5 Step 0.5
' Открытие цикла по переменной a
For b = 2 To 2.8 Step 0.2
' Открытие цикла по переменной b
For c = 1 To 12 Step 3.5
' Открытие цикла по переменной c
If x < 2 Then
y = 3 * a + (7 * Sqr(b + c)) + (x * c)
' Проверка значения x < 2 и вычисление y по ответу да
Else
If x > 5 Then
y = Sqr((2 * a) + (b * x)) + (2 * c)
' Проверка значения x > 5 и вычисление y по ответу да
Else
y = 2 * a * b + (x * Sqr(c))
' Проверка значения x > 5 и вычисление y по ответу нет
End If
End If
ListBox1.AddItem "y=" + CStr(y)
' Вывод значений функции y
Next c
' Закрытие цикла по переменной c
Next b
' Закрытие цикла по переменной b
Next a
' Закрытие цикла по переменной a
End Sub
'Конец программы Sub

Private Sub CommandButton2_Click()
'Запускается программа Sub командной кнопкой 2
Dim a As Single
Dim b As Single
Dim c As Single
Dim x As Integer
Dim y As Single
' Задание типов переменных a, b, c, x, y, где a, b, c, y - дробные (вещественные) числа, x - целое число
x = Val(TextBox1.Text)
' Ввод x через текстовое поле 1
ListBox2.Clear
a = 2: Do While a <= 5
' Открытие цикла по переменной a
b = 2: Do While b <= 2.8
' Открытие цикла по переменной b
c = 1: Do While c <= 12
' Открытие цикла по переменной c
If x < 2 Then y = 3 * a + (7 * Sqr(b + c)) + (x * c)
' Проверка значения x < 2 и вычисление y по ответу да
If x >= 2 And x <= 5 Then y = 2 * a * b + (x * Sqr(c))
' Проверка значения x >= 2 и x <= 5 и вычисление y по ответу да
If x > 5 Then y = Sqr(2 * a + (b * x)) + (2 * c)
' Проверка значения x > 5 и вычисление y по ответу да
ListBox2.AddItem "y=" + CStr(y)
' Вывод значений функции y
c = c + 3.5: Loop
' Закрытие цикла по переменной c
b = b + 0.2: Loop
' Закрытие цикла по переменной b
a = a + 0.5: Loop
' Закрытие цикла по переменной a
End Sub
'Конец программы Sub

Private Sub CommandButton3_Click()
'Запускается программа Sub командной кнопкой 3
Dim a As Single
Dim b As Single
Dim c As Single
Dim x As Integer
Dim y As Single
' Задание типов переменных a, b, c, x, y, где a, b, c, y - дробные (вещественные) числа, x - целое число
x = Val(TextBox1.Text)
' Ввод x через текстовое поле 1
ListBox3.Clear
a = 2: Do Until a > 5
' Открытие цикла по переменной a
b = 2: Do Until b > 2.8
' Открытие цикла по переменной b
c = 1: Do Until c > 12
' Открытие цикла по переменной c
Select Case x
Case Is< 2
y = 3 * a + (7 * Sqr(b + c)) + (x * c)
' Проверка значения x < 2 и вычисление y по ответу да
Case 2 To 5
y = 2 * a * b + (x * Sqr(c))
' Проверка значения x >= 2 и x <= 5 и вычисление y по ответу да
Case Is > 5
y = Sqr(2 * a + (b * x)) + (2 * c)
' Проверка значения x > 5 и вычисление y по ответу да
End Select
ListBox3.AddItem "y=" + CStr(y)
' Вывод значений функции y
c = c + 3.5: Loop
' Закрытие цикла по переменной c
b = b + 0.2: Loop
' Закрытие цикла по переменной b
a = a + 0.5: Loop
' Закрытие цикла по переменной a
End Sub
'Конец программы Sub

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

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

Задания