End Sub. 20. Проверьте правильность работы проекта

20. Проверьте правильность работы проекта. Устраните возможные ошибки.

21. Сохраните проект под именем Лр15_Зад5_ Шифровка_Дешифровка

ЗАВДАННЯ 15.6. Постановка задачи: ПЕРВЫЙ ИГРОК ПРЕДЛАГАЕТ КОМПЬЮТЕРУ СЛОВО, СОСТОЯЩЕЕ НЕ МЕНЕЕ ЧЕМ ИЗ ДВУХ БУКВ. МАКСИМАЛЬНАЯ ДЛИНА СЛОВА ОГРАНИЧЕНА ДЕСЯТЬЮ БУКВАМИ. КОМПЬЮТЕР "ПЕРЕМЕШИВАЕТ" БУКВЫ И ВЫДАЕТ АНАГРАММУ ИСХОДНОГО СЛОВА. ВТОРОЙ ИГРОК ПО АНАГРАММЕ ДОЛЖЕН ОПРЕДЕЛИТЬ ЗАДАННОЕ СЛОВО.

После ввода загаданного слова в текстовое поле (слово отображается в поле звездочками) и щелчка по кнопке <Показать анаграмму > на кнопках (рис. 15.13) появляются буквы, из которых состоит слово.

Пытаемся отгадать слово. Щелкаем по кнопкам в том порядке, в котором буквы, расположенные на них, входят в слово. Кнопки, по которым щелкнули мышью, пропадают, а буквы слова появляются в нижнем текстовом поле (рис. 15.14).

Далее следует щелкнуть по кнопке <Проверка>. Если слово угадано, в окне MsgBox появляется соответствующее сообщение, а слово проявляется в верхнем поле (рис. 15.15).

Рис. 15.13

Рис. 15.14

Если слово не угадано, в окне MsgBox появляется соответствующее сообщение и предоставляется возможность угадать слово заново или ввести новое слово, щелкнув по кнопке < Новое слово>.