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

     1. Запустите систему программирования Visual Basic или создайте новый проект, если Visual Basic уже запущен.

     2. Создайте форму и разместите на ней элементы управления по предложенному ниже образцу, используя соответствующие кнопки панели элементов:

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

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

     4. Для каждой кнопки введите соответствующий программный код.

Цикл 1 – с использованием оператора цикла For…Next и оператора ветвления If…Then…Else  (кнопка 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 = 2 To 5
' Открытие цикла по переменной a
For b = 1 To 3 Step 0.5
' Открытие цикла по переменной b
If b > 2 Then
y = 2 * a ^ 2 - Sqr(b)
' Проверка значения b > 2 и вычисление y по ответу да
Else
y = a + b
' Проверка значения b > 2 и вычисление y по ответу нет
End If
ListBox1.AddItem "y=" + CStr(y)
' Вывод значений функции y
Next b
' Закрытие цикла по переменной b
Next a
' Закрытие цикла по переменной a
End Sub
'Конец программы Sub

Цикл 2 – с использованием оператора цикла Do…Loop с ключевым словом While и оператора ветвления If…Then (кнопка 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 = 2: Do While a <= 5
' Открытие цикла по переменной a
b = 1: Do While b <= 3
' Открытие цикла по переменной b
If b > 2 Then y = 2 * a ^ 2 - Sqr(b)
' Проверка значения b > 2 и вычисление y по ответу да
If b <= 2 Then y = a + b
' Проверка значения b <= 2 и вычисление 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 и оператора ветвления Select Case (кнопка 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 = 2: Do Until a > 5
' Открытие цикла по переменной a
b = 1: Do Until b > 3
' Открытие цикла по переменной b
Select Case b
Case Is <= 2
y = a + b
' Проверка значения b <= 2 и вычисление y по ответу нет
Case Is > 2
y = 2 * a ^ 2 - Sqr(b)
' Проверка значения b <= 2 и вычисление y по ответу да
End Select
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»).

Практика