Создание теста на переключателях в Excel
методическая разработка по информатике и икт по теме

Листинг макроса к проверке результата по тесту «Добры ли Вы?»

Sub Результат_теста()

rez = Range("R34").Value

Select Case rez

Case 0 To 3

MsgBox "Общение с вами, надо сказать, бывает просто мукой доже для самих близких вам людей. Будьте доброжелательнее, и у вас будет больше друзей. Ведь дружба требует доброго отношения.", vbInformation, "Результат теста"

Case 4 To 8

MsgBox "Ну, что же, ваша доброта - дело случая, Добры вы далеко не со всеми, Для одних вы можете пойти на все, но общение с вами более чем неприятно для тех, кто вам не нравится. Это не так уж плохо. Но, наверное надо стараться быть ровным со всеми, чтобы люди не обижались.", vbInformation, "Результат теста"

Case 8 To 12

MsgBox "Вы любезны, нравитесь окружающим, умеете общаться с людьми. У вас, наверное, много друзей. Одно предостережение: никогда не пытайтесь иметь хорошие отношения со всеми - всем не угодишь, да и на пользу это вам не пойдет.", vbInformation, "Результат теста"

End Select

End Sub