Ход работы. 1. Создайте папку Лабораторная_работа_№13, а в ней папку 13.1

1. Создайте папку Лабораторная_работа_№13, а в ней папку 13.1.

2. Запустите программу Microsoft Visual Basic 6.0.

3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».

4. Расположите на форме 4 компонента Option Button, 4 компонента CheckBox, 2 кнопки («Начать» и «Инструкция»), 1 компонент TextBox для задания вопросов и Label для вывода результата. Примерный вид формы – на Рис.13.2, свойства компонентов – в Таблице 13.1.

Таблица 13.1 – Свойства компонентов приложения «Тест»

Компонент	Свойство	Значение
Form1	Caption	Тестирование
Name	frmТест
Color, Font, Width, Height	По своему усмотрению
MinButton, MaxButton, ControlBox	False
Label1	Caption
Font	По своему усмотрению
BorderStyle	1 – Fixed Single
BackColor	0 - Transparent
Appearance	1 – 3D
Alignment	2 - Center
Option1..Option4	Caption
Check1..Check4	Caption
Text1	Text
Multiline	True
Font	По своему усмотрению
У всех расположенных компонентов (Label, Option, Check, Text) свойство Visible = false
Command1	Caption	Начать тестирование
Command2	Caption	Инструкция

5. Опишите в разделе General две переменных целочисленного типа: переменную Number типа Integer для перехода к следующему вопросу, и переменную X типа Byte для подсчета правильных ответов:

Dim Number As Integer

Dim X As Byte

6. Напишите процедуру обработки щелчка мышью по кнопке «Начать» и разберитесь в программном коде (каким образом осуществляется проверка правильности ответа):

Private Sub Command1_Click()

Label1.Visible = False

Number = Number + 1

Select Case Number

Case 1

Text1.Visible = True

Option1.Visible = True

Option2.Visible = True

Option3.Visible = True

Option4.Visible = True

Text1.Text = "Как звали Пушкина?"

Option1.Caption = "Александр Сергеевич"

Option2.Caption = "Николай Васильевич"

Option3.Caption = "Михаил Юрьевич"

Option4.Caption = "Владимир Владимирович"

Command2.Visible = False

Command1.Caption = "ДАЛЕЕ"

Case 2

If Option1.Value = True Then X = X + 1

Option1.Value = False

Option2.Value = False

Option3.Value = False

Option4.Value = False

Option1.Visible = False

Option2.Visible = False

Option3.Visible = False

Option4.Visible = False

Check1.Visible = True

Check2.Visible = True

Check3.Visible = True

Check4.Visible = True

Text1.Text = "Какие произведения написал Пушкин А.С.?"

Check1.Caption = "Буря"

Check2.Caption = "Евгений Онегин"

Check3.Caption = "Обломов"

Check4.Caption = "Ромео и Джульетта"

Case 3

If ((Check1.Value = 1) And (Check2.Value = 1)) Then X = X + 1

Check1.Value = False

Check2.Value = False

Check3.Value = False

Check4.Value = False

Option1.Visible = True

Option2.Visible = True

Option3.Visible = True

Option4.Visible = True

Check1.Visible = False

Check2.Visible = False

Check3.Visible = False

Check4.Visible = False

Text1.Text = "Кто написал стихотворение 'Белая береза'?"

Option1.Caption = "Владимир Маяковский"

Option2.Caption = "Сергей Есенин"

Option3.Caption = "Агния Барто"

Option4.Caption = "Игорь Северянинов"

Case 4

If Option2.Value = True Then X = X + 1

Option1.Value = False

Option2.Value = False

Option3.Value = False

Option4.Value = False

Text1.Text = "Как звали лже-царя, про которого написал поэму Пушкин?"

Option1.Caption = "Владимир Мономах"

Option2.Caption = "Иван IV"

Option3.Caption = "Борис Годунов"

Option4.Caption = "Василий III"

Case 5

If Option3.Value = True Then X = X + 1

Option1.Value = False

Option2.Value = False

Option3.Value = False

Option4.Value = False

Text1.Text = "Кто из нижеперечисленных не является писателем или поэтом?"

Option1.Caption = "Лермонтов"

Option2.Caption = "Тютчев"

Option3.Caption = "Фет"

Option4.Caption = "Айвазовский"

Command1.Caption = "ПРОВЕРИТЬ"

Case 6

If Option4.Value = True Then X = X + 1

Option1.Value = False

Option2.Value = False

Option3.Value = False

Option4.Value = False

Text1.Visible = False

Option1.Visible = False

Option2.Visible = False

Option3.Visible = False

Option4.Visible = False

Label1.Visible = True

Select Case X

Case 0

Label1.Caption = "Вы не ответили верно ни на один вопрос. Ваша оценка - 2 (неудовлетворительно). Вам нужно выучить тему и пересдать тест."

Case 1

Label1.Caption = "Вы ответили верно на " + Str(X) + " вопрос. Ваша оценка - 2 (неудовлетворительно). Вам нужно выучить тему и пересдать тест."

Case 2

Label1.Caption = "Вы ответили верно на " + Str(X) + " вопроса. Ваша оценка - 2 (неудовлетворительно). Вам нужно выучить тему и пересдать тест."

Case 3

Label1.Caption = "Вы ответили верно на " + Str(X) + " вопроса. Ваша оценка - 3 (удовлетворительно). Вам нужно лучше готовиться."

Case 4

Label1.Caption = "Вы ответили верно на " + Str(X) + " вопроса. Ваша оценка - 4 (хорошо). Молодец, но можно было и лучше."

Case 5

Label1.Caption = "Вы ответили верно на " + Str(X) + " вопросов. Ваша оценка - 5 (отлично). МОЛОДЕЦ!!! Просто М-О-Л-О-Д-Е-Ц!!!."

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