Ход работы. Последовательность _Операторов_(N-1)

Постановка задачи

Практическая часть

End Select

Последовательность _Операторов_(N-1)

Case Значение_(N-1)

Последовательность_Операторов_2

Case Значение_2

Последовательность_Операторов_1

Case Значение_1

Select Case Выражение

Теоретическая часть

С использованием оператора Case

ЛАБОРАТОРНАЯ РАБОТА №7. Программирование ветвлений

Вопросы для контроля

1. Перечислите варианты структуры условного алгоритма If…Then…Else. В каких случаях они применяются?

2. Какие логические связки можно применить для объединения двух и более условий?

3. Какого типа должно быть выражениями между ключевыми словами If и Then?

Цель работы: рассмотреть структуру оператора выбора Case; научиться применять оператор Case в создаваемых приложениях

Оператор выбора Select Case применяется, когда одна величина участвует в нескольких сравнениях и определяет, какая последовательность операторов будет выполняться. Алгоритм такого множественного сравнения можно запрограммировать и с использованием оператора If…Then, но применение структуры Select Case эффективнее.

Синтаксис оператора Select Case приведен ниже:

…

[Case Else

Последовательность _Операторов_N]

Здесь Select Case, Case, Case Else, End Select – ключевые слова Visual Basic;

Выражение – арифметическое или символьное выражение;

Последовательность_операторов_1 – выполняется при совпадении Значения_1 и значения Выражения и т.д.

Часть оператора Case Else заключена в скобки, т.к. является необязательной, т.е. может отсутствовать.

Оператор Case Select обязательно должен заканчиваться оператором End Select

Задание 1. Программа определения дня недели.

Составить программу, определяющую название дня недели по его номеру, введенному пользователем.

1. Создайте папку Лабораторная_работа_№7, а в ней папку – 7.1.

2. Запустите программу Microsoft Visual Basic 6.0.

3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».

4. Разместите на форме 2 компонента CommandButton, 3 компонента Label, 1 компонент TextBox.

5. Установите свойства компонентов в соответствии с Таблицей 7.1. Примерный внешний вид приложения приведен на Рис.7.1

Таблица 7.1 – Значения свойств компонентов приложения «День недели»

Компонент	Свойство	Значение
Form1	Caption	День недели
Name	frmДень
MinButton, MaxButton	False
Command1	Caption	Определить день недели
Name	cmdDen
Label1	Caption	Введите номер дня недели (от 1 до 7):
Label2	Caption	Это день недели -
Label3	Caption
Command2	Caption	Очистить
Name	cmdO4istka
TextBox1	Text
Для всех компонентов свойство Font и Color – по своему усмотрению У компонентов CommandButton свойство Style = 1 Graphical

6. Откройте окно программного кода (View - Code).

7. В верхних строках программного кода опишите переменные входных и выходных данных:

Dim x As Byte

8. Щелкните два раза по кнопке «Определить день недели» и напишите обработчик события Click (необходимые комментарии приведены после апострофов):

Private Sub CmdDen_Click()

x = Val(Text1.Text) 'получение числа X из поля Text1

Select Case x

Дата добавления: 2014-12-23