Лабораторно-практическая работа № 5
Тема: Выбор в программе
Цель: Получить навыки использования оператора множественного выбора
Порядок выполнения
Установите на форме следующие объекты и измените им свойства:
-
Объект
Свойство
Значение
Командная кнопка
Name
CmdResult
Caption
Определить
Рамки
Caption
Сколько Вам лет
Caption
Чем следует заниматься
Метки
Name
LblLet
Caption
(отсутствует)
Name
LblInfo
Caption
(отсутствует)
Текстовое окно
Name
TxtLet
Приведите свою форму в соответствие с образцом
В окне кода процедуры обработки события 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
Проверьте работу программы.
Добавьте на форму текстовое окно (для ввода номера месяца рождения) и метку(для вывода времени года). Добавьте в программу CmdResult_Click код для определения времени года по номеру месяца рождения.
Результат показать преподавателю.
Лабораторно-практическая работа № 6
Тема: Выбор в программе
Цель: Закрепить навыки использования условного оператора и оператора множественного выбора
Порядок выполнения
Установите на форме следующие объекты и измените им свойства:
-
Объект
Свойство
Значение
Командная кнопка
Name
CmdEdit
Caption
Преобразовать
Переключатели
Name
OptMSek1
Caption
м/сек
Name
OptKmSek1
Caption
км/сек
Name
OptKmUr1
Caption
км/час
Name
OptMSek2
Caption
м/сек
Name
OptKmSek2
Caption
км/сек
Name
OptKmUr2
Caption
км/час
Текстовое окно
Name
TxtDano
Метка
Name
LblResult
Приведите свою форму в соответствие с образцом
В разделе общих объявлений объявите переменные S1, S2
В окне кода процедуры обработки события Click набрать
для optMSek1: S1=1
для optKmSek1: S1=2
для optKmUr1: S1=3
для optMSek2: S2=1
для optKmSek2: S2=2
для optKmUr2: S2=3
В окне кода процедуры обработки события Click для cmdEdit набрать:
x = Val(TxtDano.Text)
If S1 = 1 Then
If S2 = 1 Then y = x
If S2 = 2 Then y = x / 1000
If S2 = 3 Then y = x * 3.6
End If
If S1 = 2 Then
If S2 = 1 Then y = x * 1000
If S2 = 2 Then y = x
If S2 = 3 Then y = x * 3600
End If
If S1 = 3 Then
If S2 = 1 Then y = x / 3.6
If S2 = 2 Then y = x / 3600
If S2 = 3 Then y = x
End If
LblResult.Caption = Str(y)
Проверьте работу программы
Измените программный код, заменив использование условного оператора на оператор множественного выбора (самостоятельно).
Результат показать преподавателю.