Лабораторно-практическая работа № 7
Тема: Выбор в программе
Цель: Закрепить навыки использования оператора множественного выбора
Порядок выполнения
Установите на форме следующие объекты и измените им свойства:
-
Объект
Свойство
Значение
Командная кнопка
Name
CmdResult
Caption
Решение задачи
Рамка
Caption
Отметьте искомую величину
Изображение
Picture
\Clipart\Scales
Переключатели
Name
OptM
Caption
Масса
Name
OptV
Caption
Объем
Name
OptP
Caption
Плотность
Метки
Name
LblZm
Caption
(отсутствует)
Name
LblZv
Caption
(отсутствует)
Name
LblZp
Caption
(отсутствует)
Текстовые окна
Name
TxtZm
Text
(отсутствует)
Name
TxtZv
Text
(отсутствует)
Name
TxtZp
Text
(отсутствует)
Списки
Name
LstM
Name
LstV
Name
LstP
Остальные объекты – метки, для которых измените свойство Caption.
Приведите свою форму в соответствие с образцом
В разделе общих объявлений объявите переменные
Dim s, nv, np, nm
В окне кода процедуры обработки события Loadдля объектаFormнабрать
LstM.AddItem "мг"
LstM.AddItem "г"
LstM.AddItem "кг"
LstV.AddItem "куб.мм"
LstV.AddItem "куб.см"
LstV.AddItem "куб.дм"
LstP.AddItem "мг на куб.мм"
LstP.AddItem "г на куб. см"
LstP.AddItem "кг на куб.дм"
В окне кода процедуры обработки события Clickдля объектаLstMнабрать
nm = LstM.ListIndex
LblM.Caption = LstM.List(nm)
Самостоятельно набрать программный код для объектов LstV , LstP
В
окне кода процедуры обработки событияClickнабрать
для OptM s = 1 для OptV s = 2 для OptP s = 3
В окне кода процедуры обработки события Clickдля объектаCmdResultнабрать
v = Val(TxtZv.Text) : p = Val(TxtZp.Text): m = Val(TxtZm.Text)
'переведем массу в кг
If nm = 0 Then m = m / 1000000 : If nm = 1 Then m = m / 1000
'переведем объем в куб дм
If nv = 0 Then v = v / 1000000 : If nv = 1 Then v = v / 1000
Select Case s
Case 1 'определяем массу
m = p * v
Select Case nm
Case 0 'мг
m = m * 1000000
Case 1 'г
m = m * 1000
End Select
TxtZm.Text = m
Case 2 'определяем объем
v = m / p
Select Case nv
Case 0 'куб мм
v = v * 1000000
Case 1 'куб см
v = v * 1000
End Select
TxtZv.Text = v
Case 3 'определяем плотность
p = m / v
TxtZp.Text = p
End Select
Проверьте работу программы