Dim s, nv, np, nm

Порядок выполнения

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 7

End If

End If

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

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

LblResult.Caption = Str(y)

6. Проверьте работу программы

7. Измените программный код, заменив использование условного оператора на оператор множественного выбора (самостоятельно).

8. Результат показать преподавателю.

Тема: Выбор в программе

Цель: Закрепить навыки использования оператора множественного выбора

1. Установите на форме следующие объекты и измените им свойства:

Объект	Свойство	Значение
Командная кнопка	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.

2. Приведите свою форму в соответствие с образцом

3. В разделе общих объявлений объявите переменные

4. В окне кода процедуры обработки события Load для объекта Form набрать

LstM.AddItem "мг"

LstM.AddItem "г"

LstM.AddItem "кг"

LstV.AddItem "куб.мм"

LstV.AddItem "куб.см"

LstV.AddItem "куб.дм"

LstP.AddItem "мг на куб.мм"

LstP.AddItem "г на куб. см"

LstP.AddItem "кг на куб.дм"

5. В окне кода процедуры обработки события Click для объекта LstM набрать

nm = LstM.ListIndex

LblM.Caption = LstM.List(nm)

6. Самостоятельно набрать программный код для объектов LstV, LstP

7.

В окне кода процедуры обработки события Click набрать

для OptM s = 1 для OptV s = 2 для OptP s = 3

8. В окне кода процедуры обработки события 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

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