Задание 2. Конструкция Select Case

Создайте новый проект. Разместите на форме семь меток (Label 1 – 7), одно текстовое поле и управляющую кнопку Command1 (рис. 27).

Присвойте свойствам объектов значения, приведённые в таблице 6. Программный код должен реагировать на нажатие любой клавиши – событие KeyPress. Это событие выбирается из списка событий, который размещён в правой верхней части Редактора кода.

Таблица 6

Объекты	Свойства	Значения
Форма1	Caption	Дни недели
Label1 – Label7	Caption	Понедельник – Воскресенье
	Visible	False
Label8	Caption	Номер дня недели
Text1	Text	0
	MaxLength	1
Command1	Caption	Сброс

Рис. 27. Окно формы Дни недели.

При этом на экране должен появляться тот день недели, номер которого указан в текстовом окне.

Этот алгоритм рассмотрен во втором разделе (лабораторное занятие 2, задание 4).

Управляющая кнопка Сброс (Command1) используется для восстановления свойств меток (Label1 – 7). Эту операцию в дальнейшем будем называть инициализацией.

Создайте программный код приведённый ниже.

Option Explicit

' Общая процедура инициализации меток

Sub Сброс()

Label1.Visible = False

Label2.Visible = False

Label3.Visible = False

Label4.Visible = False

Label5.Visible = False

Label6.Visible = False

Label7.Visible = False

End Sub

' Вызов общей процедуры

Private Sub Command1_Click()

Сброс

End Sub

'Нажатие на клавишу

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim dn% 'Объявление переменной день недели

If Text1 <> "" Then 'Если информация введена, тогда

dn = CInt(Text1) 'она присваивается переменной dn,

Select Case dn 'которая используется для анализа

Case 1 'Понедельник

Label1.Visible = True

Case 2 'Вторник

Label2.Visible = True

Case 3 'Среда

Label3.Visible = True

Case 4 'Четверг

Label4.Visible = True

Case 5 'Пятница

Label5.Visible = True

Case 6 'Суббота

Label6.Visible = True

Case 7 'Воскресенье

Label7.Visible = True

End Select

End If

End Sub

Сохраните проект. Выполните компиляцию. Закройте Visual Basic. Проверьте работоспособность приложения.

Загрузите файл Проект1.vbp (VB Учебные \ Проекты \ 06 Дни недели).

Ознакомьтесь с программным кодом.

Определите, какие новые элементы управления использованы в этом проекте.

Закройте Visual Basic без сохранения проекта.