2. Приступаем к программированию

Программный модуль

Private Sub Command1_Click()

Select Case k

Case 1

If Check1 = 1 And Check2 = 0 And Check3 = 0 Then s = s + 1

Check1 = 0

Check2 = 0

Check3 = 0

Label1 = "Стихотворение А.Н.Майкова"

Text1 = "Пейзаж"

Text2 = "Тройка"

Text3 = "Свидание и разлука"

k = k + 1

Case 2

If Check1 = 1 And Check2 = 0 And Check3 = 0 Then s = s + 1

Check1 = 0

Check2 = 0

Check3 = 0

Label1 = "В каком году умер И.В.Гете"

Text1 = "1749"

Text2 = "1832"

Text3 = "1830"

k = k + 1

Case 3

If Check1 = 0 And Check2 = 1 And Check3 = 0 Then s = s + 1

Check1 = 0

Check2 = 0

Check3 = 0

Label1 = "В каком году И.В.Гете поехал в Ваймар"

Text1 = "1776"

Text2 = "1770"

Text3 = "1775"

k = k + 1

Case 4

If Check1 = 1 And Check2 = 0 And Check3 = 0 Then s = s + 1

Check1 = 0

Check2 = 0

Check3 = 0

Label1 = "Где родилась Н.Ф.Щербина"

Text1 = "под Таганрогом"

Text2 = "под Москвой"

Text3 = "под Петербургом"

k = k + 1

Case 5

If Check1 = 1 And Check2 = 0 And Check3 = 0 Then s = s + 1

Check1 = 0

Check2 = 0

Check3 = 0

Label1 = "В каком году появился первый поэтический сборник Н.Ф.Щербина"

Text1 = "1850"

Text2 = "1853"

Text3 = "1851"

k = k + 1

Case 6

If Check1 = 1 And Check2 = 0 And Check3 = 0 Then s = s + 1

Check1 = 0

Check2 = 0

Check3 = 0

Label1 = "Где похоронен С.Я.Надсон"

Text1 = "На Кавказе"

Text2 = "В Москве"

Text3 = "В Петербурге"

k = k + 1

Case 7

If Check1 = 0 And Check2 = 0 And Check3 = 1 Then s = s + 1

Check1 = 0

Check2 = 0

Check3 = 0

Label1 = "Стихотворение Н.С. Яковлева"

Text1 = "Моей матери"

Text2 = "Из песен любви"

Text3 = "Приветствие духа"

k = k + 1

Case 8

If Check1 = 0 And Check2 = 1 And Check3 = 0 Then s = s + 1

Check1 = 0

Check2 = 0

Check3 = 0

Label1 = "Я.П. Полонский был студентом......"

Text1 = "юридического факультета"

Text2 = "педагогического факультета"

Text3 = "медицинского факультета"

k = k + 1

Case 9

If Check1 = 1 And Check2 = 0 And Check3 = 0 Then s = s + 1

Check1 = 0

Check2 = 0

Check3 = 0

Label1 = "С какого года Н.А.Некрасов стал редактором журнала Отечественные записки"

Text1 = "1868"

Text2 = "1843"

Text3 = "1848"

k = k + 1

Case 10

If Check1 = 1 And Check2 = 0 And Check3 = 0 Then s = s + 1

Check1 = 0

Check2 = 0

Check3 = 0

Label1 = "Годы жизни Н.А.Некрасова"

Text1 = "1821-1878"

Text2 = "1788-1862"

Text3 = "1843-1848"

k = k + 1

Case 11

If Check1 = 1 And Check2 = 0 And Check3 = 0 Then s = s + 1

Check1 = 0

Check2 = 0

Check3 = 0

Label1 = "В каком году Майков поступил на юридический факультет"

Text1 = "1837"

Text2 = "1838"

Text3 = "1835"

k = k + 1

Case 12

If Check1 = 1 And Check2 = 0 And Check3 = 0 Then s = s + 1

Check1 = 0

Check2 = 0

Check3 = 0

Label1 = "Где похоронен Я.П.Полонский"

Text1 = "в Рязани"

Text2 = "в Петербурге"

Text3 = "в Москве"

k = k + 1

Case 13

If Check1 = 1 And Check2 = 0 And Check3 = 0 Then s = s + 1

If s >= 12 And s <= 13 Then MsgBox ("Ваша оценка 5 (отлично)")

If s >= 10 And s <= 11 Then MsgBox ("Ваша оценка 4 (хорошо)")

If s >= 7 And s <= 9 Then MsgBox ("Ваша оценка 3 (удовлетворительно)")

If s >= 0 And s <= 6 Then MsgBox ("Ваша оценка 2 (неудовлетворительно)")

End

End Select

End Sub

Private Sub Command2_Click()

Load Form2

Form2.Show

Form24.Hide

End Sub

Private Sub Form_Load()

k = 1

s = 0

Label1 = "В каком году родился А.Н.Майков"

Text1 = "1821"

Text2 = "1897"

Text3 = "1895"

End Sub