Ну и чтобы "Самая первая тема "Детской"" не была просто нашим флудом, выкладываю маленькую самопальную эксельную игрушечку - как говорится, на случай "Передохни - Кит-Кат отломи"
К детям имеет отношение самое непосредственное - когда-то давно (в 2000 году) я пытался обучать своего тогда еще совсем маленького сына программированию. Получалось неплохо: он даже давал мне "по ходу пьесы" вполне дельные советы. Правда, с тех пор, к моему сожалению, он большой тяги к этому делу пока не испытывает. Но факт остается фактом. А файл с тех пор бережно храню (он даже имеет дату 2000 года, но она, наверное, при скачивании превратится в текущую).
Итак, во вложении простая "Игра в 15". Макросов при открытии не бойтесь. Открыв книгу, смело жмите на кнопку "Запуск "Puzzle" на рабочем листе - Excel спрячется, игровая форма запустится. Каждый 20-й ход в нижней правой части появляется "смешной" совет-анекдот (который, правда, каждый 21-ход пропадает - поэтому и говорю). Список анекдотов небольшой, но при желании расширяемый. Он находится на одном из скрытых листов. Листы - "очень скрытые" (xlVeryHidden), просто через интерфейс Экселя визуализированы быть не могут - для этого надо сначала в редакторе VBA перевести их Visible в любое состояние, отличное от xlVeryHidden. Можно сохранять позиции начального перемешивания и потом их загружать - сделано для того, чтобы устраивать соревнование типа "кто за меньшее число ходов соберет конкретную позицию".
В общем, попробуйте! Желаю приятного перерыва в работе!