Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






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






 

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

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

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

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

 

Объект Свойство Значение
Рамки Caption Ваше число
  Caption Диапазон чисел
Текстовое окно Name TxtOtvet
Метки Name LblMalo
Caption  
Name LblMnogo
Caption  
Name Label1
Caption Мало
Name Label2
  Caption Много
Командная кнопка Name CmdProverka
Caption Проверить

 

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. Результат показать преподавателю.

 







© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.