Ход работы. 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 – Свойства компонентов приложения «Тест»

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

DimNumberAs Integer

DimXAs Byte

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

Private Sub Command1_Click()

Label1.Visible = False

Number = Number + 1

Select Case Number

Case1

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

IfOption2.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 (отлично). МОЛОДЕЦ!!! Просто М-О-Л-О-Д-Е-Ц!!!."