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

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

End If

End Select

Case Else

Case 2, 3, 4

Case 1

Select Case k

Else

Dim info As String

Dim n, k As Integer

n = Val(TxtLet.Text)

'определим текстовую запись возраста

If n >= 10 And n <= 20 Then

info = "лет"

k = n Mod 10

info = "год"

info = "года"

info = "лет"

LblLet.Caption = info

12. (для ввода номера месяца рождения) и метку(для вывода времени года). Добавьте в программу CmdResult_Click код для определения времени года по номеру месяца рождения.

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

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

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

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

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

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

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

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

для optMSek1: S1=1

для optKmSek1: S1=2

для optKmUr1: S1=3

для optMSek2: S2=1

для optKmSek2: S2=2

для optKmUr2: S2=3

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

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