Пример реализации программы

Первый вариант (с использованием конструкции 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 — произвольное число, определенное в программе.