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


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 4. Как сделать так, чтобы вас уважали и ценили? Как сделать лучше себе и другим людям Как сделать свидание интересным?


Категории:

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






End Sub. УЭ №8 Алгоритмические струтуры - «Ветвление и Выбор»

⇐ ПредыдущаяСтр 2 из 4Следующая ⇒




 

УЭ №8 Алгоритмические струтуры - «Ветвление и Выбор».

Задачи УЭ №8. Научится применять и использовать команды «ветвления» и «выбор».

Что делать. Создать проект «Тест».

Как делать.

1.Открыть Vb. Создать новый проект. Активизировать форму Form1 щелчком мыши. В окне Свойств объекта установить для свойства Caption значение Тест

2. Разместите на форме управляющий элемент Label1, Label2, Label4 Label3, Label5 (как показано на рисунке)

3. Свойствам Caption дать значения: 1- Сообщение о верности ответа; 2-Количество ошибок; 3-пусто; 4-пусто; для Label5 свойству Captionдать значение «Оценка». Свойствам Alignment – 2-Center, AutoSize-True: Appearance – 1-3D – для всех управляющих элементов Label 4. Разместим на форме кнопку Command1. В окне Свойств объекта установить для свойства Caption – значение Старт, а свойству-Font –дать значение Начертание – жирный; размер – 24. 5.Для кнопки Command1- Датасоздать событийную процедуру:  

Dim Otvet As String, N As Byte

Private Sub Command1_Click()

N = 0

Otvet = InputBox("Чему равен 1байт?", " Первый вопрос")

If Otvet = "8бит" Then

Label1.Caption = "Правильно!"

Else

Label1.Caption = "Неправильно!": N = N + 1

End If

Otvet = InputBox("Чему равен 1Кбайт?", " Второй вопрос")

If Otvet = "1024байт" Then

Label1.Caption = "Правильно!"

Else

Label1.Caption = "Неправильно!": N = N + 1

End If

Otvet = InputBox("Чему равен 1Мбайт?", " Третий вопрос")

If Otvet = "1024Кбайт" Then

Label1.Caption = "Правильно!"

Else

Label1.Caption = "Неправильно!": N = N + 1

End If

Otvet = InputBox("Чему равен 1Гбайт?", " Четвертый")

If Otvet = "1024Мбайт" Then

Label1.Caption = "Правильно!"

Else

Label1.Caption = "Неправильно!": N = N + 1

End If

Otvet = InputBox("Чему равен 1Тбайт?", " Пятый вопрос")

If Otvet = "1024Гбайт" Then

Label1.Caption = "Правильно!"

Else

Label1.Caption = "Неправильно!": N = N + 1

End If

Label2.Caption = N

⇐ Предыдущая1234Следующая ⇒

Date: 2015-09-02; view: 319; Нарушение авторских прав; Помощь в написании работы --> СЮДА...


mydocx.ru - 2015-2024 year. (0.006 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию