Порядок выполнения. Dim k As Integer , otv As Integer

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

End If

Exit Sub

End If

Exit Sub

End If

Exit Sub

Randomize Timer

Dim k As Integer, otv As Integer

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

otv = Int(Rnd * 100 + 1) 'число загадано

k = 0 ' количество попыток

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

x = Val(TxtOtvet.Text)

k = k + 1

If x = otv Then

MsgBox "количество попыток " + Str(k),, "УГАДАНО"

LblMalo.Caption = "0"

LblMnogo.Caption = "100"

MsgBox "загадано новое число",, ""

k = 0

otv = Int(Rnd * 100 + 1)

If x > otv Then

If x < Val(LblMnogo.Caption) Then LblMnogo.Caption = x

MsgBox "Много",, ""

If x < otv Then

If x > Val(LblMalo.Caption) Then LblMalo.Caption = x

MsgBox "Мало"

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

7. Измените программу для того, чтобы:

- после каждого вывода сообщения «Много», «Мало» или «Угадано» содержимое текстового окна удалялось;

- после отгадывания числа выводилось

сообщение «Отлично», если количество попыток меньше 4,

сообщение «Хорошо», если количество попыток от 4 до 7,

сообщение «Слабо!», если количество попыток больше 7.

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

Тема: Условный оператор

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

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

Объект	Свойство	Значение
Командная кнопка	Name	Command1
Caption	Переключи
Изображения	Name	ImgAvto
Picture	\Icons\Traffic\Trffc6
Name	ImgDog
Picture	\Icons\Arrows\Point08
Name	ImgR
Picture	\Icons\Traffic\Trffc10c
Name	ImgG
Picture	\Icons\Traffic\Trffc10a
Name	ImgY1
Picture	\Icons\Traffic\Trffc10b
Name	ImgY2
Picture	\Icons\Traffic\Trffc10b
Таймеры	Name	Timer1
Name	Timer2

2. Выделите все изображения светофора (при нажатой клавише Shift) и установите следующие значения для свойств:

- Stretch True

- Left 1000

- Top 200

- Height 1000

-

Width 1000

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

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

If ImgG.Visible = True Then

'выключи зеленый включи желтый

ImgG.Visible = False

ImgY1.Visible = True

Timer1.Interval = 0

Timer2.Interval = 0

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