Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 5
|
|
Тема: Выбор в программе
Цель: Получить навыки использования оператора множественного выбора
Порядок выполнения
9. Установите на форме следующие объекты и измените им свойства:
| Объект | Свойство | Значение |
| Командная кнопка | Name | CmdResult |
| Caption | Определить | |
| Рамки | Caption | Сколько Вам лет |
| Caption | Чем следует заниматься | |
| Метки | Name | LblLet |
| Caption | (отсутствует) | |
| Name | LblInfo | |
| Caption | (отсутствует) | |
| Текстовое окно | Name | TxtLet |
10. Приведите свою форму в соответствие с образцом
 |
11. В окне кода процедуры обработки события Click для cmdResult набрать
Dim n, k As Integer
Dim info As String
n = Val(TxtLet.Text)
'определим текстовую запись возраста
If n > = 10 And n < = 20 Then
info = " лет"
Else
k = n Mod 10
Select Case k
Case 1
info = " год"
Case 2, 3, 4
info = " года"
Case Else
info = " лет"
End Select
End If
LblLet.Caption = info
'определим род деятельности
Select Case n
Case Is < 7
info = " детский сад"
Case 7 To 16
info = " учеба в школе"
Case 17 To 21
info = " учеба в ВУЗе"
Case 22 To 55
info = " трудовая деятельность"
Case Else
info = " заслуженный отдых - пенсия"
End Select
LblInfo.Caption = info
12. Проверьте работу программы.
13. Добавьте на форму текстовое окно (для ввода номера месяца рождения) и метку(для вывода времени года). Добавьте в программу CmdResult_Click код для определения времени года по номеру месяца рождения.
14. Результат показать преподавателю.