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

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

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

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

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

2.

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

Dim k As Integer, otv As Integer

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

Randomize Timer

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)

Exit Sub

End If

If x > otv Then

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

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

Exit Sub

End If

If x < otv Then

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

MsgBox " Мало"

Exit Sub

End If

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

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

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

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

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

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

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

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