Лабораторная работа № 2

Программирование циклических вычислительных процессов (ЦВП) на VBA

     Циклическим называется процесс, в котором действия выполняются многократно при изменяющихся исходных значениях аргумента.

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

     1. Создайте новый проект командой меню «Файл» - «Новый проект» (или «File» - «New Project»).
     2. Создайте форму и разместите на ней элементы управления по предложенному ниже образцу, используя соответствующие кнопки панели элементов:

Рисунок 4 – Внешний вид формы с объектами

     3. Присвойте элементам управления на форме значения свойств в соответствии с приведенной ниже таблицей.

Таблица 3 – Индивидуальные свойства элементов формы

Элемент
Свойства
Значения
Комментарии
UserForm1

BackColor

Caption

На Ваше усмотрение

Работа с циклами

Цвет формы

Заголовок формы
CommandButton1

Caption

Цикл 1

Название
CommandButton2

Caption

Цикл 2

Название

CommandButton3

Caption

Цикл 3

Название

ListBox1

ListBox2

ListBox3

TextAlign

BackColor

ForeColor

Font

2-fm TextAlign

Белый

Черный

На Ваше усмотрение

Выравнивание текста

Цвет фона

Цвет шрифта

Формат шрифта

Label1

TextAlign

BackColor

ForeColor

Font

Caption

2-fm TextAlign

На Ваше усмотрение

На Ваше усмотрение

На Ваше усмотрение

Вывод значения y

Выравнивание текста

Цвет фона

Цвет шрифта

Формат шрифта

Название

     4. Для каждой кнопки введите соответствующий программный код:
Цикл 1 – с использованием оператора цикла For…Next  (кнопка CommandButton1, список ListBox1).

Private Sub CommandButton1_Click()
'Запускается программа Sub командной кнопкой 1
Dim a As Integer
Dim b As Single
Dim y As Single
' Задание типов переменных a, b, y, где a - целое число, b, y - дробные (вещественные) числа
For a = 1 To 5
' Открытие цикла по переменной a
For b = 2 To 3.5 Step 0.5
' Открытие цикла по переменной b
y = a ^ 2 - b
' Расчет значений функции y
ListBox1.AddItem "y=" + CStr(y)
' Вывод значений функции y
Next b
' Закрытие цикла по переменной b
Next a
' Закрытие цикла по переменной a
End Sub
'Конец программы Sub

Цикл 2 – с использованием оператора цикла Do…Loop с ключевым словом While (кнопка CommandButton2, список ListBox2).

Private Sub CommandButton2_Click()
'Запускается программа Sub командной кнопкой 2
Dim a As Integer
Dim b As Single
Dim y As Single
' Задание типов переменных a, b, y, где a - целое число, b, y - дробные (вещественные) числа
a = 1: Do While a <= 5
' Открытие цикла по переменной a
b = 2: Do While b <= 3.5
' Открытие цикла по переменной b
y = a ^ 2 - b
' Расчет значений функции y
ListBox2.AddItem "y=" + CStr(y)
' Вывод значений функции y
b = b + 0.5: Loop
' Закрытие цикла по переменной b
a = a + 1: Loop
' Закрытие цикла по переменной a
End Sub
'Конец программы Sub

Цикл  3 – с использованием  оператора цикла Do…Loop с ключевым словом Until (кнопка CommandButton3, список ListBox3).

Private Sub CommandButton3_Click()
'Запускается программа Sub командной кнопкой 3
Dim a As Integer
Dim b As Single
Dim y As Single
' Задание типов переменных a, b, y, где a - целое число, b, y - дробные (вещественные) числа
a = 1: Do Until a > 5
' Открытие цикла по переменной a
b = 2: Do Until b > 3.5
' Открытие цикла по переменной b
y = a ^ 2 - b
' Расчет значений функции y
ListBox3.AddItem "y=" + CStr(y)
' Вывод значений функции y
b = b + 0.5: Loop
' Закрытие цикла по переменной b
a = a + 1: Loop
' Закрытие цикла по переменной a
End Sub
'Конец программы Sub

     5. Сохраните созданный проект командой меню «Файл» – «Сохранить проект»  (или «File» – «Save Project»).

     6. Запустите программу на выполнение командой меню «Пуск» – «Старт» (или «Run» – «Start»).

     7. Проверьте правильность работы программы – при нажатии на каждую из кнопок в соответствующих списках должны появляться одинаковые наборы ответов.

     8. Завершите работу запущенной программы командой меню «Пуск» – «Конец» (или «Run» – «End»).