Первый вариант (с использованием конструкции If)
Private Sub Command1_Click()
Dim x As Double ' входные данные
Dim y As Double ' результат
Const R = 2
x = CDbl(Text1.Text)
If x < – R Then
y = x + R
ElseIf x > R Then
y = 1
Else
y = – Sqr(R ^ 2 – x ^ 2)
End If
Label1.Caption = CStr(y)
End Sub
Второй вариант (с использованием конструкции Select Case)
Private Sub Command1_Click()
Dim x As Double ' входные данные
Dim y As Double 'результат
Const R = 2
x = CDbl(Text1.Text)
Select Case x
Case Is < – R
y = x + R
Case – R To R
y = – Sqr(R ^ 2 – x ^ 2)
Case Is > R
y = 1
End Select
Label1.Caption = CStr(y)
End Sub
Контрольные вопросы
1. Оператор условия If и его разновидности (If … End If, If … Else … End If, If … ElseIf … Else … End If).
2. Оператор множественного выбора Select Case.
3. Логический тип Boolean и операции над переменными этого типа.
4. Операции над величинами логического типа.
5. Операции отношений.
Лабораторная работа 3
ОПЕРАТОР ЦИКЛА С ПАРАМЕТРОМ
Цель работы: Изучить оператор цикла с параметром For.
Краткие теоретические сведения
Многократное выполнение одного или нескольких операторов программы обеспечивается использованием циклов.
Для реализации циклических процессов с заданным количеством повторений используется цикл с параметром. Цикл с параметром имеет следующий синтаксис:
For < счетчик> = < начальное значение > To < конечное значение > [ Step < шаг >]
< Операторы >
Next [ счетчик ]
Графический способ изображения цикла с параметром приведен на рис. 4.
Рис. 4. Изображение цикла с параметром на схеме алгоритма
Порядок работы цикла For:
1) Переменной счетчик присваивается начальное значение (НЗ).
2) Проверяется условие: счетчик 
конечного значения (КЗ) (при положительном значении шага) или счетчик 
конечного значения (при отрицательном значении шага). Если результат проверки условия истина, то выполняется тело цикла. В противном случае происходит передача управления на первый оператор, стоящий после цикла (т. е. выход из цикла).
3) После выполнения тела цикла переменная < счетчик > изменяется на величину шага (если величина шага не указана, то по умолчанию счетчик увеличивается на 1).
4) Переход к пункту 2
Для вывода на форму используют оператор Print.
Оператор Print x, y выведет на форму значения переменных x и y, а оператор Print “Сумма=”, S — выведет на форму Сумма=, а затем значение, хранящееся в переменной S.
Задание 1. С использованием оператора цикла For вычислить значения выражений, заданных ниже. x — произвольное число, определенное в программе.
1. 
2. 
3. 
4. 
5. 
6. 
7. 
8. 
9. 
10. 
11. 
12. 
13. 
14. 
15. 
16. 
17. 
18. 
19. 
20. 
21. 
22. 
23. 
24. 
25. 
Задание 2. Для функции, определенной графически, в соответствии с заданием лабораторной работы 2:
